Bonjour,

Je cherche à prendre des informations sur différentes feuilles. Ces feuilles sont toutes faites celon le meme modèle. Elles contiennent des noms sur la colonne A.
Mon but premier est de prendre ces noms, de les mettre dans une autre feuille afin de constituer une liste.

Voila le 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub Tableau_recapitulatif()
 
'Déclaration des variables
 
Dim VarRecap(7) As String
Dim Cel As Range
Dim Cel1 As Range
Dim Compteur As Integer
Dim Counteur As Integer
 
'Je remplie mon "tableau"
 
VarRecap(1) = Worksheets("Feuil1")
VarRecap(2) = Worksheets("Feuil2")
VarRecap(3) = Worksheets("Feuil3")
VarRecap(4) = Worksheets("Feuil4")
VarRecap(5) = Worksheets("Feuil5")
VarRecap(6) = Worksheets("Feuil6")
VarRecap(7) = Worksheets("Feuil7")
 
'J'affecte Cel a une cellule
 
Set Cel = Range("B6")
 
'J'affecte une valeur de départ pour mon Compteur
 
Compteur = 1
 
'Je mets en place une boucle qui collera les informations contenues dans les colonnes
'A de mes différentes VarRecap
 
For i = 1 To 7
    VarRecap(i).Activate
        While Cel.Offset("Compteur") <> ""
        Compteur = Compteur + 1
        Wend
 
    Range("A6: A" & Compteur).Copy
 
'Je vais maintenant coller ces données dans la feuille désirée
 
'Je sélectionne ma feuille
 
Worksheets("Recapitulatif").Activate
 
'J'affecte une valeur à Counter
 
Counter = 1
 
'Je recherche la dernière ligne vide de ma Colonne A
 
        While Cel.Offset("Counter") <> ""
        Counter = Counter + 1
        Wend
 
'Je colle les données dès la première cellule vide
 
Range("A" & Counteur).Activate
ActiveSheet.Paste
 
Next i
 
 
End Sub
Pour le moment mon programme s'arrête net à VarRecap.Activate, donc j'imagine que je n'ai pas le droit d'activer une variable?

Pour la suite du programme je ne sais si sa passe pas du coup