concaténer colonnes sur nouvelle feuille

[Romain31]

Bonjour à tous,

mon classeur contient environ 100 feuilles identiques.
Je récupère la colonne G de chacune pour la placer sur une nouvelle feuille, pour en faire la synthèse.
L'exemple que je joins me récupère les données sur la même colonne, à la suite (verticalement).
Je voudrais récupérer les données de chaque colonne horizontalement.
Le fichier est plus explicite.

Un grand merci pour votre aide, et bonne journée à tous.

Romain

 

[Dull]

Re : concaténer colonnes sur nouvelle feuille

Salut Romain31, le Forum

A condition que le nom de tes feuilles, avant la Feuille Données, commencent toutes par Feuill (Feuill1, Feuill2, Feuill3...)

et si la configuration de tes feuilles sont réellement identiques essaye cette formule en G5 à incrémenter vers le Bas et Vers la Droite

=INDIRECT("Feuil"&COLONNE()-6&"!G"&LIGNE()-1)

Bonne Journée

 

[Papou-net]

Re : concaténer colonnes sur nouvelle feuille

Bonjour Romain31, Dull,

Ma solution par modification de la macro de Romain :

Sub test()
Dim i As Byte, y As Byte

Application.ScreenUpdating = False
' Teste si la feuille "Données" existe déjà
If Not Sheets(Sheets.Count).Name = "Données" Then
  Worksheets.Add after:=Sheets(Sheets.Count)
  ActiveSheet.Name = "Données"
End If
' Initialise la 1ère colonne de la feuille "Données"
y = 8
For i = 1 To Sheets.Count - 1
  With Sheets(i)
    .Range("G1").Resize(.Range("G65536").End(xlUp).Row, 1).Copy _
      Sheets("Données").Cells(65536, y).End(xlUp)(2)
  End With
  y = y + 1 ' Décale d'une colonne à droite
Next i
Application.ScreenUpdating = True
End Sub

Je pense qu'il est utile de tester si la feuille "'Données" existe déjà. Ensuite, j'ai créé une variable "y" qui correspond à la colonne sur laquelle on colle la sélection.

Espérant avoir répondu.

 

[Romain31]

Re : concaténer colonnes sur nouvelle feuille

Merci Dull pour ta réponse.

Utiliser une fonction pour corriger la macro est intéressant, mais sans doute peut-on tout régler par VBA.
La plage G5:G8 correspond à la récupération de la Feuil1

Je dois récupérer de cette manière afin de mettre à la fin de la ligne une fonction NB.SI pour faire des stats.

 

[Romain31]

Re : concaténer colonnes sur nouvelle feuille

Papou-net,

Je viens de voir ta réponse.
C'est tout à fait ce que je souhaitais réaliser.
Un grand merci.