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.
Merci beaucoup d'avance pour l'aide!!