User Form pour données dans des cellules

Bonjour,

Voila je suis Novice dans l'utilisation de VBA. J'ai créé un fichier d'aliment avec plusieurs valeurs en face de ses aliments.

Je voudrai que au lieu de rentrer les noms et valeurs des aliments directement dans excel, les rentrer dans un UserForm (textBox....)
J'ai trouvé le code pour faire correspondre un text box à une cellule : Range = ("A1") = TextBox1.Value. Et ça fonctionne.

Mais lorsque je rentre une nouvelle valeur dans un userform, celle-ci remplace celle dans la cellule A1, ce qui semble logique.
Est ce qu'il y aurai un moyen pour aller à la ligne suivante automatiquement (A2 puis A3....)?

Merci de vos réponses

Bonjour,

En tant que novice, si tu commençais par nous montrer (via un copié/collé rigoureux***) le code complet de ton UserForm?
Ce code, dans ta réponse, place le entre les balises [CODE ] [/CODE].
Pour cela, clic sur le # dans l'entête de ton futur message.

*** Copié/collé rigoureux parce que, à titre d'exemple, il serait extrêmement surprenant que : Range = ("A1") = TextBox1.Value fonctionne...

Bonjour
Pour enregistrer à la ligne suivante bien sure il faut chercher la dernière ligne non vide, ajouter 1 et écrire la bas

Code:

---

1 2 3 4 5

Dim j As Long With Sheets("Feuil1") ' à adapter au nom de ton onglet j = .Range("A" & Rows.Count).End(xlUp).Row + 1 ' ici va voir la dernière ligne non vide de la colonne A et ajoute 1 (+1) .Range("A" & j) = TextBox1.Value 'enregistre la valeur de textbox1 dans la première cellule vide de la colonne A end with

---

Bonne journée à toutes et à tous , bonne fête et bonne ANNÉE 2019 (Un paquet complet offert :aie: :mouarf: )

Re Bonjour,

okay j'ai bien compris donc le code pour quand je rentre dans une texte box il soit copié dans une cellule (ici A2) est celui-la.

Code:

---

1 2 3

Private Sub TextBox1_Change() Range("A2") = TextBox1.Value End Sub

---

Je confirme que cela marche, quand je rentre dans TextBox1 ça rentre quelque chose dans A2. Mais lorsque que je rentre à nouveau dans TextBox1 ça remplace le texte présenté précédemment.

Donc comment faire pour que au lieu que le texte soit rentré dans la cellule A2, il soit rentré dans A3 puis A4 etc.

Merci de vos réponses

Citation:

---

Envoyé par BENNASR

Bonjour
Pour enregistrer à la ligne suivante bien sure il faut chercher la dernière ligne non vide, ajouter 1 et écrire la bas

Code:

---

1 2 3 4 5

Dim j As Long With Sheets("Feuil1") ' à adapter au nom de ton onglet j = .Range("A" & Rows.Count).End(xlUp).Row + 1 ' ici va voir la dernière ligne non vide de la colonne A et ajoute 1 (+1) .Range("A" & j) = TextBox1.Value 'enregistre la valeur de textbox1 dans la première cellule vide de la colonne A end with

---

Bonne journée à toutes et à tous , bonne fête et bonne ANNÉE 2019 (Un paquet complet offert :aie: :mouarf: )

---

Okay merci pour ta réponse j'ai essayé le code mais cela ne fonctionne toujours pas, je n'ai peut etre pas copié le code comme il faut

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox1_Change() Dim j As Long With Sheets("Concentré") ' à adapter au nom de ton onglet j = .Range("A" & Rows.Count).End(xlUp).Row + 1 ' ici va voir la dernière ligne non vide de la colonne A et ajoute 1 (+1) .Range("A" & j) = TextBox1.Value 'enregistre la valeur de textbox1 dans la première cellule vide de la colonne A End With End Sub

---

Merci encore

Bonjour,

Utiliser l'événement Change() du TextBox pour cela est une très mauvaise idée.
Je suppose, par ailleurs, que vous remplissez plusieurs TextBox, correspondants tous à une ligne de votre tableau?

Si oui, il vous faut simplement un bouton (CommandButton) pour valider les saisies.

Le code de ce bouton devra :
> Trouver le numéro de la première ligne vide,
> Y stocker le contenu des différents TextBox dans leurs colonnes respectives.

Très simple donc.
Une petite recherche sur le forum te permettra de tout trouver.

Alors, comme je l'ai dit je ne connais pas beaucoup VBA donc je n'ai malheureusement rien compris
Mais Merci quand meme

Voila un exemple

Tu es débutant, donc il te faut apprendre les bases.
Ce n'est pas en te donnant le code ou un classeur exemple que tu vas progresser.

1- Lecture : https://silkyroad.developpez.com/VBA/ControlesUserForm/

2- l'événement Change d'un TextBox, tu l'utilises via le code :

Code:

---

1 2 3

Private Sub TextBox1_Change()   End Sub

---

Or, cet événement se déclenche à chaque fois que tu frappes une touche de ton clavier.
Il ne peut donc pas convenir.

Je te propose donc, de dessiner sur ton Userform, un CommandButton qui te servira à valider.

Tu peux utiliser pour cela, l'événement clic de ce bouton (reprise du code de Bennasr) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim Ligne As Long With Sheets("Feuil1") ' à adapter au nom de ton onglet Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1 ' ici va voir la dernière ligne non vide de la colonne A et ajoute 1 (+1) .Range("A" & Ligne) = TextBox1.Value 'enregistre la valeur de textbox1 dans la première cellule vide de la colonne A '.Range("B" & Ligne) = TextBox2.Value 'enregistre la valeur de textbox2 dans la première cellule vide de la colonne B '.Range("C" & Ligne) = TextBox3.Value 'enregistre la valeur de textbox3 dans la première cellule vide de la colonne C '.Range("D" & Ligne) = ComboBox1.Value 'enregistre la valeur de combobox1 dans la première cellule vide de la colonne D End with End Sub

---

Merci à Bennasar,

J'ai repris ton document, j'ai un peu modifié le code pour qu'il s'adapte au mien mais ça marche nickel.