Vérifier contenu de plusieurs cellules

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
maroon
Membre habitué
Membre habitué
Messages : 87
Inscrit le : 2 mai 2016
Version d'Excel : 2013

Message par maroon » 30 mai 2017, 19:52

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!!! :shock:
m
maroon
Membre habitué
Membre habitué
Messages : 87
Inscrit le : 2 mai 2016
Version d'Excel : 2013

Message par maroon » 30 mai 2017, 20:31

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!!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message