test multiple

[mephis]

Bonjour suis bloqué depuis un moment et après multiples recherche je viens vous sollicitez, Merci pour toutes les réponses que vous pourrez me fournir.

Mon problème réside dans le test multiple.

J'ai une textbox et un CommandButton1,
lorsque je marque une valeur dans la textbox et que je click sur le bouton la valeur se met dans A1

jusque là ça va.

Ensuite lorsque je change de valeur dans la textbox et que je click la valeur s'imbrique dans A2

jusque là j'y arrive.

Là où je coince c'est quand A1 et A2 sont pleines je dois écrire dans A3, et ainsi de suite.

Mon programme faisais que lorsque je rentrais ma valeur dans A1 si A2, A3... étaient vide elles se remplissaient aussi.


Merci pour votre aide
Cordialement

 

[Lolote83]

Re : test multiple

Salut,
Mettre ce code suite au clic de ton bouton

Private Sub CommandButton1_Click()
xLig = Range("A65536").End(xlUp).Row + 1
Range("A" & xLig) = TextBox1
End Sub

Voili voilà
@+ Lolote

 

[Pierrot93]

Re : test multiple

Bonjour,

regarde peut être ceci :

If Range("A1") = "" Then
    Range("A1").Value = textbox1.Value
Else
    Range("A65536").End(xlUp)(2).Value = textbox1.Value
End If

bon après midi
@+

 

[mephis]

Re : test multiple

pierrot 93 j'ai pas essayé ta méthode car celle de lolote fonctionne à merveille
.

Merci à vous deux bonne continuation.

 

[Pierrot93]

Re : test multiple

Bonjour,

pierrot 93 j'ai pas essayé ta méthode car celle de lolote fonctionne à merveille

Bah... Sauf que la valeur ne sera jamais renvoyé en A1.... si c'est ce que tu veux...

bonne journée
@+

 

[mephis]

Re : test multiple

c'est vrai mais ce n'est pas très grave.
Et j'ai essayé ton programme mais plus rien ne s'affiche dans ma page.

Bonne journée

 

[Pierrot93]

Re : test multiple

Re,

Et j'ai essayé ton programme mais plus rien ne s'affiche dans ma page.

estrange... fonctionne pourtant chez moi sans souci sous 2003....

 

[mephis]

Re : test multiple

ba oui j'ai juste fais un copier coller et quand je choisis dans mes combobox et que je clique rien ne s'affiche dans ma feuille excel