Etienne2323
XLDnaute Impliqué
Bonjour à vous tous,
merci une fois de plus de me lire et de me donner un coup de main. Je suis encore dans mes débuts dans vb et votre aide est pour moi un apport considérable. Voici ma question aujourd'hui. J'aimerais savoir s'il existe une possibilité dans VB de faire une action comme celle-ci. J'aurais besoin que dans ma macro, si une cellule dans le range est en couleur, qu'il mette la même couleur dans la cellule de destination. Donc, comme dans l'exemple suivant, si une cellule comprise dans les 12 dernières lignes possède la couleur 15, alors il faut que la cellule de destination, soit la cellule Cells(8,7), se voit attribuer la couleur 15 également. Le 15 est un ton de gris. Quelqu'un pourrait m'éclairer sur le code à utiliser ?
Voici mon bout de code :
a = Range("O3").End(xlDown).Row
b = WorksheetFunction.Product(Range(Cells(a - 11, 15), Cells(a, 15)))
Cells(8, 7) = b - 1
Merci à vous !
Etienne
merci une fois de plus de me lire et de me donner un coup de main. Je suis encore dans mes débuts dans vb et votre aide est pour moi un apport considérable. Voici ma question aujourd'hui. J'aimerais savoir s'il existe une possibilité dans VB de faire une action comme celle-ci. J'aurais besoin que dans ma macro, si une cellule dans le range est en couleur, qu'il mette la même couleur dans la cellule de destination. Donc, comme dans l'exemple suivant, si une cellule comprise dans les 12 dernières lignes possède la couleur 15, alors il faut que la cellule de destination, soit la cellule Cells(8,7), se voit attribuer la couleur 15 également. Le 15 est un ton de gris. Quelqu'un pourrait m'éclairer sur le code à utiliser ?
Voici mon bout de code :
a = Range("O3").End(xlDown).Row
b = WorksheetFunction.Product(Range(Cells(a - 11, 15), Cells(a, 15)))
Cells(8, 7) = b - 1
Merci à vous !
Etienne