Forme conditionnelle
Bonjour à tous
Peut faire clignoter des celules avec une mise en forme conditionnelle ou mettre du son
Merci
merci pour ton aide
J'aimerai connaitre le moyen de créer ce bouton de clignotement
Puis je avoir la décomposition de cette création
encore merci
Bonjour number8326200,
Tout d'abord, il faut savoir que la solution proposée n'est pas performante. Elle comporte seulement 4 cycles de clignotement pendant lesquels on ne peut pas travailler. Puis la fonctionnalité s'arrête. En fait, je ne conseille pas l'utilisation d'un tel dispositif. Je pense que la mise en forme conditionnelle suffit grandement.
Ceci étant dit voici la méthode :
Mise en forme conditionnelle :
Dans ma solution, j'ai procédé ainsi :
- Sélectionne la plage A1:A21
- Clique sur "Format" < "Mise en forme conditionnelle"
- Dans "condition 1", j'ai mis "la valeur de la cellule est inférieure ou égale à 5"
- Clique sur le bouton "Format"
2) Dans l'onglet "Motifs", j'ai cliqué sur un rouge vermillon (couleur du fonds)
3) Termine l'action en cliquant sur le bouton "ok"
- Clique sur le bouton "ok"
A partir de ce moment, toutes les valeurs inférieures ou égales à 5 seront mises en évidence
Macro :
Mettre dans un module de l'éditeur VBA la macro suivante. Pour cela :
- Clique sur Alt+F11 => tu arrives sur l'éditeur VBA
- Clique sur "Insertion" < "Module"
- Dans ce module, dépose une copie de la macro ci-dessous
Sub Macro2()
Dim Ctr As Byte
For Ctr = 1 To 4
'Suppression de la mise en forme conditionnelle
'----------------------------------------------
Range("A1:A21").Select
Selection.FormatConditions.Delete
Range("A1").Select
'Arrêt de fonctionnement d'Excel pendant 1 seconde
'-------------------------------------------------
Application.Wait (Now + TimeValue("0:00:01"))
'Mise en place de la mise en forme conditionnelle
'------------------------------------------------
Range("A1:A21").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
Formula1:="5"
With Selection.FormatConditions(1).Font
.Bold = True
.ColorIndex = 19
End With
Selection.FormatConditions(1).Interior.ColorIndex = 3
Range("A1").Select
'Arrêt de fonctionnement d'Excel pendant 1 seconde
'-------------------------------------------------
Application.Wait (Now + TimeValue("0:00:01"))
Next Ctr
End Sub
Mise en place du bouton :
- Clique sur "Affichage" < "Barre d'outils" < "Formulaires" => un menu flottant apparaît
- Clique sur l'icône du "bouton" => le curseur de la souris se transforme en "+"
- Dessine sur ta feuille de calcul le bouton en laissant le doigt appuyé sur le bouton gauche de la souris => la fenêtre "Affecter une macro" apparaît
- Clique sur 'Macro2' puis sur le bouton "ok"
- Remplace le mot "Bouton" par ce que tu veux et ajuste la taille du bouton en conséquence
encore un grand merci