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:
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?
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 la suite du programme je ne sais si sa passe pas du coup![]()
Partager