Problème de code dans un UserForm

Bonjour,

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

Code:

---

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:(

Salut ip_flashor et le forum

Code:

---

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+

bonjour Gorfael,

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

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

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.

bonjour ip_flashor, Gorfael et à tous,

Code:

---

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

---

Bonjour sabzzz

j'ai toujours le même problème avec ton code :(

bonjour ip_flashor,

ho oui j'ai oublié de te dire qu'il faudrait que tu utilise un autre événement
tu pourrait prendre :

Code:

---

Private Sub TextBox1_AfterUpdate()

---

bonjour ip_flashor,

si tu utilise un bouton pour valider pas ce pb..

Code:

---

1 2 3

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

---

attention isabelle pas oublier les balises autrement :sm:

merci laetitia :rose2:, je ne m'en était pas rendu compte, ouff! :marteau:

Merci de l'avoir fait remarquer Leititia!
Effectivement, j'utilise un bouton pour valider :cry:
Avez vous une idée alors?

re, ip_flashor il faudrait savoir exactement ce que tu cherches a faire pour aller plus vite... personnellement pas trop le temps de rester oubli pas egalement les balises!!!

isabelle fait un travail magnifique sur le forum elle va pouvoir t' aider sans probleme

bonjour ip_flashor,

Citation:

---

Effectivement, j'utilise un bouton pour valider
Avez vous une idée alors?

---

il faut enlever completement la macro suivante

Code:

---

1 2 3

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

---

et mettre à la place la macro donnée par laetitia

Code:

---

1 2 3

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

---

d'accord :)

En fait, je veux créer un userform qui demande d'entrer 3 informations: l'âge, le salaire et enfin le poste occupé et aimerais que chaque information soit enregistré dans la dernière cellule vide de la colonne associé à une inormation (dans mon cas, c'est la colonne K pour l'age, L pour salaire et M pour poste).

J'ai donc voulu créer un userform avec 3 textbox chacun demandant une information et un bouton OK. J'aimerais que toutes les infos n'apparaissent dans les cellules que lorsque la personne clique sur le bouton OK.

ça y est ça marche! je n'avais pas bien regardé Leititia vraimenent dsl!!!


Merciiiiiiii bcppppppppppp à tous et surtout à vous sabzzz et Leititia^^

Une dernière petite question: Pouvez vous me dire comment déactiver le bouton quitter (la petite croix pour quitter la fenêtre) dans un Userform?

re, rajoute ce code dans ton user..

Code:

---

1 2 3

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End Sub

---

oubli pas un bouton ou autre!!! pour sortir

Code:

---

1 2 3

Private Sub CommandButton5_Click() Unload Me End Sub

---

Parfait!
Merci Leititia:ccool: