Décaler 2 colonnes d'un cran vers la gauche
Résolu/Fermé
A voir également:
- Décaler 2 colonnes d'un cran vers la gauche
- Windows 11 barre des taches a gauche - Guide
- Windows 7 vers windows 10 - Guide
- Fusionner 2 colonnes excel - Guide
- Décaler colonne excel - Guide
- 2 comptes whatsapp - Guide
6 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
5 déc. 2011 à 21:16
5 déc. 2011 à 21:16
Tout simplement :
Sub Sup()
Range("K1").Insert Shift:=xlToRight
Columns("K:K").Delete
End Sub
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
2 déc. 2011 à 16:51
2 déc. 2011 à 16:51
Sans vba :
Sélectionner la colonne K / clic droit / supprimer
Avec VBA :
Columns("K:K").Delete
Sélectionner la colonne K / clic droit / supprimer
Avec VBA :
Columns("K:K").Delete
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
5 déc. 2011 à 10:09
5 déc. 2011 à 10:09
bonjour
peut être quelque chose comme ça
bonne suite
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
