comment exécuter la CommandButton1_Click() après modification de la cellule A1,b1,d1,f1,h1
merci de votre aide
code présent
------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim i&, j&, Compteur%
'effacement de la liste existante
'Range("J140:B142").ClearContents
Range("A140:B152").ClearContents
'creeation de la liste selon le résultat
Compteur = 1
For i = 1 To 2
For j = 1 To Cells(136, i).Value
Select Case i
Case 1
Cells(140 + Compteur, 1) = Cells(121 + j, 1)
Cells(140 + Compteur, 2) = Cells(121 + j, 2)
Case 2
Cells(140 + Compteur, 1) = Cells(121 + j, 4)
Cells(140 + Compteur, 2) = Cells(121 + j, 5)
End Select
Compteur = Compteur + 1
Next j
Next i
End Sub
Private Sub CommandButton2_Click()
Dim strPw As String
strPw = "Test"
If InputBox("Saisissez le mot de passe", "Accès à la macro") <> strPw Then
MsgBox ("Mot de passe erroné")
Exit Sub
End If
'effacement de la liste existante
'Range("J140:B142").ClearContents
Range("A122:Be133").ClearContents
End Sub
Private Sub CommandButton3_Click()
'Impression de la 1ème page en paysage
'-------------------------------------
Range("A1:W48").Select 'définition de la plage de cellules constituant la 1ème page
ActiveSheet.PageSetup.PrintArea = "$A$1:$W$48" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlLandscape 'mise au format paysage
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
'Impression de la 2ème page en portrait
'--------------------------------------
Range("A50:T119").Select 'définition de la plage de cellules constituant la 3ème page
ActiveSheet.PageSetup.PrintArea = "$A$50:$T$119" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
Range("A1").Select
End Sub
merci de votre aide
code présent
------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim i&, j&, Compteur%
'effacement de la liste existante
'Range("J140:B142").ClearContents
Range("A140:B152").ClearContents
'creeation de la liste selon le résultat
Compteur = 1
For i = 1 To 2
For j = 1 To Cells(136, i).Value
Select Case i
Case 1
Cells(140 + Compteur, 1) = Cells(121 + j, 1)
Cells(140 + Compteur, 2) = Cells(121 + j, 2)
Case 2
Cells(140 + Compteur, 1) = Cells(121 + j, 4)
Cells(140 + Compteur, 2) = Cells(121 + j, 5)
End Select
Compteur = Compteur + 1
Next j
Next i
End Sub
Private Sub CommandButton2_Click()
Dim strPw As String
strPw = "Test"
If InputBox("Saisissez le mot de passe", "Accès à la macro") <> strPw Then
MsgBox ("Mot de passe erroné")
Exit Sub
End If
'effacement de la liste existante
'Range("J140:B142").ClearContents
Range("A122:Be133").ClearContents
End Sub
Private Sub CommandButton3_Click()
'Impression de la 1ème page en paysage
'-------------------------------------
Range("A1:W48").Select 'définition de la plage de cellules constituant la 1ème page
ActiveSheet.PageSetup.PrintArea = "$A$1:$W$48" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlLandscape 'mise au format paysage
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
'Impression de la 2ème page en portrait
'--------------------------------------
Range("A50:T119").Select 'définition de la plage de cellules constituant la 3ème page
ActiveSheet.PageSetup.PrintArea = "$A$50:$T$119" 'définition de la zone d'impression
ActiveSheet.PageSetup.Orientation = xlPortrait 'mise au format portrait
ActiveSheet.PageSetup.CenterHorizontally = True 'centrage horizontal de la feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'impression
Range("A1").Select
End Sub