Re MichelXLD
En fait le truc c'est que j'ai une même macro a appliquer sur de nombreux boutons...
Mais cette macro agit sur le bouton qui l'exécute
Voici cette macro
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case 1:
If CommandButton1.BackColor = &HFF00& Then
CommandButton1.BackColor = &HFF
CommandButton1.ForeColor = &H8000000E
Range('C6').Select: Heure
Range('D6') = ''
Else
CommandButton1.BackColor = &HFF00&
CommandButton1.ForeColor = &H80000012
Range('D6').Select: Heure
CommandButton1.Visible = False
CommandButton16.Visible = True
End If
Case 2: Range('C6').Select
razheure
CommandButton1.BackColor = &HFF00&
CommandButton1.ForeColor = &H80000012
End Select
End Sub
Je veux affecter cette macro sur une vingtene de boutons...
Y a til un moyen de créer cette macro dans un module du type :
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i as integer
Dim j as integer
Dim k as integer
'ou i serait le n° du commandButton qui lance la macro
j = i + 5
k = i + 15
Select Case Button
Case 1:
If Me.BackColor = &HFF00& Then
Me.BackColor = &HFF
Me.ForeColor = &H8000000E
Range('C' & j).Select: Heure
Range('D' & j) = ''
Else
Me.BackColor = &HFF00&
Me.ForeColor = &H80000012
Range('D' & j).Select: Heure
Me.Visible = False
Shape('CommandButton' & k).Visible = True
End If
Case 2: Range('C' & j).Select
razheure
Me.BackColor = &HFF00&
Me.ForeColor = &H80000012
End Select
End Sub
' ou ME serait pour le commandbutton qui lance la macro
Voila crois tu pouvoir faire quelque chose pour moi ???
Merci a toi Michel XLD
aplus
