Inversion de Selection Conditionnelle

[belerofon]

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]

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]

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...