Bonjour à toute et à tous
Je vous livre ci-joint la macro suivante qui va chercher une chaîne de caractères dans un commentaire et compare cette chaîne avec une liste de valeurs dans la colonne B de la feuille DemMil. Si ces 2 valeurs sont identiques un message apparaît.
Pour moi la macro ci-dessous devrait fonctionner et pourtant ce n'est pas le cas. Je pense qu'il s'agit d'un problème de format mais je n'arrive pas à le résoudre.
Si quelqu'un a la solution...
Ci-joint le fichier exemple
Merci
Je vous livre ci-joint la macro suivante qui va chercher une chaîne de caractères dans un commentaire et compare cette chaîne avec une liste de valeurs dans la colonne B de la feuille DemMil. Si ces 2 valeurs sont identiques un message apparaît.
Pour moi la macro ci-dessous devrait fonctionner et pourtant ce n'est pas le cas. Je pense qu'il s'agit d'un problème de format mais je n'arrive pas à le résoudre.
Si quelqu'un a la solution...
Ci-joint le fichier exemple
Merci
Code:
Sub test()
Dim CodeInt As String
For Each c In Sheets("feuil1").Range("A1")
For Each Lot In Sheets("DemMil").Range("B1:B" & Sheets("DemMil").Range("B65536").End(xlUp).Row)
If Not c.Comment Is Nothing Then
chainecherchée = "Code Interne :"
p = 1
Do While p > 0
p = InStr(p, c.Comment.Text, chainecherchée)
If p > 0 Then
CodeInt = c.Comment.Shape.TextFrame.Characters(Start:=p + 14, Length:=Len(chainecherchée) - 8).Text
p = p + Len(chainecherchée)
End If
Loop
If CodeInt = Lot Then
MsgBox ("Gagné")
End If
End If
Next Lot
Next c
End Sub