Discussion :

[logue_in]

Bonjour,

Lorsque je clic sur une valeur d'une liste, j'aimerais que la cellule de la Feuille contenant la valeur soit pointée directement, comme un Ctrl+F:

J'ai essayé ca, en utilisant l'enregisteur de macro, mais ca ne marche pas... Pourriez-vous m'éclairer?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ListBox1_Click()
Dim y As Double
 
    For i = 0 To ListBox1.ListCount
    If ListBox1.Selected(i) = True Then
    ListBox1.Value = y
 
       Cells.Find(What:=y, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
 
 
      End If
      Next
 
   End Sub

[joe.levrai]

Bonjour,

les données du listbox sont chargées depuis la feuille Excel à la base ?

si tel est le cas, l'utilisation d'un Find pour la retrouver n'est pas forcément nécessaire.

tu peux montrer la procédure qui charge la ListBox ?

[Promethee25]

Bonjour,

Pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LookIn:=xlFormulas

?
A première vue, si tu veux rechercher la cellule contenant la valeur de ta listbox, tu devrais plutôt avoir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LookIn:=xlValues

Et tu veux peut-être trouver la cellule correspondant exactement à cette valeur et non n'importe quelle cellule contenant cette valeur et peut-être autre chose. Dans ce cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LookAt:= xlWhole

[ZX12R]

Bonjour,

A mon avis, si tu changes ListBox1.Value = y en y = ListBox1.Value, celà devrait déjà mieux marcher !

Sinon xlvalues me paraît plus adapté... si tu cherches une valeur numérique. xlWhole si tu cherches une valeur de texte ou de morceau de texte.

Cordialement.

PS : et peut pas besoin de boucle For.. Next, y = ListBox1.value peut surement faire l'affaire... sachant qu'à priori la liste n'est pas à choix multiple.

Bruno

[unparia]

Bonjour ZX12R
le seul fait que son code montre une boucle laisse penser que la propriété multiselect du contrôle concerné est à True (ou alors que cette boucle est totalement superfétatoire).
Mais il n'en précise rien. Et il ne précise d'ailleurs pas le reste non plus.

[geogeo70]

Hello,

Je te fais un exemple avec une listbox sur la feuille (données ciblées dans une feuille par la propriété listfillrange par exemple Feuil2!F2:F4) mais que tu as peut être ailleurs. J'ai repris ta recherche telle quelle et ça fonctionne mais je la lance par la methode listbox1_change() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ListBox1_Change()
Cells.Find(What:=ListBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
 
End Sub

Peut être ajouter Feuil1.Cells.Find... si la feuille de recherche n'est pas la feuille active.

Cordialement

geogeo

[logue_in]

Merci à tous pour vos réponses rapides.

C'est vraiment sympa. Je suis débutant en VBA.
Vos réponses m'ont aidé à mieux comprendre le fonctionnement de la recherche et cela marche bien.

J'espère pouvoir rendre la pareille un jour!

Bonne fin de week end à vous