msgbox ouverte et manipulation de fichier

Bonjour,

Je souhaiterais placer dans une de mes macros Excel une boite message pour indiquer à l'utilisateur quelle cellule il doit sélectionner avant de continuer l'exécution de cette macro. Malheureusement, quand je mets une boite message, l'application est bloquée et il n'est pas possible de modifier la cellule sélectionnée.
Comment puis-je faire?
Merci d'avance ^^

À la place d'une MsgBox, tu peux créer ton propre UserForm et l'afficher en mode "non-modal". Pour la sélection de cellule (ou de plage de cellules), tu peux ajouter sur ce UserForm un composant RefEdit que tu trouveras facilement en ajoutant des composants supplémentaires à la boîte d'outils. Dans la fenêtre VBA, après avoir créé un UserForm, tu choisis le menu Outils, puis l'option Contrôles supplémentaires. Coche ensuite la case du composant RefEdit.Ctrl. C'est, à quelques détails près, le même composant que l'on trouve dans les boîtes de dialogue d'assistant de formule de Excel, plus précisément la boîte de dialogue Arguments de fonction qui suit la boîte de dialogue Insérer une fonction.

et comment puis-je faire pour lancer ce userform à partir de ma macro? C'est la première fois que je fais ça en vba excel.

j'ai un autre problème, je n'arrive à cliquer sur le bouton "OK" que j'ai créé. Comment ça se fait?

Lancer le UserForm (c'est disponible dans l'aide et abondamment traité sur ce forum)

Code:

---

UserForm1.Show

---

Impossible de cliquer sur le bouton que tu as créé...
Sa propriété Enabled est-elle à True ?
Y a-t-il du code de programmé sur l'événement Click de ce bouton ?

Citation:

---

Envoyé par meuah

et comment puis-je faire pour lancer ce userform à partir de ma macro? C'est la première fois que je fais ça en vba excel.

---

plusieurs solution : soit un bouton sur ta feuille xls avec ce code derrière :

Code:

---

1 2 3

Private Sub CommandButton1_Click() userform.Show End Sub

---

ou si tu veux que la userform se lance dès l'ouverture du classeur :

Code:

---

1 2 3

Private Sub Workbook_Open() userform.Show End Sub

---

le "enabled" est bien à "true"; et j'ai du code derrière, pourtant lorsque je clique, je ne vois même pas le bouton s'enfoncer.
Dans le code, j'ai mis que je voulais cacher le user form (.hide)
Mais je ne sais pas si c'est ce qu'il convient de faire, car je voudrais la fermer afin que ma macro puisse poursuivre.
Et est-ce qu'une fois que le userform sera fermé ou caché, la case que j'ai sélectionné dedans restera la cellule active?

c bon, j'ai trouvé.
J'ai complètement recommencé mon bouton et ça a fonctionné. Et j'ai enlevé le ref.Edit de mon userform!
Voilà
Merci à tous :king:

Je ne vois pas comment le RefEdit pouvait f...re le b...el, mais bon... Je fais quelques tests.

Si tu mets ton UserForm en non-modal (propriété ShowModal = False), tu ne peux pas utiliser correctement ton contrôle RefEdit... finalement, c'est peut-être de là que vient le problème...

par contre je viens de remarquer que quand je lance mon userform, ma macro ne s'arrête pas. J'ai compris que c'est le non-modal qui donne ça. Il n'est donc pas possible de pouvoir avoir accès au fichier tout en bloquant la macro?

Ma question : Veux-tu que le message reste affiché lors de la sélection d'une cellule ou veux-tu afficher le message puis le masquer afin de permettre cette sélection ?

Bonsoir ,

Il faut rajouter une boucle d'attente

dans ton userform :

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Hide End Sub

---

la fonction d'appel dans un module:

Code:

---

1 2 3 4 5 6 7 8

Sub YaUserForm() Dim i As Long UserForm1.Show False While UserForm1.Visible DoEvents 'Boucle d'attente fin saisie sur userform Wend End Sub

---

tu dis quoi ...

Et si tu nous disais contraitement ce que tu veux faire ?
Serait-ce sélectionner des cellules userform actif ? Autre chose ? Quoi d'autre ?