J'ai un peu de mal à trouver le code qui permettrait de lire toutes les lignes d'un tableau en restregnant le champ d'éxécution de la macro avec les conditions suivantes
La plage est A7 à T20000
Condition 1 Si valeur de A n'est pas vide alors passe à la seconde condition
Condition 2 Si valeur de T est vide
Alors mes instructions (ex Colonne O = "TOTO")
Si T n'est pas vide passer à la ligne suivante
Dès que la macro rencontre une cellule de la colonne A vide, sortir de la macro.
Si je mets toutes ces restrictions c'est que je souhaite mettre la macro en ouverture de fichier qui fait 20000 lignes!
J'espère que vous pourrez m'aider
Très bonne journée à tous
Re : Macro de mise à jour sur les cellules d'un tableau avec condition
Bonjour Chris,
avec ce code:
Code:
Sub Chris()
Dim cel As Range
For Each cel In Range("A2:A" & Range("A65535").End(xlUp).Row)
If cel <> "" And Cells(cel.Row, 20) = "" Then
Cells(cel.Row, 15) = "toto"
Else
Cells(cel.Row, 15) = ""
End If
Next cel
End Sub
Sub Chris()
Dim cel As Range
For Each cel In Range("A2:A" & Range("A65535").End(xlUp).Row)
If cel <> "" And Cells(cel.Row, 20) = "" Then
Cells(cel.Row, 15) = "toto"
Else
Cells(cel.Row, 15) = ""
End If
Next cel
End Sub