Comment creer un msgbox?

atb -  
phil232 Messages postés 610 Statut Membre -
Bonjour,

J'aimerais creer un msgbox me rapportant toutes les onglets commencant par "Er - "

Merci d'avance

13 réponses

laetitia02 Messages postés 428 Statut Membre 129
 
bonjour
peut tu mieux expliquer ton probleme stp?
quand tu parle d'onglets tu veux dire quoi?
0
atb
 
Bonjour,

quand je parle d'onglet se sont les nom des feuilles excel d'un document excel.

Merci
0
atb
 
Bonjour,

personne n'a d'idée?

Sinon existe t il un code pouvant m'indiquer toutes les feuilles commencant par "Er -"???

Merci merci merci...
0
atb
 
Bonjour,

personne n'a d'idée?

Sinon existe t il un code pouvant m'indiquer toutes les feuilles commencant par "Er -"???

Merci merci merci...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
laetitia02 Messages postés 428 Statut Membre 129
 
je ne connais pas trop excel mais je sais qu'il est possible d'effectuer des requete sous celui ci alors essai de faire une requete qui ira chercher toute t page commencant par ER
0
phil232 Messages postés 610 Statut Membre 178
 
crées un objet Workbook. celui contient les Worksheets (les onglets si tu veux). puis

for each ws in Workbook.Worksheets
msgbox ws.name
next
0
atb
 
Bonjour,

Désolé phil232 mais je n'ai pas très bien compris ce que tu m'as dis.. je suis un peu nivice en VB :)
0
phil232 Messages postés 610 Statut Membre 178
 
F1 peut faire des miracles



Private Sub Workbook_Open()

Dim WS As Worksheet

For Each WS In ActiveWorkbook.Worksheets
    MsgBox WS.Name
Next

End Sub
0
atb
 
Super, ca marche!!!

encore une toute petite chose j'aimerai avoir la même fonction mais juste pour les feuilles commencant par "ER"

C'est possible???
0
phil232 Messages postés 610 Statut Membre 178
 
debrouille toi même. t'as tout sous les yieux; et n'oublies pas F1
0
atb
 
J'aimes bien les personnes comme toi
débrouilles toi même... c'est sur si je savais faire je ne serais pas venu ici....
Si je demande c'est que la prog ce n'est pas mon truc malgrés l'aide dans F1!!..

Donc je prefere que tu ne répondes rien plutôt de dire "debrouille toi même...."

Cordialement
0
laetitia02 Messages postés 428 Statut Membre 129
 
j suis nul en vb excel mais j te conseil de regarder comment on effectue des requete avec excel sur internet, il doit y avoir d tutoriaux excel qui explique sa , et apres tu pourra creer une requete que cherche toute t feuille excel commencant pas er sous access sa donnerai sa
select namefeuille from feuille where namefeuille="Er%"
% indiquant qu il peut y avoir plusieur caractere derrier ER
0
phil232 Messages postés 610 Statut Membre 178
 
ce qu'il cherche c'est qu'on écrit à sa place car la soluce n'est pas difficile

If Left(WS.Name, 2) = "ER" Then MsgBox WS.Name
0
atb
 
Je te remercie

je vais essayé de mettre cela en application ;)
0