encore et tjs du uf

[sylvain]

Salut a tous!


j aimerai que mon curseur retourne sur la cellule de mon uf mais lorsque je click sur la box le uf disparaît.

Voici ma commande ds vb:

If frmslyv.TextBox6.Text = "" Then
MsgBox "Vous avez oubliez une cellule"
Textbox6.SetFocus

j'ai l'impression que le curseur va sur la cellule mais il doit manquer une commande pour que le UF reste...

Bonne Journée a tous!!!!!!!!!!!!!

 

[@+Thierry]

Salut Sylvain,

C'est quoi "frmslyv" ???????????????

Si c'est un autre UserForm que celui où ce trouve cette commande c'est normal qu'il disparaisse (apparemment il à déjà disparu en fait ! lol) ... De plus si tu "set" le focus sur une TextBox6 qui, selon toute vraissemblance, appartient à un autre UserForm....

Je t'avais dit déjà que pour débuter en UserForm les MsgBox sont amplement suffisantes pour gérer les erreurs/oublis des User... Et les MsgBox donnent un résultat très pro... (Regarde Excel comment il réagit ! ce sont les mêmes MsgBox)

Mais bon... on m'écoute jamais !! lol

A mon avis tu es en train de bien te mélanger les pinceaux... Pour ta première petite appli...

Bon Courage....
@+Thierry

 

[sylvain]

salut thierry!

c mon boss ki me demande des modifs toutes les 3s. Il é jamais satisfait!
enfin!!!!!

"frmslyv"c mon UF de base et pour moin me prendre la tete j'ai fais une box pour les oublis du user (de plus mon chief! prefert). donc ma commande est dans le meme UF (normal car j'ai un seul UF).

Alors je comprend pas pourquoi il disparait???

A+

 

[sylvain]

De plus on a une assistance info dans la boite, mais il ne maîtrise pas excel2000.

Je parlais chinois lorsque j'ai prononcé "Userform"

C'est juste de premier niveau car il s'occupe de tous les pb info en général.

 

[@+Thierry]

Alors si tu as un UserForm en tout et pour tout... ce n'est pas avec l'extrait de code que tu as posté qu'il peut disparaître !

C'est avec quel control que tu active ce code ?
(Tant que tu y es post le code complet de ce UserForm !)

Bon App
@+Thierry

 

[sylvain]

t'as raison avec le code complet c plus simple, le voici le voila:


Option Explicit
Dim DerLigne As Integer
Dim PlageList As String

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label8_Click()

End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub TextBox1_Change()

End Sub
Private Sub TextBox7_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

'SYLVAIN SUIVI NLP January 2003

Private Sub UserForm_Initialize()
DerLigne = Sheets(2).Range("A65536").End(xlUp).Row
PlageList = Sheets(2).Range("A2:A" & DerLigne).Address
ComboBox2.RowSource = "BASE!" & PlageList
ComboBox2.ColumnWidths = "2 cm"

DerLigne = Sheets(2).Range("A65536").End(xlUp).Row
PlageList = Sheets(2).Range("E2:E" & DerLigne).Address
ComboBox1.RowSource = "BASE!" & PlageList
ComboBox1.ColumnWidths = "2 cm"
TextBox4.Value = Format(Now, "DD/MM/YYYY")
TextBox2 = Sheets("Base").Range("C2")
CommandButton1.Visible = False
End Sub

Private Sub ComboBox2_Click()

Dim Plage As Range
Dim Cell As Range
Set Plage = Sheets(2).Range("A1:A" & DerLigne)
For Each Cell In Plage
If Cell.Value = ComboBox2.Value Then
TextBox1 = Cell.Offset(0, 1).Value
TextBox2 = Cell.Offset(0, 2).Value
TextBox3 = Cell.Offset(0, 3).Value
TextBox5 = Cell.Offset(0, 5).Value


End If
Next Cell
CommandButton1.Visible = True
End Sub
Private Sub CommandButton1_click()

'test si un texte a été entré, si non, le programme averti

If frmslyv.TextBox6.Text = "" Then
MsgBox "Vous avez oubliez une cellule"
TextBox6.SetFocus

' ElseIf frmslyv.ComboBox1.Text = "" Then
'MsgBox "Vous avez oubliez une cellule"

End If

With Sheets(1)
.Range("D8") = ComboBox2
.Range("E8") = TextBox1
.Range("A8") = TextBox2
.Range("B8") = TextBox3
.Range("C8") = TextBox4
.Range("G8") = TextBox5
.Range("F8") = TextBox6
.Range("H8") = ComboBox1

End With
Unload frmslyv
End Sub
Private Sub CommandButton2_Click()
Sheets(1).Range("B3,G3,G5,G6,B7,B13,B16").ClearContents
Unload frmslyv
End Sub

A+ Sylvain...

 

[@+Thierry]

Pffff Sylvain !!! )


1 ))) tu me vires tous ces LabelX_Click / ComboBoxX_Change / TextBoxX_Change vides qui servent à rien !!


2 ))) et c'est quoi cette instruction : A L'AVANT DERNIERE LIGNE DU CommandButton1_click() :

Unload frmslyv
(juste après le End With !!!)

LOL

Je comprends que Unload soit présent dans le CommandButton2_Click() qui semble être l'exit avec nettoyage de la feuille... mais pas ailleurs !!

Allez bon aprèm Sylvain
@+Thierry

 

[dave]

salut thierry !

tu sais , pour avoir utilisé un langage comme le tien vendredi dernier, je me suis fait jeter...
ex: "tu me vires...qui servent à rien...."

dave

 

[sylvain]

J'ai encore un petit probleme!!!!

Si j'enleve le "unload frmslyv" dans la CommandButton1_click, mon UF va rester. Alors que j'aimerai, lorsque toutes les cellules sont pleines, le UF se ferme avec le CommandButton1_click, c'est pour cela que j'ai mis cette fonction.

Est il possible de faire cela?

A+ Sylvain

 

[@+Thierry]

Salut Dave, Re Sylvain

Pour Dave, je n'avais pas suivi ce fil et tu me le fais découvrir.....
Mais il me semble qu'il n'y a aucune comparaison possible entre ce que j'ai dit à Sylvain pour qui je suis un peu le "Coach" dans ce forum et ce que tu as répondu de pas très gentil à Moa, un membre actif et super sympa de ce forum...
Et je pense pas avoir vexé Sylvain, qui me connait bien. (hein Sylvain ???)

C'est un peu comme avec Fab, ils sont un peu les "têtes dûres" de la classe... Et si je lui dit "tu me vires c'est trucs inutiles" c'est plus par camaraderie familière que de la vexation ou de l'impolitesse...
Et si tu t'es fait jeter je pense que tu sais très bien pourquoi (!)...

[/b]Pour Sylvain[/b], je n'arrive plus à suivre... Tu veux le fermer ou pas le fermer ce UserForm ? si tu veux que celà stop au moment du MsgBox il faut prévoir une sortie de la macro alors...

.............début de la macro
If TextBox6.Value = "" Then 'Pas besoin de frmslyv.TextBox6.text
MsgBox "Vous avez oubliez une cellule"
TextBox6.SetFocus
Exit Sub '<<<<<<<<<<<<<<<On Sort de la macro
End If
.............Suite de la macro

Voilà cette fois ci j'ai vu où était ton problème...

Allez bonne fin d'aprèm à vous deux... et à tout le forum (j'ai du taff là)
@+Thierry

 

[sylvain]

Salut a tous !!!!

Pour Thierry!!!

Merci pour t'as commande, enfin mon UF fonctionne ouaiiiii!!!!!.

Sinon pour répondre a l'histoire de "tu me vires c'est trucs inutiles", je ne suis pas vexé, mais alors pas du tout.

Pour Dave:

Avec tous les problèmes de merde que j'ai posé sur le forum et que Thierry a répondu a toutes mes questions, si il avait la grosse tête pour parler mal, cela ferait longtemps qu'il ne me parlerait plus.

De plus c'est un super prof,

On ne touche pas a Excel urion THIERRY!!!!!!

Avé Thierry

A+ et bonne Journée a tous!!!!!!