Boucle sur nom de feuille

Question

Salut tout le monde je suis un petit nouveau dans le circuit!!!

Voil&#224; j'ai un petit probl&#232;me et j'esp&#232;re que l'un de vous pourra m'aider:

j'aimerais faire une boucle dans VB sur des feuilles d'excel qui se nomment "classeur1", "classeur2", classeur3" etc... donc vous voyez mon probl&#232;me? en fait j'aimerais donc boucler sur un iterateur i du style: for i= 1 to n, Windows("classeur i".xls).select ....


C'est compr&#233;hensible???

Merci pour votre aide.

Arno

fcampagne · Answer

Slt 

il suffit de concat&#233;ner le nom de la feuille avec ton indice de boucle

 

 for i= 1 to n

  Windows("classeur " & i & ".xls").select 

next

Utilisateur anonyme · Answer

Bonjour,



Dim i As Integer

For i = 1 To Application.Workbooks.Count

  MsgBox Application.Workbooks(i).Name

  '...

Next i



ChRB
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

91arno78 · Answer

Bon ben je vais essayer de ce pas!!!

Merci beaucoup fcampagne

91arno78 · Answer

Ben apparemment ca marche pas il me met une erreur de compilation....

comprends pas ca avait l'air logique.

91arno78 · Answer

Je comprends pas trop ta solution charles... je ne lui d&#233;signe pas les feuilles comment il va les reconnaitre?

Utilisateur anonyme · Answer

Bonjour,



Pardon, j'avais mal compris ton pb.

Ceci serait mieux



Dim i As Integer

For i = 1 To Application.Workbooks.Count

  If UCase(Left(Application.Workbooks(i).Name, 8)) = UCase("Classeur") Then

    MsgBox Application.Workbooks(i).Name

  End If

Next i



ChRB
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

91arno78 · Answer

En fait j'ai d'autres feuilles excel d'ouvertes &#224; cot&#233; de celles nomm&#233;es "classeur"1 etc ca va poser probl&#232;me?

aieeeuuuuu · Answer

salut 
t'as aussi cette m&#233;thode :

Public Sub test()


    Dim feuille As Worksheet
    Dim classeur As Workbook
    
    Set classeur = ThisWorkbook
    
    For Each feuille In classeur.Worksheets
        MsgBox feuille.Name
    Next
End Sub

avec cette methode tu as une boucle qui passe en revue toutes les feuilles de ton classeur

91arno78 · Answer

Bon ben en fait ca ca marche mais fo remplacer "select" par "activate"

for i= 1 to n
  Windows("classeur " & i & ".xls").select 
next

Merci tout le monde pour votre aide

Boucle sur nom de feuille

9 réponses

Discussions similaires