Comment creer un msgbox?

Fermé
atb - 28 janv. 2008 à 10:48
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 - 28 janv. 2008 à 17:35
Bonjour,

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

Merci d'avance
A voir également:

13 réponses

laetitia02 Messages postés 424 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 12 mars 2009 129
28 janv. 2008 à 10:50
bonjour
peut tu mieux expliquer ton probleme stp?
quand tu parle d'onglets tu veux dire quoi?
0
Bonjour,

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

Merci
0
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
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 424 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 12 mars 2009 129
28 janv. 2008 à 11:19
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 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 178
28 janv. 2008 à 13:31
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
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 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 178
28 janv. 2008 à 16:48
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
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 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 178
28 janv. 2008 à 17:10
debrouille toi même. t'as tout sous les yieux; et n'oublies pas F1
0
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 424 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 12 mars 2009 129
28 janv. 2008 à 17:21
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 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 178
28 janv. 2008 à 17:35
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
Je te remercie

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