Discussion :

[CEREFX]

Bonjour à tous et d'avance merci à tous ceux qui se pencheront sur mon petit soucis.

J'ai utilisé le code de silkyroad (que je remercie au passage pour cette contribution vraiment top) http://silkyroad.developpez.com/VBA/...serForm/#LII-E , afin d'obliger la saisie d'un TextBox.
Le problème c'est que ca marche trop bien. J'ai créer un bouton pour Unload l'UserForm mais j'obtient quand même le message d'erreur.
Comment faire pour cliquer sur "Annuler" (CommandButton2) sans avoir ce fameux message.

J'ai essayer quelque chose comme ça... mais ca ne veut pas

Code :

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

1
2
3
4
5
6
7
8
9
'Focer la saisie d'une information
Private Sub code2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
'    If CommandButton2.Click = True Then Cancel = False
 
    If Code2.Value = "" Then Cancel = True
    If Code2.Value = "" Then MsgBox ("Veuiller choisir une famille et ensuite renseigner la lettre de codification !"): Exit Sub
 
End Sub

Merci beaucoup

[Invité]

Bonjour,
Quel message d'erreur?

[CEREFX]

Bonjour,
celui-ci...

Code :

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

 If Code2.Value = "" Then MsgBox ("Veuiller choisir une famille et ensuite renseigner la lettre de codification !"): Exit Sub

merci

[Invité]

un message d'erreur est en général indésirable!

ici il est initié par le programmeur qui à toute l'attitude pour le supprimer!

allé lances toi modifie ton code ,Courage!

[CEREFX]

Encore merci pour votre patience, mais je souhaite 2 chose.

- Que l'utilisateur soit obligé de saisir quelque chose, d'où le

Code :

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

If Code2.Value = "" Then Cancel = True

- Et ensuite l'avertir du pourquoi il est bloqué, d'où le

Code :

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

If Code2.Value = "" Then MsgBox ("Veuiller choisir une famille et ensuite renseigner la lettre de codification !"): Exit Sub

En réalité ce n'est pas le message d'erreur qui me bloque, mais plutôt la première ligne de code. Je ne peux cliquer sur mon CommandButton2 qui contient la sortie de la macro.
J'ai donc essayé quelque chose comme ça

Code :

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

If CommandButton2.Click = True Then Cancel = False

En gros interdit de sortir du Textbox sauf si je clique sur Annuler "CommandButton2"


Mais ca ne veux pas.... enfin je ne sais pas faire

Voila j'espère que j'aurais été plus clair cette fois ci et vous avoir donné tous les éléments nécessaires.

Bonne continuation

[Invité]

Tu ne peux pas interdire la sortie de Textbox sauf en cliquant sur annuler! Par définition quand tu click sur annuler, tu est déjà sorti de Textbox!

Pour interdire de sortir de Textbox faudrait le faire sur l'événement Exit hors quand il ce déclenche c'est que tu es en train de sortir et celle-ci devient inévitable!

Contrôle tes champs sur le bouton valider!

[CEREFX]

Encore merci, j'aurais du te mettre le code en entier, j'étais bien sur l'évènement EXIT, mais je n'avais pas anticipé le ANNULER

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
'Forcer la saisie en majuscule
Private Sub code2_keyPress(ByVal keyAscii As MSForms.ReturnInteger)
 
    keyAscii = Asc(UCase(Chr(keyAscii)))
 
End Sub
 
'Focer la saisie d'une information
Private Sub code2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
   If Code2.Value = "" Then Cancel = True
   If Code2.Value = "" Then MsgBox ("Veuiller choisir une famille et ensuite renseigner la lettre de codification !"): Exit Sub
 
End Sub
 
'Forcer la saisie d'une lettre et sous erreur supprime le texte à remplacer
 
Private Sub code2_Change()
 
    If IsNumeric(Right(Code2, 1)) Then
        MsgBox "Le caractère saisi n'est pas valide, veuillez saisir une lettre"
        Code2 = Left(Code2, Len(Code2) - 1)
    End If
 
End Sub

Du coup je vais faire comme pour les autres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
Dim derligne As Integer
Dim codo
 
'Différent test pour vérifier que tout soit bien rempli
    If Ouvrage.Text = "Ouvrage" Then MsgBox ("Vous ne pouvez pas utiliser cette Famille !"): Exit Sub
    If Code2 = "" Then MsgBox ("Veuillez saisir une lettre pour incrémenter !"): Exit Sub
    If Catégorie.Text = "" Then MsgBox ("Veuillez saisir une catégorie !"): Exit Sub
    If Désignation = "" Then MsgBox ("Veuillez saisir une désignation !"): Exit Sub
    If Unité = "" Then MsgBox ("Veuillez saisir une unité !"): Exit Sub
 
        codo = Code.Text & "." & Code2.Text
 
 
'Test l'existance du code saisi
    With Feuil3
    derligne = .Range("A65536").End(xlUp).Row
 
    For I = 1 To derligne
        If Feuil3.Range("A" & I) = codo Then
        MsgBox ("Vous ne pouvez pas utiliser cette lettre, elle est déja utilisée !"): Code2 = Left(Code2, Len(Code2) - 1): Code2.SetFocus: Exit Sub
        End If
    Next I
    End With

Merci de ton aide