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

[ip_flashor]

Bonjour sabzzz

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

[sabzzz]

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 :

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

Private Sub TextBox1_AfterUpdate()

[laetitia]

bonjour ip_flashor,

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

Code :

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

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

[sabzzz]

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

[ip_flashor]

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

[laetitia]

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

[sabzzz]

bonjour ip_flashor,

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

il faut enlever completement la macro suivante

Code :

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

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 :

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

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

[ip_flashor]

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.

[ip_flashor]

ç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?

[laetitia]

re, rajoute ce code dans ton user..

Code :

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

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 :

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

1
2
3
Private Sub CommandButton5_Click()
  Unload Me
End Sub

[ip_flashor]

Parfait!
Merci Leititia