Vérifier contenu de plusieurs cellules

Bonjour tout le monde,

J'ai déjà vu plusieurs sujets sur la question mais je n'arrive à faire ce que je veux.

Selectionner les cellules de la colonne 1 qui contiennent la chaine de caractère "AAA" si l'une des cellules de la ligne corresponde contient la valeur "1".

Pour l'instant j'en suis là mais ça nne fonctionne pas:

Sub CONT()

Dim DAT, PLANT As Range
Dim d, p As Range

derlig = Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row

Set DAT = Range(Cells(2, 1), Cells(derlig, 1))
Set PLANT = Range(Cells(2, 2), Cells(derlig, 13))

For Each d In DAT
    For Each p In PLANT

If d.Value Like "*ANT*" And p.Value = "1" Then

d.Select

End If

    Next
Next

End Sub

Merci beaucoup à la personne qui pourra m'aider!!!

Re-bonjour,

En fait je vais exposer mon problème en entier car je suis loins d'avoir trouvé une solution:

1)Si les cellules de la plage "DAT" et "PLANT" répondent aux deux conditions , alors:

2)Récupérer les coordonnées des cellules de "PLANT"

3)Rechercher dans "DAT" les cellules répondant à une nouvelle condition

4)Entrer la valeur "1" dans les cellules des lignes correspondantes mais en fonction des coordonnées obtenues dans la 1ère étape: donc si une des coordonnées obtenues dans l'étape 1 est c(4, 7) alors il faudrait entrer la valeur "1" dans la cellule c.offset(0,3) par exemple. C'est-à-dire 3 colonnes après mais dans la ligne trouvée dans l'étape 3.

Je ne sais pas si c'est très clair mais je peux envoyer le fichier exemple s'il le faut.

Merci beaucoup d'avance pour l'aide!!

Rechercher des sujets similaires à "verifier contenu"