sélection d'une cellule par sa valeur

[axel]

Bonjour à tous,

Je suis débutant (voire un gros débutant) et je voudrais savoir comment sélectionner une cellule en fonction de sa valeur.

Pour être plus précis :
j'ai une ListBox avec une liste qui reprend les valeurs d'une colonne (des noms de ville).
Là où je bloque c'est par exemple si je choisis dans la ListBox la valeur ' Lyon ', je n'arrive pas à ce que la cellule sélectionnée dans excel soit celle qui contient la valeur 'Lyon'.

Je pensais à quelque chose du genre :
Range (?????).Select = ListBox1.value
mais évidement ça ne marche pas....

Help!!!

 

[PascalXLD]

Bonjour

Tout dépend est-ce que tu as une seule cellule qui contiendra ce que tu selectionnes ou plusieurs

Si une seule tu peux utiliser un find
pour plusieurs tu passeras peut-être par une boucle sur tes cellules

Bonne journée

 

[axel]

Oui, il n'y aura qu'une seule cellule.
Le nom de la ville que je sélectionne dans la ListBox correspond à une cellule dans excel. Et c'est cette dernière que je voudrais sélectionner automatiquement. 🙁

 

[PascalXLD]

Re

Sheets('Feuil1').Range('A1:A65536').Find(listbox1.value, lookat:=xlWhole).Select

cela te cherche la valeur de la listebox1 dans la feuille1 dans la colonne A et la selectionne

 

[Axel]

Excuse moi mais je n'arrive pas à faire marcher ton code (je dois être une grosse bille).

Voici le code dans lequel devrait normalement s'insérer ta réponse :

Private Sub ListBox1_Click()
X = ListBox1.Value
Msg = 'vous avez selectionné le site de ' & X
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then
Unload UserForm1
UserForm1.Show
End If
If Ans = vbYes Then
Range('A1:A65536').Find(ListBox1.Value, lookat:=xlWhole).Select
'Unload UserForm1
'Load Etape2
'Etape2.Show

End If
End Sub

Si j'exécute la macro il y a erreur 91.
Merci par avance, (ça donne espoir de trouver des gens qui aident).

 

[PascalXLD]

Re

escuse j'etai absent tout l'après-midi

j'ai essayé ceci et ça marche

Private Sub ListBox1_Click()
Dim x As String, msg As String
x = ListBox1.Value
msg = 'vous avez selectionné le site de ' & x
If MsgBox(msg, vbYesNo) = vbNo Then
Unload UserForm1
UserForm1.Show
Else
Range('A1:A65536').Find(ListBox1.Value, lookat:=xlWhole).Select
'Unload UserForm1
'Load Etape2
'Etape2.Show

End If
End Sub