Discussion :

[Ryadh-Belhadi]

Bonjour a touts
j'ai besoin de votre aides svp
j'ai créé une UserForm pour une base de donner est n'a fonction pas, quant je clic sur les bouton créé il m'affiche ce message message erreur d'exécution '1004':

Private Sub CommandButton1_Click()
Dim derligne As Integer
If MsgBox("confirmer-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("SAISIE").Range("A68").End(x1Up).Row + 1
Cells(derligne, 1) = ComboBox1.Value
Cells(derligne, 2) = TestBox1.Value
Cells(derligne, 3) = TestBox2.Value
Cells(derligne, 4) = TestBox3.Value
Cells(derligne, 5) = TestBox4.Value
Cells(derligne, 6) = ComboBox2.Value
Cells(derligne, 7) = TestBox5.Value
Cells(derligne, 8) = TestBox6.Value
Cells(derligne, 9) = TestBox7.Value
Cells(derligne, 10) = TestBox8.Value
Cells(derligne, 11) = TestBox9.Value
Cells(derligne, 12) = TestBox10.Value
Cells(derligne, 13) = ComboBox3.Value
Cells(derligne, 14) = TestBox11.Value
Cells(derligne, 15) = TestBox12.Value
Cells(derligne, 16) = TestBox13.Value
Cells(derligne, 17) = TestBox14.Value
Cells(derligne, 18) = TestBox15.Value
End If
End Sub

Private Sub CommandButton2_Click()
Unload BaseDeDonner
End Sub


Private Sub CommandButton3_Click()
Dim no_ligne As Integer
no_ligne = ComboBox4.ListIndex + 2
ComboBox1.Value = Cells(no_ligne, 1).Vlue
TestBox1.Value = Cells(no_ligne, 2).Vlue
TestBox2.Value = Cells(no_ligne, 3).Vlue
TestBox3.Value = Cells(no_ligne, 4).Vlue
TestBox4.Value = Cells(no_ligne, 5).Vlue
ComboBox2.Value = Cells(no_ligne, 6).Vlue
TestBox5.Value = Cells(no_ligne, 7).Vlue
TestBox6.Value = Cells(no_ligne, 8).Vlue
TestBox7.Value = Cells(no_ligne, 9).Vlue
TestBox8.Value = Cells(no_ligne, 10).Vlue
TestBox9.Value = Cells(no_ligne, 11).Vlue
TestBox10.Value = Cells(no_ligne, 12).Vlue
ComboBox3.Value = Cells(no_ligne, 13).Vlue
TestBox11.Value = Cells(no_ligne, 14).Vlue
TestBox12.Value = Cells(no_ligne, 15).Vlue
TestBox13.Value = Cells(no_ligne, 16).Vlue
TestBox14.Value = Cells(no_ligne, 17).Vlue
TestBox15.Value = Cells(no_ligne, 18).Vlue

End Sub

[unparia]

Bonjour
Tu as inventé une nouvelle propriété ?
Car je veux croire que (c'est une règle) le code montré ici est un copié/collé rigoureux de ce que tu as écrit, hein ...
Si tel n'est pas le cas --->> montre donc le VRAI code.

[Patrice740]

Bonjour,

Nouvelle propriété et probablement nouveau type d'activeX.
La dure loi du copier/coller et de l'absence de Option Explicit en début de module !

[unparia]

Salut Patrice
Il m'avait échappé, celui-là
Amitiés