Discussion :

[sylvain56ez]

Bonjour à tous,
Comme le précise le titre j'ai besoin d'aide pour une chose simple pour certain mais pas facile pour d'autre ( moi même ).
Voulant crée un projet seul j'ai chercher des heures durant sur internet sans trouver la réponse a ce que je cherche , malgré tout les sujet qui existe aucun n'a pu m'aider .

voila ma demande suivis du code que j'ai fais :

j'ai crée un userform , dans cette userform il y a une textbox + un bouton valider (commandbutton)

je souhaite que quand je valide ca marque dans une certaine feuil puis la case A1 ( par exemple)

pour le moment aucun soucis tout fonctionne, Mais ! c,'est la que je bloque , je souhaite qu'a ma prochaine saisie ca va en A2 automatiquement et ainsi de suite ( je crois que j'ai pu voir que ca va a la case vide en priorité , cela me convien du moment que je n’écrase pas mes donnés .

voila le code que j'ai mis actuellement et qui fonctionne mais juste pour une case .

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
 
Range ("A1" & Ligne) Me.Try
 
Unload Me
 
End Sub

dans ce code le TRY = ma textbox que j'ai renomer
et unload me pour fermer la fenetre
j'ai rajouter "& Ligne" car je pensais que ca fonctionnerais mais non !!

voila si vous pouviez m'aider svp ca serais super !!


merci !

[Marc-L]

Bonjour !

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
    Cells(Rows.Count, 1).End(xlUp)(2).Value = Try.Text
    Unload Me
End Sub

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[sylvain56ez]

Bonour Marc-L , merci pour ton code

je vien de l'essayer et ="debogage" la ligne se jaunie donc une erreur je présume.

ca ne fonctionne pas

je pense que je ne dois pas faire un truc bien car ton code je l'avais essayer déjà mais pas écrit pareille .

rectification ton code marche parfaitement ( j'avais mal taper rows ^^

ca ecrit a partir de la ligne 100 ( y aurait-il possibilité d'ecrire a partir de la ligne 2 ?


merci

re rectification .

ca marche parfaitement

un grand merci a toi marc-L

[Menhir]

Au lieu de faire un UserForm, à ta place j'aurai utilisé une simple InputBox.
https://msdn.microsoft.com/fr-fr/lib.../gg251811.aspx

Code :

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

1
2
3
Sub Test()
    Cells(Rows.Count, 1).End(xlUp)(2).Value = InputBox("Taper votre valeur")
End Sub