Discussion :

[cclleemmeenntt]

Bonjour à tous,
j'ai débuté il y a peu la programmation sur VBA pour excel.
J'ai développé un petit programme, mais pas très intuitif pour des utilisateurs lambda...
Je voudrais donc habiller ce programme avec des userforms contenant des Textbox, labels...

Pour le moment je souhaite créer une macro où l'on rentre des valeurs dans des textbox et ces valeurs seraient reportées dans les cellules d'une ligne i
Les valeurs de ces textbox sont amenées à changer à chaque ligne et le principe est de créer une boucle (ici While) pour saisir les valeurs des textbox de chaque ligne.

Pour faire simple dans ma macro, pour une ligne i : la textbox 3 dois enregistrer la valeur la cellule (i,B) et la textbox 4 celle de la cellule (i,C)Userform1.xlsm
Et je voudrais pouvoir saisir pour chaque ligne de nouvelles valeurs à enregistrer dans ma feuille excel.

Voici mon script actuel (ci-dessous), mais le problème est que je ne peux pas saisir à chaque étape les valeurs des textbox 3 et 4. (J'ai aussi essayer avec des Me.controls... mais je n'arrive pas à le faire fonctionner...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub valider_Click()
Dim i As Long
i = 2
While ThisWorkbook.Sheets("Geniteurs").Range("A" & i).Value <> ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    If ThisWorkbook.Sheets("Geniteurs").Range("E" & i).Value > 0 Then
    TextBox1.Text = ThisWorkbook.Sheets("Geniteurs").Range("A" & i).Value
    TextBox2.Text = ThisWorkbook.Sheets("Geniteurs").Range("D" & i).Value
    Label5.Caption = ThisWorkbook.Sheets("Geniteurs").Range("E" & i).Value
    ThisWorkbook.Sheets("Geniteurs").Range("B" & i).Value = TextBox3.Text        (je n'arrive pas à prendre le contrôle à ces deux étapes)
    ThisWorkbook.Sheets("Geniteurs").Range("C" & i).Value = TextBox4.Text
    End If
i = i + 1
Wend
End Sub

Je vous remercie infiniment pour votre aide en espérant que cela est possible

[gnain]

Bonjour,
si tu veux ajouter plusieurs chose dans ta textbox avec une boucle, il faut faire comme ceci

Code :

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

1
2
TextBox1.Text = TextBox1.Text & ThisWorkbook.Sheets("Geniteurs").Range("A" & i).Value
TextBox2.Text = TextBox2.Text & ThisWorkbook.Sheets("Geniteurs").Range("D" & i).Value

[cclleemmeenntt]

Bonjour Gnaim,

Merci beaucoup pour ton aide. J'ai essayé ces codes mais ça ne marche pas. Je me suis sûrement mal exprimé pour décrire ce que je voulais.
A chaque valeur de i dans ma boucle, je souhaite pouvoir entrer de nouvelles valeurs dans les textbox 3 et 4, pour que ces valeurs soient enregistrées dans les cases correspondantes (i, B) et (i,C) de ma feuille excel.
Je pense que le problème principal est que je n'arrive pas à reprendre le contrôle à chaque étape de ma boucle pour rentrer les nouvelles valeurs des textbox. Si j'applique ma formule, je ne peut rentrer qu'une valeur pour chacune des textbox 3 et 4 (en fin de boucle), et ces valeurs seront appliquées à toutes les lignes précédentes.

je ne sais pas si cela est faisable, mais j'espère que toi ou quelqu'un d'autre pourra m'aider. En tout cas merci encore

[Nico Chg]

Bonjour,

C'est le principe même de la boucle !

En gros, tu veux pouvoir changer les valeurs de tes textbox, et les enregistrer dynamiquement à chaque changement ?

Penche toi sur les événements, et plus particulièrement sur valider_change().

[cclleemmeenntt]

Bonjour Nico Chg,

Oui c'est exactement ça!!
J'ai essayé dans cette boucle en remplaçant les textbox par des inputbox pour tester et ça fonctionnait comme je le voulais. Le problème est que je veux utiliser un userform pour rendre l'interface accueillante et sympa et les inputbox rendent ça très moche...

Sinon concernant ta réponse je trouve tt un tas d'évènements (Click, Enter, Exit...) mais pas Change....

Dsl je suis un peu nul en VBA Mais merci beaucoup pour ta réponse

[Nico Chg]

On est d'accord, tu boss sur un Userform, contenant au moins une textbox ? (nommée à tout hasard TextBox1)

Et bien, cette TextBox possède un événement "Change" :

Il faudra mettre ton code dans cet événement, et il va s’exécuter à chaque changement de valeur de la textbox.