Fusion de plusieur feuille

Voila j'ai un classeur avec plusieurs feuilles totalement différente , et je voudrais récupéré certain colonne de chaque feuille dans une nouvelle automatiquement

Quelqu'un a t'il une idée ?

Merci d'avance

personne peu m'aidé ?

up

Pê un truc du Genre

Sub manipulations_des_colonnes()
'
'Mon premier commentaire !
'
     Columns("A:A").Select
     Selection.ClearContents
     Columns("C:C").Select
     Selection.ClearContents
     Columns("B:B").Select
     Selection.Cut Destination:=Columns("A:A")
     Columns("D:D").Select
     Selection.Cut Destination:=Columns("C:C")
     Columns("C:C").Select
End Sub

Mai si tu cherche plutôt a sélectionner une info en particulier c'est plus la fonction décaler a avec un menu déroulant ?

Bien faite je voudrais par exemple :

Copié la colone Q de la feuille SITE 1 et la COLONE P de la feuille SITE 2 dans la colone A de la feuille RECAP

Et que sa soie automatique avec une macro

Bon j'ai presque trouvé , mes le probleme sais que la 1er efface la 2eme , quelqu'un peu dire comment faire pour mettre a la suite ?

Sub CREATION()

Sheets("SITE 1").Select

Columns("B:B").Select

Range("B1").Activate

Selection.Copy

Sheets("RECAP").Select

Columns("A:A").Select

ActiveSheet.Paste

Sheets("SITE 2").Select

Columns("A:A").Select

Range("A1").Activate

Selection.Copy

Sheets("RECAP").Select

Columns("A:A").Select

ActiveSheet.Paste

End Sub

personne a une idée a me donné ? SVP

up

Bonjour

Il faudrait que tu indiques quelles sont les colonnes qui correspondent à la colonne A, ainsi que celles pour la colonne B etc ....

Comment veux tu que l'on fasse quelque chose si rien ne correspond

que veux tu que je t'indique exactement ?

je voudrais par exemple que les colonnes A des feuilles 2 et 3 soie copie dans la colonne A de la feuille 1

Bonjour

J'avais commencé avec ton 1er fichier et les maigres informations que tu as données

Colonne B de la feuille "SITE_1" et colonne A de la feuille "SITE_2" dans la colonne A de la feuille "RECAP"

super sais exactement sa que je voulais

et je veux rajouter les autre colonne , je peu juste recopie et ajouter a la suite en modifiant les colonnes que je veux ?

Bonjour

zeweb a écrit :

je peu juste recopie et ajouter a la suite

C'est presque ça

Dans le tableau Colonnes tu rajoutes la colonne de la page "SITE_1" et la colonne de la page "SITE_2"

Avant tu as ça

Colonnes = Array("B", "A")

et si veux pour la colonne B de la page "RECAP" la colonne C de la page "SITE_1" et la colonne H de la page "SITE_2"

Tu dois modifier comme cela

Colonnes = Array("B", "A", "C", "H")

Ensuite la macro se débrouille toute seule

Super facile GRAND MERKI je me prend la tête depuis plusieurs jours

Dernier question si je veux rajouter une feuille SITE_3

par contre dans une COLONNE de la feuille recap je voudrais une valeur permanente ex: 0.25

Bonjour

Il faut modifier la macro

Option Explicit

Sub recopie()
Dim I As Integer, K As Integer
Dim Colonnes
Dim Sites(2) As Worksheet   ' Nombre de pages -1

  Application.ScreenUpdating = False
  ' Dans l'ordre colonne (page 1), colonne (page 2), colonne (page 3), etc .....
  Colonnes = Array("B", "A","J")
  Set Sites(0) = Sheets("SITE_1")
  Set Sites(1) = Sheets("SITE_2")
  ' Si page supplémentaire
  Set Sites(2) = Sheets("SITE_3")

  If Range("A2") <> "" Then
    Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
  End If

  For I = 0 To UBound(Colonnes) Step 3    ' Nombre de pages
    For K = 0 To 2                        ' Nombre de pages -1
      With Sites(K)
        .Range(.Cells(2, Colonnes(I + K)), .Cells(Rows.Count, Colonnes(I + K)).End(xlUp)).Copy Cells(Rows.Count, 1 + (I \ 2)).End(xlUp).Offset(1, 0)
      End With
    Next K
  Next I
End Sub

Et si je veux une COLONNE de la feuille recap avec une valeur permanente ex: 0.25

et es ce que cela peu marché :

Colonnes = Array("B", "A", "Q", "F + H")

en voulant ajouter un ongle cela m'indique une erreur ici :

.Range(.Cells(2, Colonnes(I + K)), .Cells(Rows.Count, Colonnes(I + K)).End(xlUp)).Copy Cells(Rows.Count, 1 + (I \ 2)).End(xlUp).Offset(1, 0)

Bonjour

zeweb a écrit :

et es ce que cela peu marché :

Si tu trouves cette colonne "F + H" tu auras ta réponse

ha oui lol donc pas possible d'addition 2 colonnes en 1

J'ai un soucie cela me copie avec a chaque fois une colonne de décalage

Bonjour à toi aussi

Un raté

Il faut que tu changes la valeur surlignée (elle indique le nombre de page)

  For I = 0 To UBound(Colonnes) Step 4    ' Nombre de pages
    For K = 0 To 3                        ' Nombre de pages -1
      With Sites(K)
        .Range(.Cells(2, Colonnes(I + K)), .Cells(Rows.Count, Colonnes(I + K)).End(xlUp)).Copy Cells(Rows.Count, 1 + (I \ 4)).End(xlUp).Offset(1, 0)
      End With
    Next K
  Next I
End Sub

Désolé