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

Inversion de Selection Conditionnelle

belerofon

XLDnaute Occasionnel
Bonjour les potos,
Question courte pour le plus rapide d entre vous
Au sein d'une macro perso j aimerais pouvoir contrôler une sélection a chaque instant de façon connditionnelle... je m explique...
Si un utilisateur clique en "D1" , drag jusqu' en "A1", il en résulte un Range ("D1":"A1") avec une cellule "D1" en cellule sélectionnée
en revanche s'il clique en "A1" et drag jusqu'en "D1" le Range devient ("A1":"D1") avec "A1" active...

Je cherche comment formuler le code VBA qui ferait en sorte que si la cellule active est la cellule la plus a gauche ( Type ("A1":"D1") ) , on poursuit le code, par contre pour une sélection " de droite à gauche " on redéfinie la cellule la plus a gauche comme "cellule active" ... ( transformant donc une sélection droite vers la gauche en sélection gauche vers la droite)...

En espérant avoir su m'exprimer suffisamment clairement...

Merci et a bientôt les Potos,
Juju
 

Modeste geedee

XLDnaute Barbatruc
Re : Inversion de Selection Conditionnelle

Bonsour®

Dim Drag As Range
Set Drag = Selection
Drag(1).Resize(Drag.Rows.Count, Drag.Columns.Count).Select

si la plage est d'un seul tenant (rectangulaire)
la selection n'est pas modifiée
Drag(1) correspond à la cellule supérieure gauche de la plage sélectionnée
Drag(1) devient la cellule Active
 

belerofon

XLDnaute Occasionnel
Re : Inversion de Selection Conditionnelle

Salut Modeste Geedee...
Bluffé... par ta promptitude... et par la précision chirurgicale de ta réponse... c'étais plus dur de poser la question que de comprendre la réponse... t es un tueur, merci poto...
 

Discussions similaires

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