Copie de Colonne VBA

Bonjour , je voudrais savoir comment copier les colonnes A D et E dans une nouvelle feuilles en VBA car j'ai donc plusieurs feuilles ou il faut coller les colonnes.

Je voudrais aussi que lorsque les colonnes sont copiées dans la nouvelle feuille elles se suivent c'est a dire tous les valeurs des colonnes A de chaque feuilles sont dans la même colonne pour la colonnes D et E aussi

Bonsoir

Vois une réponse similaire de Spyderpaint (merci à lui) dans ce même forum :

https://forum.excel-pratique.com/excel/macro-pour-copier-coller-des-colonnes-t23601.html

Bon courage

Cordialement

Hello,

En plus simple a coller dans le code de la feuil1 ( ça copie colonne A,D,E Feuil 1 pour coller dans la Feuil2.) A toi d'adapter pour tes feuilles. Pas besoin d’exécuter avec un bouton c'est automatique.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Integer

Col = Target.Column
If Col = 1 Then
Me.Range("A:A").Copy Destination:=Sheets("Feuil2").Range("A1")
If Col = 4 Or Col = 5 Then
Me.Range("D:E").Copy Destination:=Sheets("Feuil2").Range("D1")
End If
End If
End Sub

bonjour à tous

suite au MP de Victor, je donne un avis : il faut réorganiser TOUTES les données en base simple sur une unique feuille.

pas de feuilles différentes selon les nomenclatures telles que DL380-G1

pas de lignes de coupure comme System Components ou Processors (on trouvera donc une colonne "Groupe de matériel".

ensuite, il devient totalement inutile de faire des copies de colonnes

de simples filtres suffisent, et des TCD font des présentations complexes de synthèses en quelques clics

c'est ainsi que fonctionnent TOUS les progiciels

nota : on s'éloigne donc de ce qui se fait avec un papier quadrillé et un crayon. On fait de l'Excel propre et hyper-simple

pas de VBA

Merci pour vos réponse je test demain au taff !

Je voulais copier les colonnes pour ensuite pour m'en servir comme matrice pour une rechercheV et par soucis de devoir donner aux commerciaux HP leur modèle de référence ( DL380-G1) sur une seule feuille pour plus de clarté ( mon boss qui le dit )

Merci a tous cas d'avoir pris le temps de résoudre mon problème !

re

pour avoir un onglet= une référence, il suffit de créer l'onglet REF ABCD, d'y mettre un TCD et de filtrer ABCD

créer autant d'onglets de ce type que de références

(les TCD sont d'excellents filtres sur onglets séparés)

pas de VBA, aucune formule, même pas de RECHERCHEV

Merci pour ta réponse encore une fois !

J'aurais juste besoin d'un petit ajustement sur une macro que j'ai trouver je voudrais a la place 'Sélection des lignes et copie

Range("A2:G2").Select je voudrais qu'il me copie la colonne B D E

Sub recopie_lignes()
Dim nomfeuille As String

nomfeuille = ActiveSheet.Name

'Sélection des lignes et copie
Range("A2:G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

'Collage dans la feuille de RECAP
Sheets("RECAP").Select
Range("A2").Select

'verification du contenu de RECAP
If ActiveCell.Value <> "" Then
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
Else
    ActiveSheet.Paste
End If

'retour sur la feuille d'origine
Sheets(nomfeuille).Select
Range("A1").Select
Application.CutCopyMode = False

End Sub

Bonjour

Quelque chose de ce style si tu veux du vba, à adapter en fonction de tes feuilles

Sub CopieCol()
    Sheets("Feuil1").Select
    Range("B:B,D:D,E:E").Select
    Range("E1").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
End Sub

Merci pour ta reponse mais lorsque que j’exécute le code la colonne C est copier aussi peut tu m'aider la dessus ?

Re

Je teste avec la première feuille de ton fichier :

Sub CopieCol()
    Sheets("DL380-G1").Select
    Range("B:B,D:D,E:E").Select
    Range("E1").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
End Sub

Je n'ai bien que les colonnes sélectionnées

Par contre bien sûr, sur la nouvelle feuille elles sont en A B C

J"ai peut-être mal compris ton problème.

Bon courage

Cdlt