résolu ; message box

[MIRALLE]

bonsoir a tous
le principe de ce fichier est lorsque je fais un clique s'affichera automatiquemnt dans le textbox choisit.
ce code est edité par job75 merci a lui
merci tant de fois pour l'aide
MIRALLE

 

[jpb388]

Re : message box

Bonjour à tous
essaye ceci

Private Sub CommandButton1_Click()
If c <> "" Then MsgBox "cliquer sur le textbox svp" Else c = Date
End Sub

si tu reste sur celle que tu viens de faire ou si tu clique sur une textbox déjà utilisée tu auras le message

 

[MIRALLE]

Re : message box

bonjour jpb388.merci beaucoup beaucoup pour l'aide.donc je vais mettre ce code avec l'autre code c'est a dire je peux pas ecrire dans une seul usf deux commande bouton au meme numero "1"..j'ai pas une grannde idee en vba..svp aidez moi a continuer ce fichier
merci grand merci pour votre aide
MIRALLE

 

[MIRALLE]

Re : message box

bonsoir a tous
merci beaucoup de voir uune minute svp svp svp.est ce qu'on peut changer le message par usf2
MIRALLE

 

[job75]

Re : message box

Bonjour MIRALLE,

Dans UserForm1 votre code du CommanButton1 n'est pas celui donné par jpb388 au post #2...

Si le code du post #2 ne vous convient pas il faut que vous disiez clairement pourquoi.

A+

 

[MIRALLE]

Re : message box

bonjour job75.mes excuses pour retard de repondre cause mauvaise connexion
pourquoi ?? parceque le code numero1 est le votre c'est bien votre formidable code.et code du post2 c'est a jpb388
oui je sais que clairement ne faut pas confondre entre or et argent
merci merci merci
MIRALLE

 

[jpb388]

Re : message box

Bonsoir à tous
lorsque tu ouvres le programme de job75 il y a forcément la textbox1 de sélectionnée
tu cliques sur le bouton cela te marque la date si tu recliques le message s'affiche pour te dire de changer de changer de case
enfin c'est ce que j'ai cru comprendre avec ton message

ce que j'aime bien faire si vous pouver m'aidez a ajouter un messagebox si par exemple j'oublie de faire un clique sur textbox et je valide alors un messagebox s'affiche "cliquer sur le textbox svp"

 

[job75]

Re : message box

RE,

pourquoi ?? parceque le code numero1 est le votre c'est bien votre formidable code.et code du post2 c'est a jpb388

C'est pourtant simple : le code de jpb388 modifie mon code pour faire ce que vous sembliez vouloir.

Si ça ne vous convient pas expliquez ce que vous voulez faire.

A+

 

[MIRALLE]

Re : message box

bonsoir jpb388
merci pour que tu expliques votre suggestion.je n'ai pas de doute que vous ne comprenez pas.non pas du tout.tout ce que je veux dire que un code exemple de job75 c'est lui le premier qui comprend son code plus que le monde entier.toi aussi ton code tu le comprends plus que tout le monde.et enfin moi je ne comprend pas beaucoup vba
MIRALLE

 

[MIRALLE]

Re : message box

bonsoir job75.
merci beaucoup pour l'aide.
MIRALLE

 

[job75]

Re : message box

Re,

Alors peut-être que cette solution vous conviendra.

1) Donnez la valeur 0 à la propriété TabIndex de CommandButton1.

2) Modifiez la macro du bouton :

Private Sub CommandButton1_Click()
On Error Resume Next
If c <> "" Then MsgBox "cliquer sur le textbox svp" Else c = Date
End Sub

A+

 

[MIRALLE]

Re : message box

bonsoir job75
merci beaucoup beaucoup pour l'aide.c'est fait merveilleux
merci c est resolu par vous
MIRALLE

 

[job75]

Re : résolu ; message box

J'ai envoyé par MP ce message :

Bonsoir MIRALLE,

Pourquoi avez-vous supprimé le fichier du post #1 ???

Ce n'est vraiment pas sympa car le fil devient incompréhensible.

Je vous demande de le remettre immédiatement.

Bonne nuit.