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

[Soticca]

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 :

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

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

[aguill20]

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

[aguill20]

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

Code :

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

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