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
Configuration: Windows 2000
Internet Explorer 6.0

13 réponses

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

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

    Merci
    0
  3. 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
  4. 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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. laetitia02 Messages postés 428 Statut Membre 130
     
    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
  7. 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
  8. 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
  9. 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
  10. 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
  11. phil232 Messages postés 610 Statut Membre 178
     
    debrouille toi même. t'as tout sous les yieux; et n'oublies pas F1
    0
  12. 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
  13. laetitia02 Messages postés 428 Statut Membre 130
     
    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
    1. 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
  14. atb
     
    Je te remercie

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