Décaler 2 colonnes d'un cran vers la gauche Résolu

Question

Hello,

J'aimerais, en VBA, décaller L et M d'un cran vers la gauche, donc respectivement en K et L.
Sur toutes les lignes du fichier (à partir de la ligne 2): sauf la ligne 1 (entête déjà à la bonne place).

Merci beaucoup !

Lolo · Answer

Je précise: j'aimerai que ce soit une macro vba !

Merci

Lolo · Answer

Quelqu'un a une idée ?

Merci beaucoup par avance !

Patrice33740 · Answer

Sans vba : 
Sélectionner la colonne K / clic droit / supprimer

Avec VBA :
 Columns("K:K").Delete

ccm81 · Answer

bonjour

peut être quelque chose comme ça

Private Sub CommandButton1_Click()
Const lideb As Long = 2
Const co1 = "L"
Const co2 = "M"
Dim lifin As Long
' deplacement colonne 1
  lifin = Range(co1 & Rows.Count).End(xlUp).Row
  Range(co1 & lideb & ":" & co1 & lifin).Cut Destination:=Range(co1 & lideb).Offset(0, -1)
' deplacement colonne 2
  lifin = Range(co2 & Rows.Count).End(xlUp).Row
  Range(co2 & lideb & ":" & co2 & lifin).Cut Destination:=Range(co2 & lideb).Offset(0, -1)
End Sub
bonne suite

Patrice33740 · Answer

Tout simplement :
Sub Sup()
    
    Range("K1").Insert Shift:=xlToRight
    Columns("K:K").Delete

End Sub

Lolo · Answer

Merci beaucoup pour votre aide !!!

Décaler 2 colonnes d'un cran vers la gauche

6 réponses

Discussions similaires

Newsletters