Discussion :

[bonilla]

Bonjour à tous ,j'ai un petit soucis sur une boucle VBA que je n'arrive pas a faire marcher

J'ai x feuilles sur mon fichiers excel (une trentaine,soit x1,x2..xn)
J'ai la meme structure sur ces feuilles (en cellule A4 ,j'ai le nom,cellule B9,Prénom...)

Je voudrais récuperer toutes ces informations sur une nouvelle feuille
et les mettre toutes les infos par lignes (une nouvelle ligne a chaque fois), pour avoir une sorte de table utilisable par access

En cherchant ,j'ai vu que Sheets(i).Name prenait toutes les feuilles quelque soit leur nom, mais j'arrive pas a faire copier les infos ,les mettre sur la 2ème ligne de ma feuille (ou y'aurait toutes les infos),puis que ca enchaine sur la 3eme ligne avec toutes les infos présentes sur la feuille x2 ...

Merci d'avance!

[bidou]

par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub demo()
 
Dim Feuille As Worksheet, cmpt As Long
 
cmpt = 1
For Each Feuille In ActiveWorkbook.Worksheets
    If Not Feuille Is ActiveSheet Then
        Feuille.Range("B5:C5").Copy Destination:=ActiveSheet.Cells(cmpt, 1)
        cmpt = cmpt + 1
    End If
Next
 
End Sub

[bonilla]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub demo()
 
Dim Feuille As Worksheet, cmpt As Long
 
cmpt = 1
For Each Feuille In ActiveWorkbook.Worksheets
    If Not Feuille Is ActiveSheet Then
        Feuille.Range("B5:C5").Copy Destination:=ActiveSheet.Cells(cmpt, 1)
        cmpt = cmpt + 1
    End If
Next
 
End Sub

Merci pour ta réponse bidou .Donc ca ,ca me copierait les cellules B5:C5 vers où?
C'est possible de mettre en destination :
Feuille 1
en partant de la cellule A2 (qui prendrait la source dans la feuille x1 ,en cellule D12),
en B2(qui prendrait la source dans la feuille x1(en cellule E15)
en C2(qui prendrait la source dans la feuille x1(en cellule H18)
Pour ainsi avoir dans feuille1 toutes les données en une ligne
Et que la macro continue avec l'autre feuille (x2), et me remplisse sur la feuille1 ,sur la ligne d'apres (ici dans mon exemple ca donnerait pour la ligne d'apres A3,B3,C3...)

J'attends avec impatience votre aide!
Merci

[SfJ5Rpw8]

pourrai tu nous en dire plus .. boucler sur toutes les feuilles du classeurs et prendre les données de celle-ci (sauf pour la feuille 1..) te conviens.. ou y as t'il d'autre feuilles dans ton classeur...? la copie des donnée seule suffit'elle ou faut'il en plus copier le format de la cellule ( couleur, gras..)

[bonilla]

boucler sur toutes les feuilles du classeurs et prendre les données de celle-ci (sauf pour la feuille 1..) me convient..
Et pour la deuxieme précision la copie des donnée seule me suffit

Voila

[bidou]

c'est pareil

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
Sub demo()
 
Dim Feuille As Worksheet, FeuilCible As Worksheet, cmpt As Long
 
cmpt = 2
Set FeuilCible = ActiveWorkbook.Worksheets("Feuil1")
For Each Feuille In ActiveWorkbook.Worksheets
    If Not Feuille Is FeuilCible Then
        Feuille.Range("D12").Copy Destination:=ActiveSheet.Cells(cmpt, 1)
        Feuille.Range("E15").Copy Destination:=ActiveSheet.Cells(cmpt, 2)
        Feuille.Range("H18").Copy Destination:=ActiveSheet.Cells(cmpt, 3)
        cmpt = cmpt + 1
    End If
Next
 
End Sub

[bonilla]

Je test ca , merci les mecs!