Discussion :

[azerty53]

Bonjour

Je debute en vba et j'ai un userform avec une zone de texte et un bouton valider.

en fait je souhaiterai inscrire dans la colonne "A" la valeur de mon textbox.

Exemple:

Dans le textbox je tape toto il me place "toto" en A1.
dans le textbox je tape tata il me place "tata" en A2.
dans le textbox je tape titi il me place "titi" en A3.

En gros il faudrait qu'il me le place dans la premiere cellule libre pourvu que ce soit dans la colonne A.

j'ai le resonnement mais je ne sais pas trop comment coder ca

j'espere que quelqu'un pourra m'aider

Merci bcp d'avance

[sk8bcn]

j'ai une solution peu élégante avec linked cells. Je cherche mais je trouve pas comment récupérer la valeur directement.

[azerty53]

j'ai quelque chose de deja codé mais ca fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Dim Cell As Range
Dim x As Integer
 
x = Worksheets(1).Range("A65536").End(xlUp).Row
 
For Each Cell In Worksheets(1).Range("A1:A" & x)
    Worksheets(1).Range = txt_matiere.Value
 
Next Cell
 
End Sub

Ca bug a ce niveau la:

Worksheets(1).Range = txt_matiere.Value

Cordialement

[SfJ5Rpw8]

à voir un truc du genre :

Code :

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

Range("A65535").End(xlUp).Offset(1) =txt_matiere

(en laissant une ligne d'entête en A1..)

[azerty53]

j'ai essayé ce que tu m'as dit bbil

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
 
Dim Cell As Range
Dim x As Integer
 
x = Worksheets(1).Range("A65536").End(xlUp).Row
 
For Each Cell In Worksheets(1).Range("A1:A" & x)
 
    Range("A65535").End(xlUp).Offset(1) = txt_matiere.Value
 
Next Cell
 
End Sub

Seulement au debut il m'ecrit toto 1 fois si je reteste il me le met 2 fois et si je reteste il me l'inscrit 4 fois et ainsi de suite.

J'ai essayé de faire un pas a pas et il tourne dans la boucle for each en fait

Cordialement

[SfJ5Rpw8]

mon code ce limité à une ligne .. pas besoin de ta boucle autour...!

Code :

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

1
2
3
 Private Sub CommandButton1_Click()
    Range("A65535").End(xlUp).Offset(1) = txt_matiere.Value
End Sub

[azerty53]

exact merci bbil.

en fait je me compliquait avec une boucle.

Merci beaucoup !