Discussion :

[cataleyahebrard]

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 --> Planning-Semaine1.xlsm

Merci bcp de votre aide,
Au plaisir de vous lire

[cerede2000]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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