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

merguez59 · 21 Mai 2015

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("A15").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!

pierrejean · 21 Mai 2015

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

Staple1600 · 21 Mai 2015

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

merguez59 · 22 Mai 2015

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

bonjour Pierrejean;Bonjour Staple1600.

Vos deux méthodes fonctionnent très bien!

Merci beaucoup!

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

merguez59

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

merguez59

XLDnaute Nouveau

Discussions similaires