Affecter macro à une case à cocher
Bonjour,
j'insere une case à cocher dans une feuille excel, le probleme c'est que quand j'aimerai créer une macro (click droit--->affecter une macro) j'ai le nom de la fonction en français (Sub Caseàcocher1_Cliquer());
alors j'ai du mal a ecrire le macro.
ci-dessous le macro que je ve crée :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Sub CheckBox1()
Dim cell As Range
Dim i As Integer
Dim CheckBox1 As CheckBox
i = 3
If CheckBox1.Value = True Then
For Each cell In Range("L3:L5")
cell.FormulaLocal = "=RECHERCHEV($K$" & i & ";'sh1'!A:CZ;COLONNE('sh1'!B:B);0)"
i = i + 1
Next
Else
For Each cell In Range("L3:L5")
cell.Value = 0
Next
End If
End Sub |
je suis nouveau dans vba excel; merci pour votre aide.