XL 2013 Transfert des Sélections des Combobox et Affichage dans la Feuille

[chaelie2015]

Bonjour Forum
Je souhaite à chaque fois que le bouton 'CBn_Valider' est cliqué, transférer les informations de la combobox 'CBox_MotifAbsence' et des dates sélectionnées dans 'CBox_DateMotifDebut' et 'CBox_DateMotifFin' vers la feuille 'CRT'.et afficher le contenu choisi dans 'CBox_MotifAbsence' dans la colonne I17:I47 de la feuille 'CRT' pour la plage de dates définie par 'CBox_DateMotifDebut' et 'CBox_DateMotifFin'.
J'espère que ma préoccupation est bien expliquée.
Par exemple, si j'ai pris un congé du 3 au 10, alors affichez les informations de congé dans les cases de la colonne I correspondant à ces dates. (voir le fichier joint)
Merci

 

[ChTi160]

Bonjour Charlie
Une approche, qui ne répond pas à tout (ex gestion 1/2Cp etc etc)
Jean marie

 

[chaelie2015]

Bonjour

Bonjour Charlie
Une approche, qui ne répond pas à tout (ex gestion 1/2Cp etc etc)
Jean marie

Bonsoir ChTi160, le forum
Après le premier test, tout se déroule de manière très satisfaisante. À l'exception des situations où je relance USF, il rencontre des problèmes.
Merci

 

[ChTi160]

Re
Je n'ai fait que répondre à

Transfert des Sélections des Combobox et Affichage dans la Feuille

Je regarde demain ! Après Que tu m'ais expliqué ceux-ci .

À l'exception des situations où je relance USF, il rencontre des problèmes.

Bonne nuit
Jean marie

 

[job75]

Bonsoir chaelie2015, ChTi160,

Cette macro devrait fonctionner dans tous les cas de figure :

Private Sub CBn_Valider_Click()
If CBox_MotifAbsence.ListIndex = -1 Then CBox_MotifAbsence = "": CBox_MotifAbsence.SetFocus: Exit Sub
If CBox_DateMotifDebut.Visible And CBox_DateMotifDebut.ListIndex = -1 Then CBox_DateMotifDebut = "": CBox_DateMotifDebut.SetFocus: Exit Sub
If CBox_DateMotifFin.ListIndex = -1 Then CBox_DateMotifFin = "": CBox_DateMotifFin.SetFocus: Exit Sub
Dim deb, fin, jour
If CBox_DateMotifDebut.Visible Then deb = Day(CDate(CBox_DateMotifDebut)) Else deb = Day(CDate(CBox_DateMotifFin))
fin = Day(CDate(CBox_DateMotifFin))
With Sheets("CRT")
    For jour = 1 To 31
        If jour >= deb And jour <= fin Then .Cells(jour + 16, "I") = CBox_MotifAbsence Else .Cells(jour + 16, "I") = ""
    Next
End With
End Sub

Edit : ajouté l'effacement des ComboBox.

A+

 

[chaelie2015]

Bonsoir Job
Je vous remercie, c'est excellent. Je souhaite apporter une amélioration au bouton de validation.
Lorsque je clique dessus, j'aimerais qu'il affiche un message demandant : "Souhaitez-vous ajouter un autre motif ?"
Si la réponse est non, le code actuel sera appliqué.
En revanche, si la réponse est oui, je souhaite transférer les données qui ont étés saisies vers la feuille, et ajouter ces nouvelles données , et ainsi de suite si l'utilisateur répond "oui".
A+

 

[job75]

Bonjour chaelie2015, le forum,

Il faut préciser ce que vous entendez par "ajouter un autre motif".

Que faut-il faire des données déjà entrées dans la plage I17:I47 ? Le code actuel les supprime.

A+

 

[chaelie2015]

Bonjour
Je souhaite saisir plusieurs motifs (par exemple : congé, CP et mission) dans une feuille via un UserForm.
A+

 

[job75]

Je ne vous ai pas demandé ce que vous voulez faire, répondez à la question posée au poste #7.

 

[job75]

Perso je créerais un planning de 2023 à 2030 avec les motifs entrés les uns à la suite des autres :

Private Sub CBn_Valider_Click()
If CBox_MotifAbsence.ListIndex = -1 Then CBox_MotifAbsence = "": CBox_MotifAbsence.SetFocus: Exit Sub
If CBox_DateMotifDebut.Visible And CBox_DateMotifDebut.ListIndex = -1 Then CBox_DateMotifDebut = "": CBox_DateMotifDebut.SetFocus: Exit Sub
If CBox_DateMotifFin.ListIndex = -1 Then CBox_DateMotifFin = "": CBox_DateMotifFin.SetFocus: Exit Sub
Dim deb, fin, temp, c As Range
If CBox_DateMotifDebut.Visible Then deb = CLng(CDate(CBox_DateMotifDebut)) Else deb = CLng(CDate(CBox_DateMotifFin))
fin = CLng(CDate(CBox_DateMotifFin))
If deb > fin Then temp = deb: deb = fin: fin = temp
With Sheets("CRT")
    Set c = .Cells(Application.Match(deb, .Columns("A"), 0), "I")
    c.Resize(fin - deb + 1) = CBox_MotifAbsence
    c.Select
End With
End Sub

Les motifs entrés précédemment sont écrasés éventuellement.

 

[job75]

Notez que j'ai ajouté la macro :

Private Sub CBox_Année_Change()
CBox_Mois_Change
End Sub

 

[chaelie2015]

Bonjour chaelie2015, le forum,

Il faut préciser ce que vous entendez par "ajouter un autre motif".

Que faut-il faire des données déjà entrées dans la plage I17:I47 ? Le code actuel les supprime.

A+

Re
La feuille CRT est un modèle. En ce qui concerne l'option 'ajouter un autre motif', je souhaite dire qu'il s'agit de sélectionner un motif supplémentaire en plus des données déjà enregistrées précédemment pour l'ajouter à la même feuille.
A+

 

[job75]

Je reste sur ce que j'ai fait au post #10.

 

[chaelie2015]

VOICI UN exemple

 

[chaelie2015]

VOICI UN exemple