Macro dépalcer des colonnes ?

DJ FA · 15 Décembre 2012

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 · 15 Décembre 2012

Re : Macro dépalcer des colonnes ?

Bonjour DJ FA,

DJ FA à dit:
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 · 15 Décembre 2012

Re : Macro dépalcer des colonnes ?

Bonjour à tous,

Un essai :

VB:

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 · 15 Décembre 2012

Re : Macro dépalcer des colonnes ?

job75 à dit:
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 · 15 Décembre 2012

Re : Macro dépalcer des colonnes ?

ROGER2327 à dit:

Bonjour à tous,

Un essai :

VB:

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 · 15 Décembre 2012

Re : Macro dépalcer des colonnes ?

Excellent ! merci chef !😎

job75 · 16 Décembre 2012

Re : Macro dépalcer des colonnes ?

Bonjour DJ FA, Roger,

Une solution par double-clic en ligne 1 :

Code:

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 · 16 Décembre 2012

Re : Macro dépalcer des colonnes ?

Re,

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

Code:

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 · 16 Décembre 2012

Re : Macro dépalcer des colonnes ?

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

Macro dépalcer des colonnes ?

DJ FA

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

DJ FA

XLDnaute Occasionnel

DJ FA

XLDnaute Occasionnel

DJ FA

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

DJ FA

XLDnaute Occasionnel

Discussions similaires

Macro dépalcer des colonnes ?

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency