Discussion :

[aguill20]

Bonjour, aujourd’hui j’ai ce tableau :

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 :
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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..