Macro pour modifier le contenu d'une cellule sous condition

[JOCIL]

Bonjour,
Je recherche une macro pour rechercher dans une colonne, une valeur et la modifier selon qu'elle réponde ou non à deux critères.
Mais plutôt que des explications peu claires, je joints le fichier qui sera sans doute plus explicite.
Merci pour votre aide

 

[Caillou]

Re : Macro pour modifier le contenu d'une cellule sous condition

Bonjour,

Tu peux essayer cette formule dans la cellule E de10 ta feuille et la recopier vers le bas :
=SI(C10="III";SI(ET(A10=A9;D10=D9);10;9);C10)

Caillou

 

[JNP]

Re : Macro pour modifier le contenu d'une cellule sous condition

Bonjour le fil 🙂,
Très basiquement 😛...

Sub Test()
Dim I As Integer
For I = 10 To 196
    If Range("C" & I) = "III" Then
        If Range("A" & I) = Range("A" & I - 1) And Range("D" & I) = Range("D" & I - 1) Then
            Range("C" & I) = 10
        Else
            Range("C" & I) = 9
        End If
    End If
Next I
End Sub

Bonne journée 😎

 

[JOCIL]

Re : Macro pour modifier le contenu d'une cellule sous condition

Merci à Caillou et JNP pour votre aide, .... mais ça ne marche pas.

La solution proposée par Caillou écrase toutes les valeurs de ma colonne C, or je ne veux changer que celles qui ont la valeur III. Il me faudrait donc une macro pour
1) atteindre la valeur III (édition / rechercher),
2) appliquer la formule =SI(ET(A195=A194;D195=D194;C194=10);10;9)
3) répéter cette action jusqu'à la fin de la colonne

La solution de JNP n'opère que sur une plage définie (For I = 10 to 196), or je souhaite une recherche sur toute la colonne car le nombre de lignes peut varier. En la testant, j'obtiens des valeurs 10 partout, même lorsque je devrais obtenir la valeur 9.

J'ai bien essayé de bricoler une macro à partir des 2 solutions, mais sans succès.

 

[JNP]

Re : Macro pour modifier le contenu d'une cellule sous condition

Re 🙂,

La solution de JNP n'opère que sur une plage définie (For I = 10 to 196), or je souhaite une recherche sur toute la colonne car le nombre de lignes peut varier. En la testant, j'obtiens des valeurs 10 partout, même lorsque je devrais obtenir la valeur 9.

Comme dit précédemment, j'avais fait très basique 🙄...
Un poil de lecture du forum t'aurais donné

For I = 10 To Range("A35000").End(xlUp).Row

Sur ton fichier test, j'obtiens aussi que des valeurs 10, mais c'est logique vu qu'il n'y a pas de cas où la ligne supérieure n'est pas identique pour la date et le nom 😕...
Mais si je change la date, c'est bien la valeur 9 qui arrive 🙄...
Bref, soit l'énoncé n'est pas bon, soit tu as du faire une erreur quelque part 🙄...
Bises 😎

 

[JOCIL]

Re : Macro pour modifier le contenu d'une cellule sous condition

Mea Culpa, j'avais effectivement omis de préciser qu'en plus de répondre aux critères de dates et noms, la valeur de la ligne supérieure devait également être de 10.
J'ai réaménagé la macro et ça marche. YES !!!
Merci