boulou
XLDnaute Occasionnel
Quelle modification apporter pour imposer que la comparaison se fasse sur des mots entiers ?
En retour je vous prépare café et croissants à cette heure !
Merci pour votre aide.
'Comparaison des mots
Dim C As Range, Tr As Integer
Set C = Feuil2.Range("D425,H4:H25").Find(What:=Feuil1.[G16])
If Not C Is Nothing Then
'"o16" et "n16" = compteurs
Tr = Range("O16") + Range("N16")
Range("O16") = Tr
Range("E20").FormulaR1C1 = "A"
Range("M20").FormulaR1C1 = "H"
Else
Range("l11") = "FAUX"
End If
Range("i32").Select
End Sub
En retour je vous prépare café et croissants à cette heure !
Merci pour votre aide.
'Comparaison des mots
Dim C As Range, Tr As Integer
Set C = Feuil2.Range("D425,H4:H25").Find(What:=Feuil1.[G16])
If Not C Is Nothing Then
'"o16" et "n16" = compteurs
Tr = Range("O16") + Range("N16")
Range("O16") = Tr
Range("E20").FormulaR1C1 = "A"
Range("M20").FormulaR1C1 = "H"
Else
Range("l11") = "FAUX"
End If
Range("i32").Select
End Sub