Case a cocher declenche une partie de macro

Bonjour à tous,

y a t-il une solution pour que , si je coche une case (case à cocher) alors la macro s'exécute en entier et sinon elle s'arrête à un endroit.

Dans mon exemple je souhaiterai qu'elle s'arrête avant ' Impression du bon de commande laquage si décoché.

merci à vous

Phil

Sub Macro1()
      Range("B10").Select
    Selection.Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Dim chemin As String, Fichier As String
chemin = "L:\dika\QUATRO\TRADI\tradi philippe\Année 2013\"
Fichier = Range("G6") & "_" & Range("G7") & "_" & Range("G8") & ".xls"
ActiveWorkbook.SaveAs Filename:=chemin & Fichier
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

'  Impression du bon de commande laquage

    Sheets("Feuil3").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("B4:H39").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Bonjour,

tu la testes et met le code concerné à l'intérieur :

if CheckBox1 then

' ton code

end if

eric

Bonjour et merci.

Je ne connais pas bien les checkbox.

Peux tu me dire ou trouve-je le nom de ma checkbox ?

J'ai mis une case à cocher , je suis allé dans format de contrôle et apres ...

Je signale que j'ai mis une case à cocher avec l'outil "contrôle de formulaire" et non "contrôle activex"

Merci d'avance.

Phil

j'ai un pb,

ma macro ne se déclenche pas quand ma case est cochée...

Sub Macro1()
      Range("B10").Select
    Selection.Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Dim chemin As String, Fichier As String
chemin = "L:\dika\QUATRO\TRADI\tradi philippe\Année 2013\"
Fichier = Range("G6") & "_" & Range("G7") & "_" & Range("G8") & ".xls"
ActiveWorkbook.SaveAs Filename:=chemin & Fichier
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

'  Impression du bon de commande laquage si cas a cocher cochée
If CheckBox1 = True Then
    Sheets("Feuil3").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("B4:H39").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End If
End Sub

tiens, j'avais répondu mais j'ai dû oublier de valider.

S'il s'agit d'un checkbox formulaire il faut le lier à une cellule (Format de contrôle) et tester cette cellule :

if [B2] then ...

eric

Merci bcp du coup de main.

Ca fonctionne...

Bon après-midi

Phil