XL 2019 Chekbox a coché et action liée

farid · 25 Avril 2022

Bonjour,
dans cette macro qui fonctionne très bien pour chekbox1 avec call janvier, est-il possible dans la même macro chekbox 2 avec call février et ainsi de suite pour les 12 mois.

Private Sub CommandButton1_Click()
If CheckBox1 Then
Call Janvier
Else
Unload moisimprime
Alerteimpression.Show
End If

End Sub

par avance merci

fanch55 · 25 Avril 2022

farid à dit:
Merci pour ce retour. Afin d'être sûr d'avoir bien compris, mais surtout de m'être compris, ta macro aura le même effet que celui que je te mets en copie (qui ne fonctionne pas).

On peut dire cela :
Le code proposé parcourt toutes les checkboxes existantes dans l'userform et exécute la proc désignée par le caption du checkbox .
L'inconvénient, c'est qu'il ne faut pas d'autres checkboxes ...

Un palliatif serait de donner un nom spécifique à chaque checkbox et de le tester dans la boucle :
Par exemple en nommant checkbox1 en chkmois1, checkbox2 en chkmois2, etc ...

VB:

Option Compare Text
Private Sub CommandButton1_Click()
Dim Ctrl As Control
    For Each Ctrl In Controls
        If Ctrl.Name Like "chkmois*" Then...

fanch55 · 25 Avril 2022

Bonjour,
Ce sont des controles de formulaire ( Userform ) ou de feuille ?

fanch55 · 25 Avril 2022

Une proposition à la volée sur des checkbox de feuille ( code dans feuille )

VB:

Private Sub CommandButton1_Click()
    Mois = Array("Janvier", "Février", "etc...")
    For i = 0 To UBound(Mois)
        If Shapes("Checkbox" & i + 1).OLEFormat.Object.Object Then
            Application.Run Me.Name & "." & Mois(i)
        Else
            Unload moisimprime
            Alerteimpression.Show
        End If
    Next
End Sub
Sub Janvier()
    MsgBox "coucou"
End Sub

farid · 25 Avril 2022

fanch55 à dit:
Bonjour,
Ce sont des controles de formulaire ( Userform ) ou de feuille ?

Bonjour Fanch55 , oups oublié de préciser, Userform.
par avance , merci

fanch55 · 25 Avril 2022

Pour l'userform fourni :

VB:

Private Sub CommandButton1_Click()
Dim Ctrl As Control
    For Each Ctrl In Controls
        If TypeOf Ctrl Is msforms.CheckBox Then
            If Ctrl Then Application.Run Ctrl.Caption
        End If
    Next
    Unload moisimprime
    'Alerteimpression.Show
End Sub

farid · 25 Avril 2022

fanch55 à dit:

Pour l'userform fourni :

VB:

Private Sub CommandButton1_Click()
Dim Ctrl As Control
    For Each Ctrl In Controls
        If TypeOf Ctrl Is msforms.CheckBox Then
            If Ctrl Then Application.Run Ctrl.Caption
        End If
    Next
    Unload moisimprime
    'Alerteimpression.Show
End Sub

Merci pour ce retour. Afin d'être sûr d'avoir bien compris, mais surtout de m'être compris, ta macro aura le même effet que celui que je te mets en copie (qui ne fonctionne pas).
Private Sub CommandButton1_Click()
If CheckBox1 Then
Call janvier
If CheckBox2 Then
Call février
If CheckBox3 Then
Call mars
'et ainsi de suite jusqu'à décembre
Else
Unload moisimprime
Alerteimpression.Show
End If
end if
end if

End Sub

merci

fanch55 · 25 Avril 2022

farid à dit:
Merci pour ce retour. Afin d'être sûr d'avoir bien compris, mais surtout de m'être compris, ta macro aura le même effet que celui que je te mets en copie (qui ne fonctionne pas).

On peut dire cela :
Le code proposé parcourt toutes les checkboxes existantes dans l'userform et exécute la proc désignée par le caption du checkbox .
L'inconvénient, c'est qu'il ne faut pas d'autres checkboxes ...

Un palliatif serait de donner un nom spécifique à chaque checkbox et de le tester dans la boucle :
Par exemple en nommant checkbox1 en chkmois1, checkbox2 en chkmois2, etc ...

VB:

Option Compare Text
Private Sub CommandButton1_Click()
Dim Ctrl As Control
    For Each Ctrl In Controls
        If Ctrl.Name Like "chkmois*" Then
            Application.Run Ctrl.Caption
        End If
    Next
    Unload Me
    'Alerteimpression.Show
End Sub

farid · 26 Avril 2022

fanch55 à dit:
On peut dire cela :
Le code proposé parcourt toutes les checkboxes existantes dans l'userform et exécute la proc désignée par le caption du checkbox .
L'inconvénient, c'est qu'il ne faut pas d'autres checkboxes ...

Un palliatif serait de donner un nom spécifique à chaque checkbox et de le tester dans la boucle :
Par exemple en nommant checkbox1 en chkmois1, checkbox2 en chkmois2, etc ...

VB:

Option Compare Text Private Sub CommandButton1_Click() Dim Ctrl As Control For Each Ctrl In Controls If Ctrl.Name Like "chkmois*" Then Application.Run Ctrl.Caption End If Next Unload Me 'Alerteimpression.Show End Sub

Bonjour fanch55,
merci pour ce retour et explication, Du coup j'ai opté pour la première solution qui fonctionne très bien.
Je souhaiterais aller plus loin sur ce projet et profiter de tes compétences en ce domaine à savoir.
Serait-il possible après avoir coché le mois et validé via le bouton que le checkbox1c(janvier dans l'exemple du fichier) le rendre invisible et le remplacer par un textbox, j'espère que je me suis fait comprendre dans ma demande.

fanch55 · 26 Avril 2022

Cela ne servira à rien car l'userform est déchargé à chaque fois qu'on valide ....

farid · 27 Avril 2022

fanch55 à dit:
Cela ne servira à rien car l'userform est déchargé à chaque fois qu'on valide ....

Bonjour fanch ,
merci pour ces précisions. En effet, je conserve donc ta solution qui fonctionne très bien.
En restant dans le même thème, voici la macro qui fonctionne très bien, cependant avec ta solution, cette macro fonctionne uniquement de l'année en cours avec le mois en cours et j'aurai souhaité qu'elle puisse fonctionner sur un mois défini grossièrement pour le mois de janvier
Sub Impression()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " & Janvier(Now())
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Month(Now())) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If
End Sub

au lieu de :

Sub Impression()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " & Month(Now())
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Month(Now())) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If
End Sub

si tu as une solution, j'en serai très ravi.

Par avance, merci

fanch55 · 27 Avril 2022

Cela n'a plus rien à voir avec le post initial.
Il vaudrait mieux que tu fasses une nouvelle demande

farid · 27 Avril 2022

fanch55 à dit:
Cela n'a plus rien à voir avec le post initial.
Il vaudrait mieux que tu fasses une nouvelle demande

Ok je t'en remercie en te souhaitant une bonne soirée

XL 2019 Chekbox a coché et action liée

farid

XLDnaute Occasionnel

fanch55

fanch55

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

farid

XLDnaute Occasionnel

Discussions similaires

XL 2019 Chekbox a coché et action liée

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency