| | insertion d'image en fonction d'un choix multiple |  |
|
|
| Auteur | Message |
|---|
DIDOU
Membre
Nombre de messages : 12
Date d'inscription : 07/05/2007
| | Sujet: insertion d'image en fonction d'un choix multiple Dim 13 Mai à 16:58 | |
| Bonjour je vous explique mon probleme
J'ai un tableau(Feuil1)16 cellules avec 8 valeur differentes (A,B,C,D,E,ADE,ZE,DS)
et en fonction de ces valeur je voudrai mettre une image differente(image1,2,3,4,5,6,7,8)qui se trouvent en Feuil3 sur des cellules ou des cadre a des emplacements differents sur la Feuil2
en gros une equivalence de:
=SI(Feuil1!$B2="A";$S$13;SI(Feuil1!$B2="B";$S$19;SI(Feuil1!$B2="C";$S$25;SI(Feuil1!$B2="D";$S$31;SI(Feuil1!$B2="E";$S$37;SI(Feuil1!$B2="ADE";$S$43;SI(Feuil1!$B2="ZE";$S$49;SI(Feuil1!$B2="DS";$S$55;" "))))))))
mais je ne vois pas comme le faire en vba | |
|
| | |
Jacky67
Membre
Nombre de messages : 222
Date d'inscription : 17/09/2005
| | Sujet: Re: insertion d'image en fonction d'un choix multiple Lun 14 Mai à 2:21 | |
| Essaye avec un Select Case. Un truc du genre : - Code:
-
Select Case Feuil1!$B2
Case "A"
ActiveCell = Feuil3!$S13
Case "B"
ActiveCell = Feuil3!$S19
...
End Select Tu peux bien sur remplacer Active Cell par l'adresse de la cellule concernée. | |
|
| | |
DIDOU
Membre
Nombre de messages : 12
Date d'inscription : 07/05/2007
| | Sujet: essais de code Lun 14 Mai à 15:06 | |
| Voila ce que j'ai essayer mais ca ne marcher pas
Select Case ("$B$2")
Case "AD"
' Selectionne et copie l'image de la cellule choisi
Worksheets("Image").Range("$C$6").CopyPicture xlScreen, xlBitmap
' Selectionne et colle l'image dans la cellule choisi
Worksheets("Zone 1").Paste_
Destination:=Worksheets("Zone 1").Range("$D$8")
Select Case ("$B$12")
Case "AD"
' Selectionne et copie l'image de la cellule choisi
Worksheets("Image").Range("$C$6").CopyPicture xlScreen, xlBitmap
' Selectionne et colle l'image dans la cellule choisi
Worksheets("Zone 1").Paste_
Destination:=Worksheets("Zone 1").Range("$D$18")
je ne vois pas | |
|
| | |
Jacky67
Membre
Nombre de messages : 222
Date d'inscription : 17/09/2005
| | Sujet: Re: insertion d'image en fonction d'un choix multiple Lun 14 Mai à 19:19 | |
| J'avoue ne pas être très doué en Excel en fait...  mais es-tu certain que la syntaxe de la première ligne est correcte déjà ? Essaye de remplacer ta première ligne par - Code:
-
Select Case Cells(2, 2)  Tu as un MP ! 
Dernière édition par le Lun 14 Mai à 19:48, édité 1 fois | |
|
| | |
Jacky67
Membre
Nombre de messages : 222
Date d'inscription : 17/09/2005
| | Sujet: Re: insertion d'image en fonction d'un choix multiple Lun 14 Mai à 19:37 | |
| Ton code n'est pas bon en fait : - Code:
-
Select Case ("$B$2")
Case "AD"
' Selectionne et copie l'image de la cellule choisi
Worksheets("Image").Range("$C$6").CopyPicture xlScreen, xlBitmap
' Selectionne et colle l'image dans la cellule choisi
Worksheets("Zone 1").PasteDestination:=Worksheets("Zone 1").Range("$D$8")
Select Case ("$B$12")
Case "AD"
' Selectionne et copie l'image de la cellule choisi
Worksheets("Image").Range("$C$6").CopyPicture xlScreen, xlBitmap
' Selectionne et colle l'image dans la cellule choisi
Worksheets("Zone 1").PasteDestination:=Worksheets("Zone 1").Range("$D$18") Un Select Case permet de comparer une variable avec différentes valeurs possibles. - Code:
-
Select Case Variable_à_comparer
Case Valeur1
ici on met ce qu'on veut faire si la valeur de Variable_à_comparer est égale à Valeur1
Case Valeur2
ici on met ce qu'on veut faire si la valeur de Variable_à_comparer est égale à Valeur2
Case Valeur3
ici on met ce qu'on veut faire si la valeur de Variable_à_comparer est égale à Valeur3
Case Else
ici on met ce qu'on veut faire si la valeur de Variable_à_comparer ne correspond à aucune des valeurs testées avant
End Select Exemple : - Code:
-
Select Case JourDeLaSemaine
Case "lundi"
Cells(1,1).Value = "1er jour de boulot."
Case "mardi"
Cells(1,1).Value = "2ème jour de boulot."
Case "mercredi"
Cells(1,1).Value = "Milieu de la semaine."
Case "jeudi"
Cells(1,1).Value = "Avant-dernier jour de boulot."
Case "vendredi"
Cells(1,1).Value = "Dernier jour de boulot !"
Case Else
Cells(1,1).Value = "C'est le week-end !!!"
End Select | |
|
| | |
DIDOU
Membre
Nombre de messages : 12
Date d'inscription : 07/05/2007
| | Sujet: caler l'image Ven 18 Mai à 14:09 | |
| pour le decalage des images il faut spécifier l'endroit ou l'on cale l'image
'Détermine la Position de l'image
Selection.ShapeRange.Left = Range("D8").Left
Selection.ShapeRange.Top = Range("D8").Top
ci-dessus en haut et à gauche dans la cellule D8 | |
|
| | |
Jacky67
Membre
Nombre de messages : 222
Date d'inscription : 17/09/2005
| | Sujet: Re: insertion d'image en fonction d'un choix multiple Ven 18 Mai à 15:20 | |
| Ton problème est donc résolu ? | |
|
| | |
DIDOU
Membre
Nombre de messages : 12
Date d'inscription : 07/05/2007
| | Sujet: Re: insertion d'image en fonction d'un choix multiple Dim 20 Mai à 20:23 | |
| oui sauf que le code fait 20 km de long mais ca marche | |
|
| | |
Jacky67
Membre
Nombre de messages : 222
Date d'inscription : 17/09/2005
| | Sujet: Re: insertion d'image en fonction d'un choix multiple Lun 21 Mai à 18:56 | |
| Désolé de n'avoir pu t'aider  mais content pour toi que tu aies résolu ton problème.  | |
|
| | |
Contenu sponsorisé
| | Sujet: Re: insertion d'image en fonction d'un choix multiple | |
| |
|
| | |
| | insertion d'image en fonction d'un choix multiple | |
|
