Le forum bonjour
Pendant que d'autres sont en congés à se dorer la pillule, d'autres sont sur ce forum ^^
J'ai un soucis avec ma macro lié à une Userform d'insertion
6 Textbox et 2 combobox à inserer dans les colonnes appropriés
et lorsque je veux les insérer, j'ai l'erreur 1004 qui apparait avec le message suivant :
"la méthode range de l'objet _global a échoué "
Lorsque je veux déboguer, j'ai ma première ligne (la ligne C) qui se surligne
Voici le code :
Private Sub CommandButton1_Click()
Dim a As Integer
NomFeuille = "ATTRIBUTION COC MAN"
I = Range("I65536").End(xlUp).Row + 1
Range("I1").Select
Range("C" & a).Value = TextBox2.Value 'Article
Range("D" & a).Value = TextBox4.Value 'OF
Range("E" & a).Value = TextBox5.Value 'Nombre de pièces
Range("F" & a).Value = ComboBox2.Value 'Organisme de réception
Range("G" & a).Value = TextBox7.Value 'Date
Range("H" & a).Value = ComboBox1.Value 'Atelier
Range("I" & a).Value = TextBox1.Value 'Nom
Range("J" & a).Value = TextBox6.Value 'Commentaires
Unload Me
End Sub
Si vous voulez avoir le fichier Excel, dites le moi, je vous le mettrez en ligne.
Si vous pouvez m'aidez la dessus, je vous en remercie d'avance!
Pendant que d'autres sont en congés à se dorer la pillule, d'autres sont sur ce forum ^^
J'ai un soucis avec ma macro lié à une Userform d'insertion
6 Textbox et 2 combobox à inserer dans les colonnes appropriés
et lorsque je veux les insérer, j'ai l'erreur 1004 qui apparait avec le message suivant :
"la méthode range de l'objet _global a échoué "
Lorsque je veux déboguer, j'ai ma première ligne (la ligne C) qui se surligne
Voici le code :
Private Sub CommandButton1_Click()
Dim a As Integer
NomFeuille = "ATTRIBUTION COC MAN"
I = Range("I65536").End(xlUp).Row + 1
Range("I1").Select
Range("C" & a).Value = TextBox2.Value 'Article
Range("D" & a).Value = TextBox4.Value 'OF
Range("E" & a).Value = TextBox5.Value 'Nombre de pièces
Range("F" & a).Value = ComboBox2.Value 'Organisme de réception
Range("G" & a).Value = TextBox7.Value 'Date
Range("H" & a).Value = ComboBox1.Value 'Atelier
Range("I" & a).Value = TextBox1.Value 'Nom
Range("J" & a).Value = TextBox6.Value 'Commentaires
Unload Me
End Sub
Si vous voulez avoir le fichier Excel, dites le moi, je vous le mettrez en ligne.
Si vous pouvez m'aidez la dessus, je vous en remercie d'avance!