Discussion :

[valdu69]

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

[pijaku]

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...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

[valdu69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[valdu69]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pijaku]

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.

[valdu69]

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

[BENNASR]

Voila un exemple

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[valdu69]

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.