Cellule clignotante selon une valeur
Résolu/Fermé
senecartour
Messages postés
324
Date d'inscription
dimanche 12 mai 2013
Statut
Membre
Dernière intervention
29 octobre 2020
-
11 juil. 2015 à 16:47
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 12 juil. 2015 à 05:33
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 12 juil. 2015 à 05:33
A voir également:
- Cellule clignotante selon une valeur
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller une cellule excel - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
1 réponse
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
Modifié par Frenchie83 le 11/07/2015 à 19:29
Modifié par Frenchie83 le 11/07/2015 à 19:29
Bonsoir
Si j'ai bien compris,
A coller dans le module de la feuille 1
Cdlt
Si j'ai bien compris,
Private Sub Worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2:J7")) Is Nothing Then
T = 0
'Clignotement
Do While T < 2
If Target.Interior.Color = RGB(0, 255, 0) Then
Target.Interior.Color = xlNone
Target.Font.ColorIndex = 3
Application.Wait Now + TimeValue("00:00:01")
T = T + 1
Else
Target.Interior.Color = RGB(0, 255, 0)
Target.Font.ColorIndex= 1
Application.Wait Now + TimeValue("00:00:01")
End If
Loop
'Fixer les couleurs
If Target < 12 Then
Target.Interior.Color = xlNone
Target.Font.ColorIndex = 3
Else
Target.Interior.Color = RGB(0, 255, 0)
Target.Font.ColorIndex= 1
End If
End If
End Sub
A coller dans le module de la feuille 1
Cdlt
11 juil. 2015 à 22:42
Est ce que c'est possible de l'appliquer a mon code ?
Merci pour votre aide!!
11 juil. 2015 à 23:05
J'ai testé votre code en le collant dans la feuille 1 de mon classeur. En lançant la macro, Excel me demande de donner un nom à la macro.
Est ce qu'il faut commencer le code avec le code avec Sub ?
12 juil. 2015 à 05:33
En lançant la macro, Excel me demande de donner un nom à la macro. Dans la proposition que je vous avez faite, on ne lance pas la macro, Si vous l'avez bien placé dans le module de la feuille 1, celle-ci démarre seule dès que vous changez le contenu d'une cellule du tableau. Il n'y a aucune autre action à faire de votre côté.
je souhaiterais partir à partir de mon code. En effet je souhaiterais appliquer ma.méthode. . Si je n'ai pas suivi votre méthode, c'est que je n'est pas compris ce que vous vouliez faire réellement, vous parlez de cellules clignotantes, mais à aucun moment on ne décèle l'action de clignoter, vous ne faites que changer la couleur en vert si >12 sinon pas de couleur, et tout ça en balayant le tableau complet. Si cela doit clignoter pour chaque cellules, cela risquera de vous paraître un peu long, alors que dans le cas que je vous propose, seule la cellule modifiée sera testée et se mettra à clignoter et, en fonction de sa valeur, passera au vert ou pas.
Si vraiment ma proposition ne vous convient pas, reformulez votre demande avec plus de précisions, s'il vous plaît.
Cdlt