[VBA] Couper insérer les cellules coupées

Bonjour,

Je suis en train d'essayer de remettre des colonnes à des places bien précises.

Alors je cherche la colonne qui s'appelle Code postal et je veux la couper et l'insérer dans la colonne N.

Donc voila mon code mais je bloque sur le "couper insérer les cellules coupées"

Sub col_test()
Dim Col_l As Range

ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select

For Each Col_l In Selection.Columns

If Col_l.Cells(1, 1).Value = "Code postal" Then
Cut Col_l.EntireColumn
Col_l.Insert.Cells(1, 14).EntireColumn shift = xlRight
End If

Next Col_l

End Sub

Qu'est ce qui ne va pas, pourquoi ca ne fonctionne pas comme ca ?

Bonjour,

Veux-tu essayer le code suivant :

Sub col_test()
    Dim Col_l As Range
    'Sélection du tableau
    ActiveCell.SpecialCells(xlLastCell).Select
    Range(Selection, Cells(1)).Select
    'Boucle pour chercher l'entête "Code postal"
    For Each Col_l In Selection
        If Col_l.Value = "Code postal" Then
            Col_l.EntireColumn.Cut
            Columns(15).Select
            Selection.Insert shift:=xlToRight
            Exit Sub 'permet de quitter une fois couper coller effectué
        End If
    Next Col_l
End Sub

Cdlt,

D'accord et on est obligé de mettre un exit sub en plus.

Merci encore Raja.

Re,

Ceci pour arrêter le programme une fois que le couper coller est terminé. A mon avis , c'est inutile de continuer après dans ce contexte. Les puristes diront qu'un "Exit For" à la place de "Exit Sub" est beaucoup plus conventionnel.

Cdlt,

PS : N'oublie pas de mettre en mode "Résolu" si la solution te satisfait