|
|
|
|
salut,
une procédure comme celle-ci pourrait peut-être t'aider : sub Traitement() Range("A1").Select Do ' ton traitement ActiveCell.Offset(1, 0).Select Loop Until ActiveCell.Value = "" End Sub A+.
|
puisque la boucle te permet de defiler les cellules il te reste à mettre en place
if CELL.interior.color = red then je mets ma valeur la else je la mets ici end if |
Merci Random,
J'y suis arrivé avec beaucoup de patience. A+ |