Choix d'un shape via une liste
Bonjour a tous
voici mon premier soucis: je bricole en vba...
mon deuxieme soucis est:
mon besoin est pour un fichier plus complet mais je vous met un fichier pour exemple et applicable pour mon projet
-dans la Feuil1
j'ai une liste de shape (rectangle)
-sur la Feuil2
j ai les rectangles ainsi qu'un menu déroulant ( combobox ou listbox ou autre )
le principe serait que le menu déroulant s’incrémente de la colonne ou il y les noms dans la Feuil1 et lors du choix du nom, le shape correspondant clignote.
Merci pour votre aide
Bonjour
Juste une suggestion
Dans la page "Feuil2" fais Alt + F10
bonjour
rien ne se passe ...
désolé
Bonjour
En passant par la méthode classique
Dans le ruban onglet "Accueil"
Clique sur les "jumelles" afin de lister tous les choix et dans cette liste choisis "Volet sélection"
En espérant que tu as la même que moi qui suis avec XL2010
je suis en version2007
j ai compris ton système.
par contre il n'est pas applicable sur mon projet.(ce fichier ne me sert que d'exemple)
merci quand même.
j ai besoin d'avoir cette liste déroulante
le clignotement , c'est juste que je veux repérer ou elle se situe dans un ensemble de rectangle (un ensemble que je veux visible)
Bonjour a tous,
pas d'amateur pour m'aider sur mon petit projet
bonjour a tous,
j'ai finalement trouvé en me débrouillant tout seul.
bon je ne sais pas si c"est la meilleur, mais cela a le mérite de fonctionner.
je reposte mon fichier pour ceux intéresser.
code :
Private Sub ComboBox1_Change()
n = 0
Clignote = True
nom = ComboBox1.Value
Do While n < 6
On Error Resume Next
ActiveSheet.Shapes(nom).Visible = False
If Err > 0 Then Exit Sub
fin = Timer + 0.4
Do While Timer < fin
DoEvents
Loop
ActiveSheet.Shapes(nom).Visible = True
fin = Timer + 0.2
Do While Timer < fin
DoEvents
Loop
n = n + 1
Loop
Clignote = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tablo() As String
Dim Plage As Range, Cell As Range
Dim i As Integer
With Sheets("Feuil1")
Set Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
ReDim Tablo(0 To Plage.Rows.Count - 1)
For Each Cell In Plage
Tablo(i) = Cell.Text
i = i + 1
Next
Me.ComboBox1.List = Tablo()
End Sub
merci a tous