Erreur de compilation

Re : Erreur de compilation

Bonjour,

il faut un début et une fin de procédure :
bonne journée
@+

Re : Erreur de compilation

Merci, cela fonctionne, sauf que je peux écrire n'importe quoi dans le formulaire car le format de la date n'est pas pris en compte.
P ê que c'est pas la bonne syntaxe?!
J'ai un autre problème, j'ai créé 3 combobox.
La première fonctionne avec le code suivant :
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 3
ComboBox1.List() = Array("", "Matérielles", "Humaines", "Financières")
End Sub

Mais les 2 autres ne fonctionne pas avec le code suivant :
Private Sub ComboBox2_Change()
ComboBox2.ColumnCount = 4
ComboBox2.List() = Array("", "CRHA", "Structure FFH", "Structure non FFH", "Sportif")
End Sub

Private Sub ComboBox3_Change()
ComboBox3.ColumnCount = 5
ComboBox3.List() = Array("", "En cour", "Validée", "Refusée")
End Sub

Re : Erreur de compilation

Re,

place peut être tout dans la même procé dure :

Re : Erreur de compilation

Ah super ! j'avais beau cherché dans les tutoriels,je ne trouvais pas de réponse !
j'ai pas le feeling VBA

Re : Erreur de compilation

Re bonjour,
J'ai à nouveau une erreur de compilation...
Je souhaite que la combobox5 n'ai pas de valeurs enregistrées mais qu'elles s'enregistre au fur et à mesure que je les saisies.
Voici le code :

Option Explicit
Dim F As Worksheet
Private Sub UserForm1_Activate()
Set F = BD
iniC
End Sub

Private Sub ini(C)
C.BD = F.Range("A1", F.[A6500].End(xlUp)).Value
C = ""
End Sub

'Pour le bouton enregistrer
Private Sub CommandButton1_Click()
If Not F.[A:A].Find(C) Is Nothing Then le message qui apparait est variable non définie
MsgBox "déjà incluse dans la liste", 16, "Saisie invalidée..."
C = "": Exit Sub
End If
If MsgBox("Confirmez-vous l’insertion de cette nouvelle aide ?", 4, "Demande de confirmation d’ajout") = 7 Then C = "": Exit Sub
F.Cells(F.[A65536].End(xlUp).Row, 1)(2) = C
iniC
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="crha33", UserInterfaceOnly:=True
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion de cette nouvelle aide ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
L = Sheets("BD").Range("A65536").End(xlUp).Row + 1
Range("A" & L).Value = ComboBox5
Dim Date1 As Date
Date1 = DTPicker1.Value
Range("B" & L).Value = Date1
Range("C" & L).Value = ComboBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = ComboBox2
Range("G" & L).Value = ComboBox3
Range("H" & L).Value = ComboBox4
Dim Date2 As Date
Date2 = DTPicker2.Value
Range("I" & L).Value = Date2
Range("J" & L).Value = TextBox4
Range("K" & L).Value = TextBox5
Dim Date3 As Date
Date3 = DTPicker3.Value
Range("L" & L).Value = Date3
Range("N" & L).Value = TextBox6
Range("O" & L).Value = TextBox7
Range("P" & L).Value = TextBox8
Range("Q" & L).Value = TextBox9
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = ""
Next Ctrl
End If
End Sub

Je ne peux joindre le fichier car il est trop lourd...
Merci d'avance pour votre aide !

Re : Erreur de compilation

Bonjour,

si tu mets "option explicit" en tête de module, il faut définir toute tes variable :
"Dim c As ...." et je ne vois pas que "c" soit définie....

bonne journée
@+

Re : Erreur de compilation

J'ai enlevé Option Explicit mais j'ai toujours un message :
'erreur d'exécution 91' Variable objet ou variable de bloc with non définie

Je comprend ce que je dois mettre a C pour le définir sachant que l'objectif est que le texte entré dans la combobox5 doit rester en mémoire?

Merci de l'aide.......

Re : Erreur de compilation

re

voir ici Pierrot93

Re : Erreur de compilation

Re,
bonjour Si et merci Si

Re : Erreur de compilation

Merci pour votre aide je suis pas une pro en vba ! Il des choses que je maitrise, d'autres non...
Encore merci !