Boucle avec la fonction (Name)

[matt916]

Bonjour à toutes et tous,

Mon problème est simple. Malgré mes recherches sur le net, je n'ai rien trouvé alors j'en appelle à votre savoir.

Mon Problème :
Je dispose d'un classeur avec x feuilles ayant un nom (fontion .Name).
Feuil1 (Name) > Nom de l'onglet "Toto" (.Name)
Feuil2 (Name) > Nom de l'onglet "Titi" (.Name)
...
Feuil5 (Name) > Nom de l'onglet "Tata" (.Name)

J'ai besoin de faire une boucle sur certaines feuilles. Pour cela, je voudrais m'appuyer sur le nom "(Names)" des feuilles et non le nom de l'onglet. Ma variable (FeuilleActive) me sort un résultat entre guillemets. Ce sont eux les fautifs, j'en suis sûr !

Voici mon code :
For i = 2 To 5

FeuilleActive = "Feuil" & i
FeuilleActive.Activate

Next i

Je vous remercie par avance pour votre soutien et aide.
A très bientôt.
Matt

 

[Pierrot93]

Re : Boucle avec la fonction (Name)

Bonjour à tous

une autre piste, pour les "codename" Feuil1 à Feuil10...

Option Explicit
Sub test()
Dim n As Byte, t(1 To 10) As String
For n = 1 To 10
    t(n) = "Feuil" & n
Next n
For n = 1 To Sheets.Count
    If Not IsError(Application.Match(Sheets(n).CodeName, t, 0)) Then
        Cells(1, 1).Value = "test validé"
    End If
Next n
End Sub

@+

 

[pierrejean]

Re : Boucle avec la fonction (Name)

Re

@ Matt
as-tu testé ma derniere version (avec correction m a la place de n)

@ Pierrot
J'ai testé ta proposition
Il me semble qu'il manque un Sheets(n)

version adaptée au fichier de Matt

Sub test()
Dim n As Byte, t(2 To 4) As String
For n = 2 To 4
    t(n) = "Feuil" & n
Next n
For n = 1 To Sheets.Count
    If Not IsError(Application.Match(Sheets(n).CodeName, t, 0)) Then
        [COLOR=blue]Sheets(n).[/COLOR]Cells(1, 1).Value = "test validé"
    End If
Next n
End Sub

 

[job75]

Re : Boucle avec la fonction (Name)

Re,

Faire attention matt, pierrejean a bien écrit dans sa dernière macro :

Set FeuilleActive = Sheets(m)

alors que dans sa 1ère macro ceci était incorrect :

Set FeuilleActive = Sheets(n)

Edit : excuse-moi pierrejean

A+

 

[Pierrot93]

Re : Boucle avec la fonction (Name)

Re

Aarf effectivement PierreJean🙂, bien vu, merci pour la correction.

 

[matt916]

Boucle avec la fonction (Name) [RESOLU]

PierreJean,

Un très grand merci ! ça fonctionne parfaitement avec cette toute petite modification.
A très bientôt et merci à tous pour votre aide.

Matth