Création userform pour un planning

Bonjour,

Je suis bloquer; je souhaiterais configurer la touche VALIDER de mon userform.
Une fois les champs complétés, j'aimerais qu'en cliquant sur la touche VALIDER cela créer l'action dans ma feuille semaine.
Plus précisément c'est un planning des employés, où dans ma userform je saisie les interventions qu'ils ont à effectuer et je voudrais qu'en fonction de ce que je rentre dans ma saisie (date/ heure); il le copie automatiquement en fonction de ma date et ma durée dans la feuille semaine. J'ai fait une macro pour pouvoir faire cela mais je ne comprends pas pourquoi ma macro du bouton VALIDER ne fonctionne pas.

Ci joint mon fichier excel --> Pièce jointe 204104

Merci bcp de votre aide,
Au plaisir de vous lire

Bonjour,

Déjà il y a quelque chose qui me choc dans le code de l'event click de ton bouton Valider :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click()   deb = Replace(ComboBox1, ":", "h"): fi = Replace(ComboBox2, ":", "h"): col = ComboBox10.ListIndex + 2   If TypeName(ctrl) <> "commandbutton" And ctrl = "" Then MsgBox "VOUS N'AVEZ PAS TOUT REMPLIE LE FORMULAIRE " Exit Sub End If   texte = ComboBox3 & vbCrLf & ComboBox9 & vbCrLf & TextBox2 With Sheets(semaine).Range("A8:A18") With Sheets(ComboBox3).Range(Cells(.Find(deb, LookIn:=xlValues).Row, col), Cells(.Find(fi, LookIn:=xlValues).Row, col)) .MergeCells = True .Borders.LineStyle = xlContinuous .Interior.color = RGB(235, 235, 235) .Value = texte End With End With End Sub

---

Que représente ctrl pour toi ?
Je ne trouve aucune déclaration ni initialisation de cette variable.
Du coup on tombe toujours dans le cas ou ctrl = "" et donc on obtiens toujours le message qui indique que le formulaire n'est pas remplis :)

PS : Problème ici également :

Code:

---

With Sheets(semaine).Range("A8:A18")

---

VBA interprète semaine comme une variable, celle-ci n'étant pas initialisé elle est donc vide...
Pour accéder à la feuille semaine :

Code:

---

With Sheets("semaine").Range("A8:A18")

---

Je te conseil d'utiliser Option Explicit dans ton code VBA, ceci t'obligera à déclarer tes variables et ça sera plus clair pour toi :)