XL 2019 Comment étendre, en VBA, la sélection dans une colonne depuis cellule active ?

Hasco

XLDnaute Barbatruc

Repose en paix

• 30 Septembre 2022

• #2

Bonjour,à

Déjà vous confondez Cellule Active et Selection qui sont deux choses différentes.

Dans la macro évènementielle suivante, je n'ai pas mis de restriction sur le nombre de colonnes à sélectionner.
La sélection de cellule est contenue dans le paramètre 'Target'.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Pour éviter les rappels en boucle à SélectionChange
    Application.EnableEvents = False
    Range(Target(1), Intersect(Target.EntireColumn, Rows(1000))).Select
    Application.EnableEvents = True
End Sub

J'ai oublié : pour n'avoir qu'une colonne :

VB:

Range(Target(1), Intersect(Columns(Target.Column), Rows(1000))).Select

Pour avoir toujours 1000 cellules verticales de la même colonne à partir du coin supérieur haut gauche de Target:

Code:

Target(1).Resize(1000).Select

 

Dernière édition: 30 Septembre 2022

Vote positif 0 Vote négatif

L

Leguyl

XLDnaute Occasionnel

• 30 Septembre 2022

• #3

Bonjour Hasco,

Je me suis mal exprimé, je ne cherche pas à étendre la sélection lors d'un clic sur une cellule mais, au besoin, via un bouton auquel j'aurais affecté un code VBA.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 30 Septembre 2022

• #4

Re,

Eh bien vous avez tout pour le faire. Alors faites le ! et si ça coince, revenez avec votre fichier exemple, votre bouton et son code qui ne devrait faire qu'une ligne tout au plus.
Remplacer Target par ActiveCell et c'est bon.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 30 Septembre 2022

• #5

Bonjour

edit
proposition déjà donnée par Hasco... (salut)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2022

• #6

Bonsoir le fil

Pour le fun et pour le plaisir de croiser Hasco (sans oublier vgendron) 😉

VB:

Sub Macro_A_Affecter_a_un_bouton()
Selecto [E15], 1000
End Sub
Sub Selecto(r As Range, Lignes As Long)
r.Resize(Lignes).Select
End Sub

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 30 Septembre 2022

• #7

Juste pour vous saluer tous 🙂 ,

VB:

Range(ActiveCell, Cells(1000, ActiveCell.Column)).Select

 

Vote positif 0 Vote négatif

L

Leguyl

XLDnaute Occasionnel

• 3 Octobre 2022

• #8

Hasco à dit:

Re,

Eh bien vous avez tout pour le faire. Alors faites le ! et si ça coince, revenez avec votre fichier exemple, votre bouton et son code qui ne devrait faire qu'une ligne tout au plus.
Remplacer Target par ActiveCell et c'est bon.

Cliquez pour agrandir...

C'est ce que j'ai fait en partant de votre première réponse, je signalais juste que je m'étais mal exprimé dans mon premier post.

Merci à vous... et aux autres intervenants 😉

 

Vote positif 0 Vote négatif