Discussion :

[robinB]

Bonjour,

J'ai besoin d'aide sur ce petit sujet:

Je ne comprend pas pourquoi je n'arrive pas à associer la Checkbox avec le TextBox.
En effet lorsque je supprime la Private Sub Textbox1_Exit le setfocus souhaité sur le TextBox1 ne se fait pas. Dans l'autre cas si je laisse la Private Sub Textbox1_Exit pour conserver le setfocus sur le textbox1 alors je n'arrive plus à cocher ou décocher la Checkbox.


Je m'excuse d'avance si c'est un problème simple à résoudre mais je n'arrive pas à trouver de solution.

Merci d'avance,

Fichier de test pour forum.xlsm

[Invité]

Bonjour,
si je comprends bien, tu gère le exit et focus du textbox1! mais montres nous le code qui explique comment tu le gère!

[robinB]

J'ai joint le fichier Excel comportant le code, je pensais que ca suffirait. Mais voici le code :

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
26
27
28
29
30
31
32
33
34
35
Private Sub CheckBox_Urgence_Click()
Me.TextBox1.SetFocus
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Then
    Cancel = True
End If
End Sub
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim lig As Integer
If KeyCode = 13 Then
    TEXTE = Me.TextBox1.Text
    If Len(TEXTE) > 0 Then
        TEXTE = Int(TEXTE)
            For lig = 2 To 500
              If Cells(lig, 1) = "" Then
                  Cells(lig, 1) = TEXTE
                  If CheckBox_Urgence.Value = True Then
                      Cells(lig, 1).Interior.Color = 65535
                  End If  
                  Me.TextBox1.Text = "" 
                  GoTo Suite
               End If
            Next
Suite: 
    End If   
fin_sub:
End If
End Sub
 
Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
End Sub

[Invité]

écris 1 dans ton texbox et contentes toi de clicker sur CheckBox_Urgence

Code :

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

1
2
3
Private Sub CheckBox_Urgence_Click()
Me.TextBox1.SetFocus
End Sub

maintenant je comprends bien que c'est pas ce que tu veux mais que veux tu?

[robinB]

En fait, non ce n'est pas cela que je souhaite obtenir.

En clair on entre une l'information principale dans le textbox qui est sélectionné automatiquement dès le départ. La checkbox est la pour apporter une seconde information secondaire, selon qu'elle soit cochée ou non.

Mon problème :

- A la base la private Sub textbox_Exit qui contient le cancel n'était pas présente, du coup le problème était que le setfocus automatique dans la textbox ne fonctionnait pas après l'exécution de la macro. On était donc forcé de cliquer sur le textBox.

- J'ai donc essayé d'arranger cela en ajoutant la private Sub Textbox_Exit et la fonction Cancel pour assurer le SetFocus dans le textbox mais du coup la checkBox n'est plus
sélectionnable. Après exécution de la Macro.

Et c'est la que je voudrais savoir si vous avez une solution qui permettra d'avoir l'association des deux.

J'espère avoir été assez clair...

[unparia]

Bonjour
Je crois nécessaire un exposé détaillé et précis des tenants et aboutissants. Ce n'est pas le cas pour l'instant.
Si difficulté à rédiger cet exposé --->> description de gestes, pas à pas, et de ce que l'on attend -->>
Exemple :
- je fais ce geste et attends ceci
- je fais maintenant ce geste et attends cela
cet exposé s'efforcera de ne pas dire des choses telles que "j'ai utilisé ceci" ou "j'ai utilisé cela". Il devra tout simplement dire le geste fait et ce que l'on attend ensuite. Il devra se contenter d'être technique et uniquement et purement technique, si l'on veut mon aide.

[Invité]

Oui je suis d'accord car dans le bout de code que j'ai relevé dans mon poste précédent, un click sur le checkbox donne le focus au textebox donc le check est bien sélectionnable, fugitivement le temps qu'il redonne la main au textbox!

Si tu regarde bien on coche et on décoche!

[robinB]

Excusez moi, c'est vrai que j'ai peut être un peu la tête dans le guidon.

Initialement dans userform:

Setfocus fixé dans Textbox

Etape 1: Textbox dans lequel on va insérer une information (exemple : numéro d'OF) qui sera copiée dans une cellule d'une colonne précise.

Etape 2: Retour dans TextBox après exécution de la copie de l'information saisie. Puis attente pour ajout d'un autre numéro d'OF dans la même colonne.

Etape 3: La checkBox si elle n'est pas coché permet de définir si l'OF est urgent ou non. (cocher = urgent, pas cocher = pas urgent)

Problème est que quand j'active la checkbox le Setfocus ne revient pas automatiquement dans le textbox.
Du coup j'ai créé une private Sub Textbox_Exit pour assurer le maintient du focus dans la textbox mais cela empêche ma checkbox d'être sélectionnante par la suite.
Au final je voudrais que le focus revienne toujours dans la textbox et que la checkbox soit fonctionnel après une première exécution.

J'espère que mon explication vous permettra de mieux comprendre.
Comme dit dans mon premier poste j'ai joint un fichier Excel sur lequel vous pouvez constater que le focus fonctionne par contre la checkbox n'est pas séléctionnable. Si vous supprimez la private Sub Textbox1_Exit vous verrez que le Focus ne se fait plus automatiquement après la première saisie d'information si on conserve la même valeur pour la checkbox.

N'hésitez pas à me relancer pour expliquer des points que ne serais pas clair. Merci beaucoup pour votre aide.

Robin

[Invité]

Bonjour,
Ton code fonctionne très bien c'est juste l'aspect visuel!

Code :

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

1
2
3
4
5
Private Sub CheckBox_Urgence_Click()
Me.CheckBox_Urgence.ForeColor = Array(&H80000012, &HFF&)(Abs(CheckBox_Urgence))
CheckBox_Urgence.Font.Bold = CheckBox_Urgence
Me.TextBox1.SetFocus
End Sub

Code :

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

1
2
3
4
 Me.TextBox1.Text = ""
                  Me.CheckBox_Urgence = False
 
                  GoTo Suite

dans la notice tu expliqueras qu'il n'y a pas d'urgence à ne rien faire!qu'il faut saisir le numéro d'ore avant de définir son urgence!

On ne trouvera pas anormal quelle que chose qui est prévu pour fonctionner comme ça!

Tu dis c'est fait exprès (ce qui n'est pas idiot) et le maillon faible devient le maillon fort!

C'est le théorème de la tarte tatin!

Tarte tatin:
Son invention accidentelle en fait un exemple emblématique.

[robinB]

Merci oui ça pourrait fonctionner comme ça.

Mais a la base limiter le nombre de manipulation au maximum :

Par exemple si maintenant je veux saisir plusieurs OF de suite qui ne sont pas urgent je ne sélectionne pas la checkbox et on renseigne autant d'OF que voulu. Par contre si on veut renseigner des OF urgents, on coche une fois la checkbox et on renseigne autant d'OF qu'on veut sans avoir a cocher a chaque fois la checkbox.

[Invité]

Code :

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

1
2
Me.TextBox1.Text = ""
  'tu mets ça en commentaire? Non? Me.CheckBox_Urgence = False

[robinB]

Bonjour,

Je vous remercie ! En supprimant le décochage automatique de la Checkbox après validation, le fonctionnement correspond à ce que j'avais imaginé !

A bientot et encore merci !

Rebonjour,


Encore une dernière question. Le système fonctionne toutefois je voudrais tout de même comprendre pourquoi il n'est pas possible de se retrouver dans la même Situation qu'au départ?

- Je peux cocher décocher la Checkbox tout en ayant le Focus dans la TextBox ?

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Then
    Cancel = True
End If
End Sub

dans ton code tu dis si mon texte est "" je ne peux pas sortir du contrôle donc pour activer le check il faut entrer une valeur!

pour le reste le check fonctionnait mais c’était l'aspect visuel qui te faisait croire que ça ne fonctionnait pas d'ou le!

Code :

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

1
2
3
4
5
Private Sub CheckBox_Urgence_Click()
Me.CheckBox_Urgence.ForeColor = Array(&H80000012, &HFF&)(Abs(CheckBox_Urgence))
CheckBox_Urgence.Font.Bold = CheckBox_Urgence
Me.TextBox1.SetFocus
End Sub