XL 2010 clignotement automatique de plusieurs cellules

  • Initiateur de la discussion Initiateur de la discussion Usine à gaz
  • Date de début Date de début

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 !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Muguet.jpg
1er mai.jpg
Bonjour à toutes et à tous,

Toujours dans mon classeur (de course grâce à vous toutes et tous 🙂), je bute sur un nouveau problème de confort et d'efficacité.

Vous le verrez dans le fichier test joint, j'ai un code qui me positionne et qui me sélectionne les cellules vides d'une ligne concernée.

Mon fichier de travail a beaucoup de colonnes et de lignes.

Je souhaite faire clignoter les cellules sélectionnées pour plus de visibilité.
Mes recherches dans le Forum et sur le net m'ont permis de trouver beaucoup de codes et d'exemples que j'ai testé.

J'ai fait mon choix sur le fichier d'excel pratique (Un grand Merci au passage) qui me semble, sauf erreur, être le plus proche de mon besoin.

Mais il reste un petit souci important pour moi et je n'arrive pas à le résoudre :

Je voudrais que le clignotement des cellules sélectionnées soit automatique à la sélection.

Mais le code ne fait clignoter les cellules sélectionnées que si je clique dans la colonne 9 soit la colonne I.


Je n'arrive pas à modifier le code.
Auriez-vous la solution ?

Je joins donc le fichier test qui sera, je l'espère, plus explicite que mes explications 😉

Avec me remerciements, je vous souhaite à toutes et à tous un joyeux 1er Mai.
Amicalement,
Lionel,
 

Pièces jointes

Dernière édition:
Bonjour à tous,

Fonctionne avec ceci :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column > 0 Then
        Do While Target.Column > 0
            [A1] = 1
            Minuterie 1000
            [A1] = 0
            Minuterie 1000
            Set Target = ActiveCell
        Loop
    Else
        [A1] = ""
    End If
End Sub

A+ à tous
 
- 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

Réponses
14
Affichages
247
Réponses
4
Affichages
81
Réponses
2
Affichages
201
Réponses
30
Affichages
449
Retour