Affiche USERFORM si

[gilou31]

bonjour à tous !

voila j'aimerai afficher un userform dans une macro.
J'ai une cellule qui doit être rempli.
Si elle n'est pas rempli, un userform doit apparaitre, et me stopper la macro.
J'ai créer ceci, et réussi a stopper la macro.

If Range("B36") = "" Then
UserForm3.Show
End If

J'ai mi ceci en début de ma macro, et je voudrais que ma macro se poursuive si B36 n'est pas vide.
Le probleme est que tel que de faire ceci, le userform apparait à chaque fois...

savez vous ce que j'ai oublié ?
Merci a tous 🙂

 

[tototiti2008]

Re : Affiche USERFORM si

Bonjour Gilou,

Ton code a pourtant l'air correct... Tu est bien sûr qu'il vérifie la valeur de la cellule B36 de la bonne feuille ?

 

[gilou31]

Re : Affiche USERFORM si

Bonjour Gilou,

Ton code a pourtant l'air correct... Tu est bien sûr qu'il vérifie la valeur de la cellule B36 de la bonne feuille ?

ahah ! non c'était I36 lol. Non mais au moins quelqu'un a pu confirmer mon code, comme je débute sur VBa 🙂
Tant qu'on y est, j'ai crée un bouton OK sur ce fameux userform. Lorsque je clique dessus, il m'arrete la macro. Mais lorsque je ferme l'userform avec la croix en haut a droite, il ne le fait pas... ET comme ce n'est pas moi qui utilisera ce programme, je voudrais que la macro s'arrete lorsque je clique aussi sur cette croix

 

[tototiti2008]

Re : Affiche USERFORM si

Pour exécuter un code lors de la fermeture avec la croix, tu dois le mettre dans l'évènement :

Private Sub UserForm_QueryClose

Attention, si ton bouton ferme ton Userform et que tu fais un Unload, QueryClose s'éxecute.

 

[gilou31]

Re : Affiche USERFORM si

A ba voila !
super merci beaucoup...
encore une toute petite question et puis j'arrete de vous embeter...

QUand je fais un useform, avec un texte à remplir, comme je fais pour récuperer le contenu de ce qui a été saisis, pour pouvoir le coller ailleuirs 🙂 ?

Private Sub CommandButton1_Click()
TextBox1.Selection
Selection.Copy

?

 

[tototiti2008]

Re : Affiche USERFORM si

C'est encore plus simple que ça :

Activecell.value = Textbox1.Text

ou

MaVariable = Textbox1.Text

 

[gilou31]

Re : Affiche USERFORM si

C'est encore plus simple que ça :

Activecell.value = Textbox1.Text

ou

MaVariable = Textbox1.Text

le probleme est que je veux la copier dans une cellule situé sur une autre feuille,et comme ceci ca ne marche pas...

 

[tototiti2008]

Re : Affiche USERFORM si

essaye avec :

Workbooks("MonClasseur.xls").Worksheets("MaFeuille").Range("A12").value = Textbox1.Text