Discussion :

[DIDIDIDA]

bonjour à tous
j'ai petit problem conçernat l'execution de mon code:

Code :

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

1
2
3
4
5
If Me.TextBox4.Text = "" Then
MsgBox "INSERER LE NOMBRE DE DOSSIERS A RISQUE AVERE A CONTROLER"
Else
nbravere = CInt(Me.TextBox4.Text)
End If

mon code il s'execute bien , mais je veux par exemple si on oublie d'introduire une valeur dans le TextBox4, j'affiche le message et une je la case est remplie l'execution doit se poursuivre automatiquement sans interruption!!!

merci par avance.

[Many31]

mon code il s'execute bien , mais je veux par exemple si on oublie d'introduire une valeur dans le TextBox4, j'affiche le message et une je la case est remplie l'execution doit se poursuivre automatiquement sans interruption!!!

merci par avance.

bonjour... tu peux éditer et reformuler ta question? ou au moins la rendre compréhensible. Merci

Sinon tu peux créer un Userform et y integrer une TextBox dans laquelle tu "oblige" l'utilisateur a n'y mettre qu'un Integer


en gros:

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Const valide = "0123456789" & vbCr & vbBack
 
 
Private Sub nombre_verif_KeyPress(ByVal nombre As MSForms.ReturnInteger)
    If InStr(valide, Chr(nombre )) = 0 Then nombre = 0
    If nombre = 13 Then SendKeys "{TAB}": nombre = 0
End Sub

[DIDIDIDA]

je pense que j'ai trouvé la répone dans le forum

Code :

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

1
2
3
4
5
6
7
8
 If Not IsNumeric(TextBox4.Text) Then
        MsgBox "Vous devez entrer un nombre dans le champ - Intensité nominale."
        TextBox2.Text = ""
        TextBox2.SetFocus
      Exit Sub
Else
nbravere = CInt(Me.TextBox4.Text)
End If

merci comme meme à la prochaine

[DIDIDIDA]

tu sais mon prbleme c'est quand j'exscute mon code, il y a des textbox que je dois remplir avant, alors quand je met rien le l'excution s'arrete, or que moi je veux l'affichage du message d'erreur ensuite la porsuite de l'execution juste apres!!! alors j'ai trouvé ce code qui marche bien , sauf j'ai pas compris: SetFocus
mais ce n'est grave, je vais chrecher pour mieux comprendre. je te remerci beaucoup a plus

[Many31]

tu sais mon prbleme c'est quand j'exscute mon code, il y a des textbox que je dois remplir avant, alors quand je met rien le l'excution s'arrete, or que moi je veux l'affichage du message d'erreur ensuite la porsuite de l'execution juste apres!!! alors j'ai trouvé ce code qui marche bien , sauf j'ai pas compris: SetFocus
mais ce n'est grave, je vais chrecher pour mieux comprendre. je te remerci beaucoup a plus

Le SetFocus permet de "selectionner" un objet. Comme quand tu clique une seule fois sur une cellule d'une feuille sauf que la ca sapplique pour les objet.
On ll'utilise souvent pour les "Zones de textes" en effet si tu ne sort pas de l'objet alors que tu viens d'effectuer une modif... cette modif n'est pas prise en compte.
On l'utilise aussi pour "forcer" l'utilisateur comme les message d'erreur des programme... un des bouton poussoir est préselectionné... Le focus a été mis sur cet objet

sinon essaye ca:

Code :

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

1
2
3
4
5
 
Do While IsNumeric(TextBox2.txt) = False Or TextBox2.txt = ""
        valeur = InputBox ("Vous devez entrer un nombre dans le champ - Intensité nominale.","Attention")
        TextBox2.txt = valeur
Loop

Ca te permetra de pas sortir de ton code de demander a l'utilisateur de mettre une valeur et de remplir ta valeur TextBox2 avec un integer.



PS: tu peux aussi mettre une valeur par défaut:

Code :

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

1
2
 
        valeur = InputBox ("Vous devez entrer un nombre dans le champ - Intensité nominale.","Attention","0")

par exemple 0 en valeur par defaut
je pense que ca solutionne ton pb