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

Inversion de Selection Conditionnelle

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 !

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

D
Réponses
2
Affichages
890
Decouverte Excel
D
C
Réponses
4
Affichages
2 K
C
R
Réponses
22
Affichages
3 K
G
Réponses
4
Affichages
723
Gabmont
G
D
Réponses
6
Affichages
890
DEBUTANPAT
D
F
Réponses
2
Affichages
916
fchapel
F
T
Réponses
2
Affichages
1 K
tantrum
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…