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

Activecell VBA

Gorfael

XLDnaute Barbatruc
Salut à tous
selection A1:B10
Comment faire (en VBA) pour savoir quelle est la cellule active ?
le fait de me déplacer dans la sélection (tab ou enter) ne déclenche aucun événement (à ma connaissance).
Si quelqu'un a une idée
A+
 

Dan

XLDnaute Barbatruc
Re : Activecell VBA

Bonjour,

Si j'ai bien compris ta demande, utilise ACTIVECELL

exemple :
Dim c as range (définition de la variable c)
For each c in range("A1:B10")
if activecell = 1 then ....'instruction à faire
next c

Bon appétit
 

JeanMarie

XLDnaute Barbatruc
Re : Activecell VBA

Bonjour

Gorfael, dans les événements de la feuille tu as Worksheet_SelectionChange, qui est justement l'événement qui est actif, quand la cellule active change de cellule.

L'objet Target de cette événement contient la cellule qui est sélectionnée, pour connaître l'adresse tu fais Target.address

@+Jean-Marie
 

Gorfael

XLDnaute Barbatruc
Re : Activecell VBA

Salut à tous
C'est en répondant sur ce forum que j'ai coincé (je sais plus le sujet)
en gros, il fait suivre un texte à droite de la cellule active : pour ça il utilise l'événement SelectionChange. ça buggait si la sélection était supérieure à une cellule
=> solution : passer de Target (ou selection) à ActiveCell

Sauf que si on se déplace dans une sélection multiple, il n'y a pas d'événement, donc le texte ne suit pas
=> solution : interdire les sélections multiples
ça marche, mais...

Je ne suis pas satisfait, et donc je cherche une solution à travers un événement (s'il existe) qui serait déclenché par le changement de cellule active

Sinon, j'ai la solution de passer par un Timer tant qu'on a une sélection multiple, mais c'est assez capillo-tracté

Voilà tout le problème : C'est pas essentiel, mais on sait jamais, s'il existe une solution simple, ça peut toujours servir
A+
 

Discussions similaires

  • Résolu(e)
XL pour MAC VBA Excel
Réponses
3
Affichages
249
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…