Faire clignoter une cellule

Accueil – Le CFO masqué Forums Excel Faire clignoter une cellule

15 sujets de 1 à 15 (sur un total de 15)
  • Auteur
    Articles
  • #64795
    Pimpin
    Participant

    Bonjour,

    Est-il possible de faire clignoter le texte qui se trouve dans une cellule ?
    Merci pour votre aide.

    #64798
    Sophie Marchand
    Participant

    Qu’entendez-vous par clignoter? On peut mettre une mise en forme conditionnelle ou à la limite, on peut utiliser des images sous format gif, qui seraient affichées selon certaines valeurs… Que voulez-vous faire exactement?

    #64799
    Pimpin
    Participant

    Faire apparaître et disparaître un message dans une cellule toutes les secondes. Existe-t-il une commande pour cela ?

    #64801
    Sophie Marchand
    Participant

    Non. Mais comme mentionné, vous pourriez utiliser une image gif, avec le texte que vous avez besoin, qui clignote.

    #64810
    Pimpin
    Participant

    Merci pour l’information.

    #64860
    questvba
    Participant

    Bonjour,
    Voici un exemple trouvé sur le net. Il faudra l’adapter à vos besoins.
    Mais attention : cela mange de l’énergie et il na faut pas que le fichier ressemble à un sapin de Noël.

    Attachments:
    You must be logged in to view attached files.
    #64887
    Pimpin
    Participant

    Bonsoir

    Il est super votre fichier quand j’utilise la démo, mais j’ai un message de mise en garde contre les virus.
    Du coup, je n’ai pas envi de l’installer sur mon PC et de l’exécuter. On ne sait jamais…

    #64888
    questvba
    Participant

    C’est toujours le problème avec un fichier contenant une macro. Il faut alors bien étudier la macro et voir ce qu’elle comporte.

    #64889
    Pimpin
    Participant

    Oui mais lancer le programme revient à exécuter la macro automatiquement non ?
    Et pour étudier la macro, il faut pouvoir avoir accès à son programme source !

    #64952
    questvba
    Participant

    Hello,
    Voici le code que tu peux examiner et ensuite tu le colles au bon endroit.
    Moi, je travaille sur la Feuil1 et sur la cellule A1.

    Code à mettre dans ta Feuil1 :

    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Application.Intersect(Target, Sheets("Feuil1").Range("A1")) Is Nothing Then
            'Go ou Stop
            If Val(Target.Value) > 100 Then Clign Else StopClign
        End If
    End Sub

    Code à mettre dans un module :

    Dim Temps As Variant
    
    Public Sub Clign()
        'Programmation de l'évènement toutes les secondes
        Temps = Now + TimeValue("00:00:01")
        Application.OnTime Temps, "Clign"
        'Affiche l'alerte ou la fait disparaître (alternativement)
        With ThisWorkbook
            With .Sheets("Feuil1").Range("A1")
                .Font.ColorIndex = IIf(.Font.ColorIndex = 2, 3, 2)
            End With
        End With
    End Sub
    
    Public Sub StopClign()
        On Error Resume Next
        'Stoppe la gestion de l'évènement OnTime
        Application.OnTime Temps, "Clign", , False
        On Error GoTo 0
        'Cache l'alerte
        With ThisWorkbook
            'Texte
            .Sheets("Feuil1").Range("A1").Font.ColorIndex = 3
        End With
    End Sub

    Ensuite en fonction de la valeur de ta cellule (>100), elle clignote ou pas.

    #64956
    Pimpin
    Participant

    Salut,

    Oui merci c’est très sympa de ta part.
    Je constate que tu n’es pas mauvais en VBA dis donc !
    Mais moi je débute et je dois dire que je suis une Quiche en VBA LOL…
    C’est pour cette raison que j’essaye de créer de petites applications sans toucher au VBA et aux macros.
    Uniquement avec des commandes EXCEL.
    J’ai pris une petite semaine de vacances forcés et je verrai comment faire la même chose avec juste des commandes EXCEL.
    Je pense qu’en jouant sur la couleur de la police combiné avec un TIMER simple ça pourra le faire ?
    Sinon merci encore !

    #64960
    questvba
    Participant

    Salut,
    Il faut maintenant que tu penses à ton projet et à sa finalité. Effectivement, tout ne doit pas toujours passer par des macros. Il est possible de faire des choses très puissantes à l’aide de formules.
    Par exemple, au lieu de faire clignoter une cellule, tu pourrais utiliser une MFC (Mis en Forme Conditionnelle) tout aussi convaincante.

    #64970
    Pimpin
    Participant

    Salut,

    Oui comme je te l’ai dit précédemment, je veux créer de petites applications sans toucher au VBA et aux macros. Utiliser des formules EXCEL me convient tout à fait. Et merci pour l’idée des MFC.
    Après je suppose qu’il faudra utiliser un TIMER, toutes les 3 secondes, pour changer de couleur non ?
    Passe un bon dimanche.

    #64971
    questvba
    Participant

    Hello,
    Il faut en savoir plus sur ton projet pour une réponse plus détaillée. Un petit PrintScreen ou un fichier sans infos personnelles ou …
    Bon dimanche,

    #65000
    Pimpin
    Participant

    Hello,

    Voici en pièce jointe, un petit fichier qui gère l’effectif des enfants encadrés par des animateurs pour une salle d’activité donnée. Ainsi, le menu déroulant de départ évolue en fonction de l’effectif présent. Ce qui implique une nouvelle liste déroulante qui a pour maximum l’effectif présent et le minimum 1.
    Comment dois-je procéder pour changer la liste déroulante dans VALIDATION DE DONNEES.

    Merci bien

    Attachments:
    You must be logged in to view attached files.
15 sujets de 1 à 15 (sur un total de 15)
  • Vous devez être connecté pour répondre à ce sujet.