Problème variable variant

Version imprimable

Bonjour à tous,
Voilà mon code simplifié :
Code:

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.

29/04/2013, 17h50
SfJ5Rpw8

Bonjour,

Comment fait tu évoluer tes variables i et j ?
29/04/2013, 18h05
flo1411

[XL-2007] Problème variable variant

Non i et j c'était pour l'exemple... je sélectionne mes cellules autrement. Le problème vient de la variable variant...
29/04/2013, 18h10
SfJ5Rpw8

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

Essaie avec ce code:

Code:

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