VBA : Recherche valeur cellule et commentaire cellule

[Matt51100]

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 :

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 :

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.

 

[sousou]

Re : VBA : Recherche valeur cellule et commentaire cellule

Bonjour matt
Sans fichier pas facile.
mais ne manquet'il pas la redéfinition de chrc
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
chrc= activecell
End If
Loop

Else
Nextr = ListBox1.Value
End If

 

[Matt51]

Re : VBA : Recherche valeur cellule et commentaire cellule

Salut,

merci pour ta réponse. Je testerais demain.
Mon fichier étant vraiment complexe (7 USF entre autres) que le caviarder est pratiquement impossible sans que j'y passe beaucoup de temps et comme bien sur il est pro, il est confidentiel (même les titres des colonnes !).

A+