Utilisation de While Wend avec DoEvents

Bonjour,
Je tourne en rond avec ce problème

Code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Blabla()   Code blablabla   Feuille_Source = "" Nom2 = Dir(nom1) ' Nom1 contient le chemin + le nom du fichier Workbooks(nom2).activate While Feuille_Source = "" DoEvents Feuille_Source = ActiveWorkbook.ActiveSheet.Name Wend     Code blablabla   end sub

---

Le but est :
__ Ouvrir un classeur et l'activer . Cela est fait avant le While et fonctionne
__ Sélectionner une feuille et quitter la boucle lorsque je clique sur l'onglet de la feuille

Avec toutes les combinaisons que j'ai faites , cela se passe comme s'il n'y avait pas le DoEvents.
J'ai évidemment dans Feuille_Source le nom de la feuille active à l'ouverture du classeur.
Mais je voudrais la choisir
Merci de votre aide

Bonjour,
Je cherche encore sur ce problème mais je perds espoir.
Je vais certainement réorganiser mon programme pour atteindre mon objectif.
C'est bizarre quand même qu'on ne puisse pas avoir une fonction qui permette de sélectionner une feuille sur le fichier ouvert dans une macro.
La macro ne devant pas se poursuivre tant que la feuille n'est pas choisie
Je vous remercie de votre aide

Bonjour,

Le plus simple, c'est probablement de séparer la macro en deux. La première partie se rend au choix de la feuille.

Ensuite, tu utilises un événement du classeur, dans le code du ThisWorkbook, (tu peux en essayer quelques uns et choisir celui qui convient le mieux), pour lancer la seconde macro.

Bonsoir
Voila ce que je veux faire :

L'objectif est de copier une plage source vers une plage cible à partir d'un classeur source (classeur source et cible)
- J'ouvre mon classeur Excel cible (avec un raccourci sur la bureau)
- je lance une macro avec un bouton créé par le formulaire
- Je sélectionne le classeur source. Là tout se passe bien.

Mais je ne peux pas sélectionner la feuille que je veux traiter (il y en a dix)
Le While DoEvents Wend ne semble pas approprié pour cette opération
Merci pour vos réponses

Bonjour ours-blond

Il y a plusieurs possibilités, suivant la méthode d'appel de la feuille :
Utiliser un test sur le nom de la feuille du classeur du type :

Code:

---

1 2 3 4 5 6 7 8 9

Dim wbk As Workbook Set wbk = Application.Worbooks![xxx.ext] ' xxx.ext est le nom du classeur (y compris éventuellement don adresse   For i = 1 to Sheets.count If wbk.Worksheets(Sheets.i).Name = "yyyy" then ' yyy est le nom de la feuille à ouvrir ou son numéro s'il est connu. .... ' traitement Exit For   Next i

---

ou un

Code:

---

1 2 3 4 5

Dim Feuille As Worksheet   For Each Feuille in wbk.Worksheets Test ' Test du nom et traitement Next

---

Prévoir aussi un traitement des erreurs ou en sortie de boucle si la feuille est non trouvée.

Si le nom de la feuille est fixe ou connu, faire un appel direct sur la feuille : wbk.Worksheets![yyy].Activate

ou encore

Code:

---

1 2 3 4

Dim i As Byte 'pour moins de 256 feuilles Do While wbk.Worksheets(Sheets.i).Name <> "yyy" 'On suppose le classeur actif. i = i + 1 Loop

---

Pour ma part, j'utilise l'instruction suivante pour me positionner sur la dernière feuille d'un classeur à son ouverture :

Code:

---

Worksheets(Sheets.Count).Activate

---

dans le module ThisWorkbook.

Il est aussi possible de choisir la feuille dans une liste en utilisant Sheets.count.

Amicalement.

bonjour
est ce que tu comprends au moins ce que tu fait avec ton code??? de cela rien est moins sur
Feuille_Source = rien avant la boucle
forcement des que tu va selectionner un sheets ta boucle va s'arreter puisque Feuille_Source contiendra un nom meme si c'est pas le bon sheets selectionné

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Blabla() Code blablabla Feuille_Source = "" Nom2 = Dir(nom1) ' Nom1 contient le chemin + le nom du fichier Workbooks(nom2).activate While Feuille_Source = "" DoEvents Feuille_Source = ActiveWorkbook.ActiveSheet.Name Wend

---

tu veux faire quoi exactement c'est pas bien clair ton truc ?

Bonjour,

sans boucle :

Code:

---

1 2 3

Dim pl As Range Set pl = Application.InputBox("Sélectionner une cellule de la feuille source", , , , , , , 8) MsgBox pl.Parent.Name

---

eric

Bonsoir,
Je vous remercie de bien avoir voulu étudié mon problème.
Je sais que l'exemple que j'ai joint ne fonctionne pas.
Je vais essayer d'être plus clair sur le but de la procédure.

1 j'ouvre un classeur et active celui-ci ' dans le blablabla cela fonctionne
Note : C'est un classeur parmi beaucoup d'autres
2 je voudrais sélectionner une feuille dans ce classeur pour traitement
Les feuilles de ces classeurs sont différentes et évolueront au fil du temps (en fait ce sont des compositions de portefeuilles boursiers dont les feuilles contiennent les historiques des actions).
3 le classeur alors actif, je voudrais sélectionner une feuille et capter son nom pour le traitement des données de cette feuille

C'est pourquoi j'interrompt la macro pour choisir cette feuille et que la variable Feuille_Source ="" puisque cela doit être la condition pour sortir de la boucle lorsqu'elle est différente de "".
J'espérais que le DoEvents dans la boucle While me permettait ce choix mais ça ne marche pas .
Le DoEvents est complètement ignoré et ne donne pas la main au système tel que décrit dans l'aide en ligne. J'aurais alors accès au classeur pour un choix manuel (clic de souris sur l'onglet feuille).
Je n'ai pas compris la véritable mission de DoEvents certainement.

Bien sûr dans mon exemple, je sors de la boucle While car Feuille-Source prend le nom de la feuille active du classeur puisque DOEvents ne me permet pas de choisir celle-ci.

En espérant avoir été plus clair je vous remercie de vos réponses

Bon, on va voir si j'ai bien compris.
Vous voudriez à l'ouverture du classeur, choisir une feuille particulière, mais qui n'est peut-être pas forcément la même. Vu que le choix est inclus au milieu d'un code, je pense que le mieux serait au moment du choix, un UF avec une liste qui chargerait les noms de toutes les feuilles grace à une boucle, à l'initialisation du UF. Y a plus qu'a choisir, ce qui activera la feuille, et fermer Le UF. Et le Blablabla continue.
Cordialement 8-)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Blabla()   Code blablabla   Feuille_Source = "" Nom2 = Dir(nom1) ' Nom1 contient le chemin + le nom du fichier Workbooks(nom2).activate Userform1.show Worksheets("????").activate     Code blablabla   end sub

---

Re,

et ma proposition du post #7 ?
eric

Bonjour,
J'ai fais une petite pose "Hors VBA " ce week end avec des amis et je découvre vos réponses aujourd'hui.
Il y a de nouvelles pistes que je vais étudier ce soir et vous dirai juste après les résultats.
A ce soir et merci de vos réponses

bonjour,
Bon bein je n'ai pas pû attendre pour au moins tester une solution.
J'ai mis en œuvre la proposition d'ERIIC.
Cela fonctionne d'ors et déjà pour me permettre de mettre au point la suite de mon code.
Bon pour le moment, je suis obligé de sélectionner une cellule sans cela j'une erreur sur la ligne (pointée en jaune)
Alors je sélectionne la feuille puis la cellule et cela me retourne le Nom de la feuille sélectionnée.
C'est mon objectif.

Je vais tester la solution de Transitoire ce soir . L'approche m'intéresse car à terme je devrai passer par une UserForme pour accéder à plus d'action.
Mais je veux avancer doucement car ne maitrisant pas le language je valide chaque étape et construit l'architecture de l'appli en fonction de tout ça.
J'ai bien une structure globale mais elle est parfois bousculée par les obligations du language.
Et puis il y a des fois où je ne sais pas choisir si je dois passer par macro, ou mettre des fonctions standards directement dans les cellules.
Du coup la solution ne correspondra plus au titre du post initial.

Merci à vous et au site qui a des intervenants compétents et des tutos excellents

Bonsoir,
Alors plutôt que faire mon jardin, j'ai exploité la solution de Eriic.
Super j'ai pû continué à mettre au point le code derrière qui était en dormance car il était sans variables.
Merci Eriic (si j'ai pas de patates nouvelles ce sera de ta faute :))
Alors là bon après midi (pour moi) , mon application je vous en dirai un mot car y a de la suite et mes connaissances en VBA je les apprends avec vous et vos tutos.


Bein oui je vais aborder le sujet des UF.


Ca c'est la solution Transitoire . Je vais y venir obligatoirement. Mais c'est l'organisation d'une UF qui me chagrine car elle est censée contenir beaucoup de choses.
Elle doit être ergonomique et intuitive.
Mais je vais y passer .
Bien le merci à tous et je vais considérer le post comme résolu

Bonsoir, les User Form c'est un monde nouveau qui s'ouvre pour vous.
J'ai créé un programme de facturation/Devis/Comptabilité/Gestion.

Zone de dialogue qui se modifie dans les formes suivant les choix
Pièce jointe 364668 Pièce jointe 364671
Pièce jointe 364673

Zones de dialogue qui se succèdent
Pièce jointe 364676
Pièce jointe 364679 Pièce jointe 364681

C'est fabuleusement pratique et joli, ça fait professionnel.
Bon travail! Comme disait le vieux laboureur à ses enfants, "C'est le fond qui manque le moins"8-)

Bonjour,
Oui c'est sûr que les UF rendent ergonomique une application.
Mais je dois pour le moment donner un certain niveau à mon application.
Son objet est globalement de simuler des portefeuilles boursiers avec application des indicateurs d'analyse technique.
Ceci avec les historiques de n'importe quelle valeur de l'Euronext Paris.
Ensuite faire une synthèse des résultats et faire un nouvel indicateur issu de la synthèse.
Alors j'ai du boulot surtout que je dois surveiller un portefeuille réel

En gros mais c'est à réfléchir
Mon UF (ou plusieurs) devra comporter :
- Accès classeur pilote
- Accès classeurs portefeuille
- Accès classeur Paramètres
- Accès classeurs Historiques
- Accès aux autres UF par une barre menu
- etc

Mais j'ouvrirai un nouveau post sur le sujet quand je serai dans ce niveau et je pense de nouveaux problèmes apparaitrons.
Je vais quand même essayer ta proposition d'ouvrir une UF que j'appellerai dynamique car cela peut se substituer avantageusement à un MsgBox

Vous êtes une mine d'or sur ce site et pourvu qu'on s'intéresse un peu à tous les posts il y a une mine d'information.
Je ne participe pas encore aux réponses mais cela viendra un jour j'espère.
Pour le moment je préfère apprendre et ne pas être un mauvais professeur ;)