macro pour plusieurs cellules selectionnees

Bonjour, aujourd’hui j’ai ce tableau :
Pièce jointe 355165
Lorsque je fais un clic droit sur ma cellule, celle-ci change de couleur, pour l’instant j’ai réussi a lancer ma macro dès que je cliquais sur ma cellule or j’aimerais procéder autrement.. Je voudrais pouvoir sélectionner plusieurs cellules comme cela par exemple :Pièce jointe 355170
et qu'a l'appui du bouton go que ma macro s'exécute pour chaque cellules selectionnees en rouge
J'utilise ceci pour changer de couleur a ma cellule :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_BeforeRightClick(ByVal target As Range, Cancel As Boolean)   Set plage = Range("tab_releves_oscillo") If Intersect(target, plage) Is Nothing Then Exit Sub Cancel = True If target.Interior.ColorIndex = 48 Then target.Interior.ColorIndex = 3 target.Font.ColorIndex = 1   Else target.Interior.ColorIndex = 48 target.Font.ColorIndex = 1   End If   End Sub

---

et pour lancer ma macro pour une cellule ceci :

Code:

---

1 2 3 4 5

If Not Intersect(target, plage) Is Nothing Then   Call commandbutton_dechg(0, target, ActiveSheet.Name)   End If

---

merci d'avance..

Bonjour,

Sur le click de votre bouton, vous pouvez peut-être essayer ce genre de code. A vous de bidouiller dans l'objet Selection :

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim plage As Range Set plage = Selection With plage MsgBox .Address MsgBox .Columns.Count MsgBox .Rows.Count End With End Sub

---

En faite ce que je voudrais c'est que si la ou les cellules sont en rouge lorsque j'appuierais sur go il exécutera chaque cellule les unes après les autres mais je n'arrive pas a trouver toutes les cellules en rouge de mon tableau

Voici le code que j'utilise pour le faire sur une cellule :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_BeforeRightClick(ByVal target As Range, Cancel As Boolean)   Set plage = Range("tab_releves_oscillo") target.Interior.ColorIndex = 3 target.Font.ColorIndex = 1   If Not Intersect(target, plage) Is Nothing Then Call commandbutton_page_dechg(0, target, ActiveSheet.Name) End If   target.Interior.ColorIndex = 48 target.Font.ColorIndex = 1 End Sub

---

cependant je n'arrive toujours pas à l'exécuter avec plusieurs cellules