Macro dépalcer des colonnes ?

[DJ FA]

Bonsoir j'aurais besoin d'un macro qui me déplacerais les colonnes en fonction d'un nom par exemple :
Je veux que:
la colonne C du nom "Aurevoir" soit placée en colonne A de la feuille 2
la colonne D du nom "POT" soit placée en colonne B de la feuille 2.

J'en ai 8 à faire. 😕

Merci

 

[job75]

Re : Macro dépalcer des colonnes ?

Bonjour DJ FA,

J'en ai 8 à faire. 😕

Je ne vois que 6 colonnes.

Et vous n'avez défini ce qu'il faut faire que pour 2 😕

A+

 

[ROGER2327]

Re : Macro dépalcer des colonnes ?

Bonjour à tous,

Un essai :​

Sub coupe()
Dim i&, j&, tbl()
Const Orig$ = "Feuil1" 'Nom de l'onglet de destination.
Const Dest$ = "Feuil2" 'Nom de l'onglet de destination.
Const NCol& = 99 'Nb. de cellules d'en-tête à traiter dans l'onglet d'origine.

    tbl = Array(Array("ALLO", "@"), Array("BONJOUR", "@"), Array("AUREVOIR", "A"), _
        Array("POT", "B"), Array("MAMAN", "@"), Array("BEBE", "@"))
        'Complètez la liste à votre convenance. Les champs associés à "@" sont ignorés.

    With Worksheets(Orig)
        For i = 0 To UBound(tbl)
            If Not tbl(i)(1) = "@" Then
                For j = 1 To NCol
                    If .Cells(1, j).Value = tbl(i)(0) Then Exit For
                Next
                If j <= NCol Then .Columns(j).Cut Destination:=Worksheets(Dest).Range(tbl(i)(1) & "1")
            End If
        Next
    End With
End Sub

ROGER2327
#6299

Dimanche 15 Sable 140 (Khurmookum du Dr Faustroll - fête Suprême Seconde)
25 Frimaire An CCXXI, 7,0618h - grillon
2012-W50-6T16:56:54Z

 

[DJ FA]

Re : Macro dépalcer des colonnes ?

Bonjour DJ FA,



Je ne vois que 6 colonnes.

Et vous n'avez défini ce qu'il faut faire que pour 2 😕

A+

Oui en effet.😛

 

[DJ FA]

Re : Macro dépalcer des colonnes ?

Bonjour à tous,

Un essai :​

Sub coupe()
Dim i&, j&, tbl()
Const Orig$ = "Feuil1" 'Nom de l'onglet de destination.
Const Dest$ = "Feuil2" 'Nom de l'onglet de destination.
Const NCol& = 99 'Nb. de cellules d'en-tête à traiter dans l'onglet d'origine.

    tbl = Array(Array("ALLO", "@"), Array("BONJOUR", "@"), Array("AUREVOIR", "A"), _
        Array("POT", "B"), Array("MAMAN", "@"), Array("BEBE", "@"))
        'Complètez la liste à votre convenance. Les champs associés à "@" sont ignorés.

    With Worksheets(Orig)
        For i = 0 To UBound(tbl)
            If Not tbl(i)(1) = "@" Then
                For j = 1 To NCol
                    If .Cells(1, j).Value = tbl(i)(0) Then Exit For
                Next
                If j <= NCol Then .Columns(j).Cut Destination:=Worksheets(Dest).Range(tbl(i)(1) & "1")
            End If
        Next
    End With
End Sub

ROGER2327
#6299

Dimanche 15 Sable 140 (Khurmookum du Dr Faustroll - fête Suprême Seconde)
25 Frimaire An CCXXI, 7,0618h - grillon
2012-W50-6T16:56:54Z

Je test ce soir.

 

[DJ FA]

Re : Macro dépalcer des colonnes ?

Excellent ! merci chef !😎

 

[job75]

Re : Macro dépalcer des colonnes ?

Bonjour DJ FA, Roger,

Une solution par double-clic en ligne 1 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 Then Exit Sub
Cancel = True
With Feuil2.[IV1].End(xlToLeft) 'CodeName de la feuille
  Target.EntireColumn.Copy .Cells.Offset(, -(.Text <> ""))
  Target.EntireColumn.Delete
End With
End Sub

Fichier joint.

Nota : s'il y a des formules il peut y avoir des problèmes...

A+

 

[job75]

Re : Macro dépalcer des colonnes ?

Re,

On peut utiliser Cut, mais alors il faut utiliser ActiveCell :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 Then Exit Sub
Cancel = True
With Feuil2.[IV1].End(xlToLeft) 'CodeName de la feuille
  Target.EntireColumn.Cut .Cells.Offset(, -(.Text <> ""))
  ActiveCell.EntireColumn.Delete
End With
End Sub

Fichier (2).

A+

 

[DJ FA]

Re : Macro dépalcer des colonnes ?

Merci pour toutes ces réponses, j'ai ce qu'il me faut.😉