Macro déplacer des colonnes ?

Bonsoir j'aurais besoin d'un macro qui me déplacerais toute une colonnes en fonction d'un nom par exemple :

Je veux que:

la colonne C du nom "Aurevoir" soit placée en A

la colonne D du nom "POT" soit placée en B.

etc....

Merci à vous

Bonjour,

Voir l'exemple.

A+

Ca fonctionne, mais j'ai constaté que dans le cas ou la colonne est déjà bien placée en fonction du nom, la macro me dit qu'elle ne peut pas superposer deux colonnes, peux-tu dire à la macro que si la colonne est déjà bien en place ne rien faire ? merci encore.

Re,

Option Explicit
Sub Macro1()
Dim Texte As Range
    With Worksheets("Feuil1")
        'Recherche du texte "AUREVOIR"
        Set Texte = .Rows(1).Find("AUREVOIR", LookIn:=xlValues, lookat:=xlWhole)
        If Not Texte Is Nothing And Texte.Column <> 1 Then
            Texte.EntireColumn.Cut
            .Columns("A:A").Insert Shift:=xlToRight
        End If
        'Recherche du texte "POT"
        Set Texte = .Rows(1).Find("POT", LookIn:=xlValues, lookat:=xlWhole)
        If Not Texte Is Nothing And Texte.Column <> 2 Then
            Texte.EntireColumn.Cut
            .Columns("B:B").Insert Shift:=xlToRight
        End If
    End With
End Sub

A+

Oui ça fonctionne mais je me rends compte que ça ne vas pas sur mon fichier, alors serait-il possible de dire à une macro :

Copier la colonne "ALLO" en A vers la feuille 2 en colonne C ?

Copier la colonne "MAMAN" en D vers la feuille 2 en colonne A ?

J'en ai 8 à faire.

merci je ferais le reste.

Tu veux faire cette opération en plus du traitement précedent ou en remplacement ?

La colonne "ALLO" est simplement copiée ou coupée ?

Le collage en Feuille 2 colonne C vient écraser les données ou s'insérer ?

Idem pour la colonne "MAMAN" ?

S'il s'agit simplement de

• copier la colonne A vers la colonne C de la feuille 2,
• copier la colonne D vers la colonne A de la feuille 2 :

Sub Macro2()
    With Worksheets("Feuil1")
        'Copie de la colonne A vers colonne C feuille 2
        .Columns(1).Copy Worksheets("Feuil2").Columns(3)
        'Copie de la colonne D vers colonne A feuille 2
        .Columns(4).Copy Worksheets("Feuil2").Columns(1)
    End With
End Sub

A+

Ca me vas très bien comme ceci. merci encore.