bonsoir
je fais appel a vous car j'ai un message d'erreur :380 impossible de definir la propriete text.valeur de propriete non valide

ce message intervient sur le code
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Button2_Click()
flag = True
 
    operation = 1
    Dim I As Byte, Ligne_Vide As Double
 
    Flag_Entrée = True
    Button2.Visible = False
    Validation.Visible = True
    SpinButton1.Visible = False
    flag = True
 
 
    Ligne_Vide = Sheets("bd").Range("A65536").End(xlUp).Row + 1
    GRILLE.compteur = Ligne_Vide - 1
    flag = 0
    ' on met a blanc les combobox
'670384396
 
    For I = 1 To 23
         Controls("cbox" & (I)).Text = "" ' ligne a debuguer:aie:  
    Next I
 
    Call autoecCombo2
    ' on valide l'introduction de données
    ' modification du format de la ligne
    DernièreLigne = Sheets("bd").Range("A65536").End(xlUp).Row + 1
    compteur.Caption = " ligne : " & DernièreLigne
    Rows("2:2").Copy
    Range("A" & DernièreLigne).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    flag = True
    CommandButton3.Caption = "Annuler"
    GRILLE.Caption = " Création d'une fiche"
End Sub
voila le Button2 pour creer une ligne a la fin de mon tableau ensuite j'eface toute les données de mon userform pour saisir dans chaque combobox puis en validant toutes mes saisies sont enregistrées