XL 2019 Colonnes déplacées ?

[DJ FA]

Bonjour, sur ce fichier excel, j'aimerai via une macro que sur les feuilles 5 et 6, que la colonne comportant la valeur "boire" en titre soit coupée/collée en colonne A.

Merci bien pour votre aide.

 

[sylvanu]

Bonsoir DJ FA,
Un essai en PJ avec :

Sub Déplacer()
Application.ScreenUpdating = False
For F = 5 To 6
    With Sheets(F)
        .Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        If Application.CountIf(.[1:1], "boire") > 0 Then Col = Application.Match("boire", .[1:1]) Else Exit Sub
        DL = .Cells(10000, Col).End(xlUp).Row
        .Range(.Cells(1, "A"), .Cells(DL, "A")) = .Range(.Cells(1, Col), .Cells(DL, Col)).Value
        Columns(Col).Delete Shift:=xlToLeft
    End With
Next F
End Sub

 

[DJ FA]

Merci ça fonctionne très bien.

Par contre sur mon fichier de travail, mes feuilles sont un peu en désordre, ça va pas aller ?

 

[sylvanu]

Tant que c'est Feuil5 et Feuil6 à traiter, l'ordre n'a aucune importance.

un peu en désordre

Non, en fait elles sont dans l'ordre alphabétique. Ainsi Feuil10 est avant Feuil3.

 

[DJ FA]

Ok merci pour les informations et pour la macro.
Bon week-end