Bonjour à tous,
Le problème qui me fait me tourner vers vous aujourd'hui est le suivant :
A partir d'une valeur de listbox (contenant une valeur de cellule et son commentaire si il existe), je cherche une cellule dans ma feuille contenant la valeur, mettons X. X peut exister en doublon, dans ce cas il existe un commentaire dans les cellules contenant, valeur 1, valeur 2... Ce qui fait que la combinaison valeur de la cellule + commentaire de la cellule est unique sur ma feuille.
J'utilise le code suivant pour trouver ma cellule :
Jusqu'ici tout va bien, c'est du code que je maitrise. Le code suivant doit me permettre de faire la distinction entre les cellules de valeurs identiques mais de commentaires différents :
Cela ne marche pas car "chrc.comment.text" prend la valeur du commentaire de la première cellule trouvé, "valeur 1" par exemple alors que "Nextr1" est égal à "valeur 2".
Je boucle donc à l'infini.
Voila le topo.
A vot' bon coeur
A+, Matt.
Le problème qui me fait me tourner vers vous aujourd'hui est le suivant :
A partir d'une valeur de listbox (contenant une valeur de cellule et son commentaire si il existe), je cherche une cellule dans ma feuille contenant la valeur, mettons X. X peut exister en doublon, dans ce cas il existe un commentaire dans les cellules contenant, valeur 1, valeur 2... Ce qui fait que la combinaison valeur de la cellule + commentaire de la cellule est unique sur ma feuille.
J'utilise le code suivant pour trouver ma cellule :
Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim tmp, chrc As Variant
Dim Nextr, Nextr1 As String
Dim Cmpt As Boolean
Dim plage As Range
'j'utilise ceci afin de retrouver la valeur de ma cellule et son commentaire
If Len(ListBox1.Value) > 10 Then
tmp = Split(ListBox1.Value, " ")
Nextr = Mid(tmp(0), 1)
Nextr1 = Mid(tmp(1), 1) + " " + Mid(tmp(2), 1)
'ici je fais la recherche de ma cellule
Range("A:A").Select
Set chrc = Selection.Find(What:=Nextr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Jusqu'ici tout va bien, c'est du code que je maitrise. Le code suivant doit me permettre de faire la distinction entre les cellules de valeurs identiques mais de commentaires différents :
Code:
Do Until Cmpt = True
If Not chrc Is Nothing And chrc.Comment.Text = Nextr1 Then
chrc.Select
Cmpt = True
Else
Cells.FindNext(After:=ActiveCell).Activate
End If
Loop
Else
Nextr = ListBox1.Value
End If
Cela ne marche pas car "chrc.comment.text" prend la valeur du commentaire de la première cellule trouvé, "valeur 1" par exemple alors que "Nextr1" est égal à "valeur 2".
Je boucle donc à l'infini.
Voila le topo.
A vot' bon coeur
A+, Matt.