Case à cocher et boucle sur les mois

[jorge1201]

Bonjour le forum,

J'aimerais équiper l'USF (extrait de mon projet en PJ) avec une case à cocher qui permettrait à l'utilisateur de déterminer si l'ajout ou les modifications doivent s'appliquer seulement au mois choisi (fonction que l'USF sait déjà faire) ou à tous les mois à venir.

Explications:
L'utilisateur veut ajouter ou modifier une fiche pour le mois de juin et pour le nom Nom3.

Il devrait pouvoir choisir (grâce à la case à coher) entre appliquer ces modifications pour le nom Nom3 au seul mois de juin ou bien à partir du mois de juin et jusqu'au mois de décembre.

J'ai cherché des exemples, sans succès, dans les archives.
Merci d'avance de votre aide et de vos réponses.

Jorge
Excel 2003

 

[Robert]

Re : Case à cocher et boucle sur les mois

Bonsoir Jorge, bonsoir le forum,

Je te propose la modification suivante :

Private Sub cmdValider_Click()
Dim reponse As String
Dim i As Byte 'déclare la variable i (Index)
 
If ComboBoxNom.Value = "" Then 'ComboBox5 = Mois
    MsgBox "Saisir un nom", , "Attention :"
    Exit Sub
End If
 
i = Sheets(TheWorkSheet).Index 'définit l'index de l'onglet renseigné
For Each WS In Sheets 'boucle sur tous les onglets du classeur
    'si la case est cochée et l'index de l'onglet est inférieur à i, va à l'onglet suivant (via l'étiquette "suite")
    If Me.CheckBox1.Value = True And WS.Index < i Then GoTo suite
    'condition 1 : si le nom de l'onglet n'est ni "Menu" ni "Recap"
    If Not WS.Name = "Menu" And Not WS.Name = "Recap" Then
        With WS 'prend en compte l'onglet
            Set cel = .Rows(10).Find(ComboBoxNom) 'définit cel (Recherche le nom dans la ligne 10 de l'onglet
            If Not cel Is Nothing Then 'condition 2 : si le nom existe
                col = cel.Column ' définit la colone col
                .Cells(11, col).Value = Me.TextBox1.Value 'place la donnée de la TextBox1 dans la colonne ligne 11
                .Cells(12, col).Value = Me.TextBox2.Value 'place la donnée de la TextBox2 dans la colonne ligne 12
                .Cells(13, col).Value = Me.TextBox3.Value 'place la donnée de la TextBox3 dans la colonne ligne 13
            End If 'fin de la condition 2
        End With 'fin de la prise en comptye de l'onglet
    End If 'fin de la condition 1
suite: 'étiquette
Next WS

reponse = MsgBox("Voulez-vous saisir une autre fiche?", vbYesNo, "Question :")
If reponse = vbYes Then
    Call EffaceTout
    Me.ComboBoxMois.SetFocus
Else
    Unload Me
End If
End Sub

 

[jorge1201]

Re : Case à cocher et boucle sur les mois

Re le forum, bonsoir Robert,

Merveilleux (et en prime les commentaires!). Merci beaucoup.
Le CheckBox effectue le travail à la perfection et correspond à ma demande.

Cependant, lorsque la CheckBox n'est pas cochée, le bouton Valider applique maintenant les modifications à tous les mois. Initialement, le bouton Valider ne devait effectuer les modifications que pour le mois et le nom choisis.

Peux-t-on corriger ce problème? Merci encore pour ton aide.
Jorge

 

[Robert]

Re : Case à cocher et boucle sur les mois

Bonsoir Jorge, bonsoir le forum,

Désolé j'avais mal compris... Une version 02 pour corriger cette erreur :

 

[jorge1201]

Re : Case à cocher et boucle sur les mois

Bonjour Robert, le forum,

Je suis toujours émerveillé par vos connaissances et votre soucis du partage solidaire. Bravo!

Robert, le code marche à la perfection. Merci beaucoup et bon dimanche.
Jorge