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

Résolu
Lolo -  
 Lolo -
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 !
A voir également:

6 réponses

Réponse 1 / 6
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Tout simplement : 
Sub Sup()
    
    Range("K1").Insert Shift:=xlToRight
    Columns("K:K").Delete

End Sub
1
Réponse 2 / 6
Lolo
 
Je précise: j'aimerai que ce soit une macro vba !

Merci
0
Réponse 3 / 6
Lolo
 
Quelqu'un a une idée ?

Merci beaucoup par avance !
0
Réponse 4 / 6
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Sans vba :
Sélectionner la colonne K / clic droit / supprimer

Avec VBA :
Columns("K:K").Delete
0
Lolo
 
Coucou patrice,
J'ai besoin que ça ne décalle qu'à partir de la ligne 2!! sur la ligne 1 l'entête déjà à la bonne place.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
Réponse 6 / 6
Lolo
 
Merci beaucoup pour votre aide !!!
0

Discussions similaires

Colis en cours de transport vers votre site de livraison ?
Ninan_5568 -
JulieVdr -

7 réponses