Aide VBA
Bonjour à tous,
J'ai suivie un tuto mais je me retrouve coincé...
J'obtiens 2 erreurs quand je lance ma macro.. erreur 1004 erreur définie par l'application ou par l'objet.
Je peux saisir des données mais impossible de valider.. erreur 1004.
Je tourne et retourne mais ne trouve pas de solution, si qq'un aurait une lumière
En PJ mon fichier pour mieux comprendre mon problème.
Merci d'avance à vous
Bonjour,
Tu ajoutes la commande Formulaire... à la barre d'outils Accès rapide !
Cordialement.
Private Sub CommandButton1_Click()
Dim derligne As Integer
If MsgBox("Confirmez-vous l'ajout de ces informations ?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("Liste").Range("A456541").End(x1Up).Row + 1
Cells(derligne, 1) = TextBox1.Value
End If
End Sub
-L'erreur est surlignée en rouge)
Mak_S0us, le forum,
Tu as écrit : End(x1Up) ... en fait c'est End(XLUP)
LaCéline
laceline a écrit :Mak_S0us, le forum,
Tu as écrit : End(x1Up) ... en fait c'est End(XLUP)
LaCéline
Merci, ça fonctionne mais j'ai un autre problème maintenant, je saisi mes données, je valide, mais j'ai qu'une donnée qui s'affiche, les autres ne s'affichent pas. Il y a une erreur dans mon code ?
Private Sub CommandButton3_Click()
Dim no_ligne As Integer
no_ligne = ComboBox1_Change.ListIndex + 2
TextBox1.Value = Cells(no_ligne, 1).Value
TextBox2.Value = Cells(no_ligne, 2).Value
TextBox3.Value = Cells(no_ligne, 3).Value
TextBox4.Value = Cells(no_ligne, 4).Value
TextBox5.Value = Cells(no_ligne, 5).Value
TextBox6.Value = Cells(no_ligne, 6).Value
TextBox7.Value = Cells(no_ligne, 7).Value
TextBox8.Value = Cells(no_ligne, 8).Value
TextBox9.Value = Cells(no_ligne, 9).Value
TextBox10.Value = Cells(no_ligne, 10).Value
TextBox11.Value = Cells(no_ligne, 11).Value
TextBox12.Value = Cells(no_ligne, 12).Value
TextBox13.Value = Cells(no_ligne, 13).Value
TextBox14.Value = Cells(no_ligne, 14).Value
TextBox15.Value = Cells(no_ligne, 15).Value
TextBox16.Value = Cells(no_ligne, 16).Value
TextBox17.Value = Cells(no_ligne, 17).Value
TextBox18.Value = Cells(no_ligne, 18).Value
TextBox19.Value = Cells(no_ligne, 19).Value
TextBox20.Value = Cells(no_ligne, 20).Value
TextBox21.Value = Cells(no_ligne, 21).Value
TextBox22.Value = Cells(no_ligne, 22).Value
TextBox23.Value = Cells(no_ligne, 23).Value
TextBox24.Value = Cells(no_ligne, 24).Value
TextBox25.Value = Cells(no_ligne, 25).Value
TextBox26.Value = Cells(no_ligne, 26).Value
TextBox27.Value = Cells(no_ligne, 27).Value
TextBox28.Value = Cells(no_ligne, 28).Value
End Sub
MaK_S0us, MFerrand, le forum,
Si j'ai bien compris ta demande.
Un essai pour la saisie de données qui s'inscrivent sur la prochaine ligne vide ... en cliquant sur le bouton Valider.
LaCéline
laceline a écrit :MaK_S0us, MFerrand, le forum,
Si j'ai bien compris ta demande.
Un essai pour la saisie de données qui s'inscrivent sur la prochaine ligne vide ... en cliquant sur le bouton Valider.
LaCéline
C'est exactement ça ! Ton exemple est parfait !! Merci !!
Tu pourrais m'expliquer d'où vient mon erreur ?
MaK_S0us, le forum,
... Tu pourrais m'expliquer d'où vient mon erreur ? ...
En premier, tu utilisais CommandButton3, alors que le bouton "Valider" est le CommandButton1.
C'est pour cela qu'on peut renommer les CommandButton genre CButton_Valider.
Ensuite, tu écrivais TextBox1.Value = Cells(no_ligne, 1).Value (de la feuille vers le TextBox )
Si tu veux écrire dans la feuille depuis le Textbox, il faut faire l'inverse Cells(no_ligne, 1).Value = TextBox1.Value
Puis, il faut faire correspondre le numéro de la colonne Cells(no_ligne, 1) avec le numéro du TextBox (TextBox1[/b]) .
Ce n'est pas toujours de 1 à 1. Dans ton cas, la colonne 4 correspond au textbox 3 ... la colonne 9 correspond au textbox 7 etc.
LaCéline
laceline a écrit :MaK_S0us, le forum,
... Tu pourrais m'expliquer d'où vient mon erreur ? ...
En premier, tu utilisais CommandButton3, alors que le bouton "Valider" est le CommandButton1.
C'est pour cela qu'on peut renommer les CommandButton genre CButton_Valider.
Ensuite, tu écrivais TextBox1.Value = Cells(no_ligne, 1).Value (de la feuille vers le TextBox )
Si tu veux écrire dans la feuille depuis le Textbox, il faut faire l'inverse Cells(no_ligne, 1).Value = TextBox1.Value
Puis, il faut faire correspondre le numéro de la colonne Cells(no_ligne, 1) avec le numéro du TextBox (TextBox1[/b]) .
Ce n'est pas toujours de 1 à 1. Dans ton cas, la colonne 4 correspond au textbox 3 ... la colonne 9 correspond au textbox 7 etc.
LaCéline
J'ai compris maintenant en comparant les lignes de code.
Encore merci pour ton aide !