Faire clignoter des cellules sur excel

Réponse 2 / 7

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
28 mars 2014 à 13:56

Bonjour,

Déjà sur ta feuille "Transstockeur" tu as une erreur de formulation avec une circulaire exemple formule en cellule G4 tu ne peux inclure dans la formule de calcul G4<>"" tu demandes à Excel de donner dans cette cellule un résultat dont cette cellule attend elle même le résultat, et bien sur idem dans les cellule au dessous, il faut donc supprimer G4<>""

=SI(ET(D4<>"";E4<>"";F4<>"";G4<>"");SI(ET(E4="Mois");MOIS.DECALER(F4;D4);SI(ET(E4="Année");MOIS.DECALER(F4;(D4*12));SI(ET(E4="Semaines");((D4*7)+F4);"Faute Saisie Périodicité")));"")

ensuite tu as colonne I la colorisation rouge, en J orange et en K la couleur verte
pourquoi utiliser 3 colonnes, peut on utiliser qu'une seule colonne pour afficher les trois couleurs

Réponse 3 / 7

siklo57 Messages postés 5 Date d'inscription vendredi 28 mars 2014 Statut Membre Dernière intervention 3 avril 2014
28 mars 2014 à 14:33

bien vu pour erreur de formulation , je me suis même pas rendu compte en tapent ma formule , et pour les trois couleurs dans les colonnes , j'ai essayé au début de mettre les 3 couleurs dans la même colonne et sa marchait pas (mnt j'ai trouvé aussi l'erreur , j'ai changé et j'ai les 3 couleurs sur la même colonne).

Je sais pas si tu a compris le principe de mon tableau , maintenant ce que je cherche à faire ,c'est quand la date de l'intervention approche ,ma cellule commence à clignoter

voila le nouveau fichier complet avec toutes les modifications , et merci encore une fois du temps que vous consacrez

https://www.cjoint.com/?DCCoHeO5ySB

Réponse 4 / 7

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
28 mars 2014 à 14:51

Re,

Je te regarde le fichier en fin d'après midi

siklo57 Messages postés 5 Date d'inscription vendredi 28 mars 2014 Statut Membre Dernière intervention 3 avril 2014
28 mars 2014 à 17:13

D'accord merci ,

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
28 mars 2014 à 19:06

Re,

voila mais le fichier doit être enregistré avec l'extension XLSM ou dans un format XLS comme j'ai fait pour qu'il sit pris en compte par toutes les versions Excel. J'ai fait clignoter directement la colonne G mais si tu veux le clignotage décalé en I pas de problème

https://www.cjoint.com/c/DCCtgmaDWWj

Réponse 6 / 7

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
1 avril 2014 à 08:26

Bonjour,

Alors pas de nouvelle, ou on se contente de prendre sans le moindre retour ?

siklo57 Messages postés 5 Date d'inscription vendredi 28 mars 2014 Statut Membre Dernière intervention 3 avril 2014
3 avril 2014 à 11:35

Bonjour mike ;
Je suis vraiment désolé pour n'avoir pas répondu a ton message , j' étais en déplacement cette semaine et j'ai pas regardé ma boite e-mail.

Je viens de regarder ce que tu ma fait , c'est parfait ,c'est même mieux que ce que je comptais faire, tu ma mis le clignotement sur la colonne des dates ce qui va me permettre de supprimer la colonne alertes , je te remercie beaucoup de m'avoir aidé , et désolé encore une fois pour ce retard .

Réponse 7 / 7

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 mars 2014 à 12:20

Bonjour,

Voici un code qui fait clignoter une cellule au changement de saisie. A adapter suivant les besoin.

Mettre dans un module:

Option Explicit
Sub Flash()
Static i
   i = i + 1
  'le clignotement
  If ActiveCell.Interior.ColorIndex = 6 Then
    ActiveCell.Interior.ColorIndex = 3 'fond rouge
    ActiveCell.Font.ColorIndex = 6 'caractères en jaune
  Else
    ActiveCell.Interior.ColorIndex = 6 'fond jaune
    ActiveCell.Font.ColorIndex = 3 'caractères en rouge
  End If
  
  'tant que le nombre de clignotements choisi n'est pas atteint
  '(ici 5) on continue
  If i <= 5 Then
    Application.OnTime Now + TimeValue("00:00:01"), "Flash"
  Else
    'sinon, on revient à la mise ne forme par défaut d'Excel
    'et on arrête tout
    ActiveCell.Interior.ColorIndex = xlNone 'fond incolore
    ActiveCell.Font.ColorIndex = 1 'caractères en noir
    i = 0
  End If
End Sub
Sub InitFlash()
  'lance un clignotement toutes les secondes
  Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub

Mettre dans la feuille concernée. C'est là qu'il faudra faire des modif. Elle est réglée pour le changement de la cellule C13.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$13" Then
 InitFlash
 End If
End Sub

Bonne programmation

siklo57 Messages postés 5 Date d'inscription vendredi 28 mars 2014 Statut Membre Dernière intervention 3 avril 2014
28 mars 2014 à 12:45

Je vous remercie pour votre réponse aussi rapide
J'ai mis le premier code dans ThisWorkBook et le 2éme dans la feuille concernée toute en changeant le numéro de cellule mais ma cellule se met en jaune sans clignoter , et même quand je change la date ,elle reste jaune .
Je vous met le fichier pour bien comprendre la problématique .
https://www.cjoint.com/?3CCmS1EmxVM

Faire clignoter des cellules sur excel

7 réponses

Discussions similaires

Newsletters