Bonjour à tous,
Encore une fois je compte sur votre bienveillance et expertise pour m'aider à résoudre mon problème :
J'ai dans chaque cellule de la première colonne du feuillet Feuil1 un terme unique
Dans Feuil2, je souhaiterais vérifier que chaque terme de la première colonne de Feuill1 n'est pas présent dans la celulle (A,i), et le cas échéant écrire MAIS CEST GÉNIAL!!! dans (B,i). En revanche si au moins un de ces termes est trouvé, alors (B,i) reste inchangé.
J'ai d'abord essayé avec des imbrications de CHERCHE avec ma liste de termes, mais échec retentissant...
Ensuite j'ai essayé de bricoler quelque chose comme ça :
Dim Cel As Range
Dim J As Long
NbLig = Range("A" & Rows.Count).End(xlUp).Row
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
For J = 1 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
Set Cel = Columns("G").Find(what:=Sheets("Feuil1").Range("A" & J), LookIn:=xlValues, lookat:=xlPart)
If Cel Is Nothing Then
Cells(i, 2).Value = Cells(i, 2).Value & "MAIS CEST GÉNIAL!!!"
Else: Cells(i, 2).Value = Cells(i, 2).Value
End If
Next J
Next i
Je vois bien que c'est completement bancal, mais je ne trouve pas le moyen d'arranger ça.
Merci pour votre disponibilité et votre aide.
Seb