Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

retirer de la sélection colonnes à droite la plage (vba)

  • Initiateur de la discussion Initiateur de la discussion merguez59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

merguez59

XLDnaute Nouveau
Bonjour

J'essaie de créer une macro (via l'enregistreur), mais je bloque:

J'ai une plage de donnée qui est sélectionnée (disons de A1 à F5)

Je veux que la macro, sur la sélection en cours, fasse un shift gauche 2 fois, de manière à ce que la nouvelle plage de donnée soit A1 à D5.

Seulement, ce que l'enregistreur de macro me donne, c'est le résultat, c'est à dire:
Range("A1😀5").Select

Ce n'est pas ce que je souhaite car quelque soit l'endroit (dans le feuille) et la taille de ma sélection, je veux que l'action soit de "retirer les deux colonnes les plus à droite de la plage"

merci d'avance pour votre aide!
 
Re : retirer de la sélection colonnes à droite la plage (vba)

bonjour merguez

a tester:

Code:
Sub retrecit()
If Selection.Columns.Count > 3 Then Selection.Resize(, Selection.Columns.Count - 2).Select
End Sub
 
Re : retirer de la sélection colonnes à droite la plage (vba)

Bonjour à tous, salut pierrejean 😉

merguez59
Même voie que pierrejean avec une syntaxe différente
Code:
Sub a()
On Error Resume Next
With Selection
    .Item(1).Resize(.Rows.Count, .Columns.Count - 2).Select
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…