Discussion :

[ip_flashor]

Bonjour,

J'ai crée un UserForm avec deux bouton OUIet NON et voici le code que j'ai tapé:

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Sheets("Feuil3").Select
Range("A1").End(xlDown).Offset(1, 0).Select
'En fait, j'aimerais que la réponse s'affiche dans la dernière cellule vide de la colonne A
Selection.Value = "Oui"
UserForm2.Hide
UserForm3.Show
End Sub

Mais ça beug à la ligne: Range("A1").End(xlDown).Offset(1, 0).Select
Pourtant j'ai déjà utilisé cette ligne de code dans des procédures et ça marchait très bien

[Gorfael]

Salut ip_flashor et le forum

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Sheets("Feuil3").Range("A" & rows.count).End(xlup)(2)="Oui"
UserForm2.Hide
UserForm3.Show
End Sub

J'aimepas les Select
A+

[sabzzz]

bonjour Gorfael,

tu es certain qu'il faut mettre un point entre (xlup) et (2) ?

[Gorfael]

Salut sabzzz et le forum
Oups À reprendre le code (sans tester), on en arrive vite à des énormités comme celle-ci => je rectifie. et comme vça, plus de preuve
A+

[ip_flashor]

Salut Gorfael,

Ton code marche parfaitement! Merci beaucoup.
Est-ce que tu peux juste me dire pourquoi mon code ne marche pas? Je débute en Vba, j'aimerais donc bien comprendre mes erreurs

Pardon, et merci à sabzzz aussi^^

un autre problème avec le code suivant:

Private Sub TextBox2_Change()
Sheets("Feuil3").Range("L" & Rows.Count).End(xlUp)(2) = TextBox2.Value
End Sub

Mais le problème c'est que à chaque fois que j'écris un commentaire dans le textbox, chaque lettre est mise dans une cellule différente de la colonne L.
En fait, le code regarde la dernière cellule vide pour chaque lettre (ou chiffre) du commentaire. Or j'aimerais mettre le commentaire entier dans la dernière cellule vide.

[sabzzz]

bonjour ip_flashor, Gorfael et à tous,

Code :

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

1
2
3
4
5
Private Sub TextBox2_Change()
Application.EnableEvents = False
Sheets("Feuil3").Range("L" & Sheets("Feuil3").Rows.Count).End(xlUp)(2) = TextBox2.Value
Application.EnableEvents = True
End Sub