Erreur 1004

Question

Je suis tout nouveau dans l'utilisation de VBA. J'ai simplement créer un userform sur lequel j'ai placé 2 ComboBox et 4 textBox J'ai aussi rajouté un bouton de commande Je voudrais simplement remplir mes ComboBox et textBox puis clicker sur le bouton et que toutes les données soit automatiquement enregistrées dans un tableau et que chaque nouvel enregistrement se mette à la ligne suivante. En suivant des tutos sur internet j'ai essayé de me faire mon propre code mais je tombe sur l'erreur 1004 Voici le code : Private Sub CommandButton1_Click() Dim L As Integer L = Sheets("Saisie").Range("A" & Rows.Count).End(x1Up).Row + 1 Range("A" & L).Value = ComboBox1 Range("B" & L).Value = TextBox1 Range("C" & L).Value = TextBox2 Range("D" & L).Value = ComboBox2 Range("E" & L).Value = TextBox3 Range("F" & L).Value = TextBox4 End Sub Merci d'avance de votre aide...

M12 · Answer

Ton erreur vient du fait que tu déclares pour trouver la dernière ligne non vide End(x1Up) ce n'est pas le chiffre 1 mais la lettre l End(xlUp)...

GVIALLES · Answer

Bonjour Geo-fusca,

Je propose le code suivant :

Private Sub CommandButton1_Click()
Dim L As Integer
Dim oSheet As Worksheet
    Set oSheet = Sheets("Saisie")
    L = oSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
    oSheet.Range("A" & L).Value = ComboBox1
    oSheet.Range("B" & L).Value = TextBox1
    oSheet.Range("C" & L).Value = TextBox2
    oSheet.Range("D" & L).Value = ComboBox2
    oSheet.Range("E" & L).Value = TextBox3
    oSheet.Range("F" & L).Value = TextBox4
End Sub

M12 · Answer

Re,

oSheet car la feuille est déclarer en variable "objet" donc o pour objet

c'est un codage normalement utilisé pour reconnaitre si c'est une variable "String" avec un s ou un "Integer" avec un i

sNom par exemple pour un nom

iCol par exemple pour le N° de la colonne

etc

Dans ton exemple tu aurais pu déclarer ta variable "L" en iLigne