Discussion :

[flo1411]

Bonjour à tous,
Voilà mon code simplifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim feuille As Variant
Dim f1, f2, f3, f4 As Worksheet
Set f1 = Worksheets("Eric")
Set f2 = Worksheets("Chrystelle")
Set f3 = Worksheets("Mathieu")
Set f4 = Worksheets("Daniel")
For Each feuille In Array(f1, f2, f3, f4)
    Worksheets("mafeuille").Range(i,j).Value = feuille.Name
Next

En gros, je veux inscrire dans une cellule le nom de la feuille. Mais la fonction .Name n'est pas dispo pour un Variant... Comment puis-je faire ?
Merci d'avance.

[SfJ5Rpw8]

Bonjour,

Comment fait tu évoluer tes variables i et j ?

[flo1411]

Non i et j c'était pour l'exemple... je sélectionne mes cellules autrement. Le problème vient de la variable variant...

[SfJ5Rpw8]

remplace i et j par 1 et essai ton code ..

[Invité]

Essaie avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Test()
 
Dim feuille As Variant
Dim i As Integer
Dim f1, f2, f3 As Worksheet
 
    Set f1 = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")
    Set f3 = Sheets("Feuil3")
 
    i = 1
    For Each feuille In Array(f1, f2, f3)
        Sheets("Feuil1").Cells(i, 1).Value = feuille.Name
        i = i + 1
    Next
 
End Sub