Bonjour à tous

Bonjour Guido, Lcntrcld

En VBA : 

Range("A1:J1").SpecialCells(xlCellTypeBlanks) = "3"

3 étant un exemple

Eric

Bonjour à tous

Bonjour fx1013

Dans la condition, il faut ajouter : si la cellule E3 est non-vide

=ET(AUJOURDHUI()-$E3>90;$F3="";$E3<>"")

Eric

Re

Cela fonctionne parfaitement en mettant le "E" et "F" en référence de la ligne, cad sur la ligne 4 il faut mettre : 

=ET(AUJOURDHUI()-$E4>90;$F4="")

sur la ligne 5 

=ET(AUJOURDHUI()-$E5>90;$F5="")

J'ai l'impression que tu as inversé les couleurs.

Eric

Bonjour

Tu peux le déposer, mais attention aux infos persos

Eric

Bonjour à tous
Bonjour fx1013, Mytå

Regarde le fichier exemple joint.

Pour tester, tu saisis en E3 : 19/9/2016 et il n'y a pas de changement => normal, puis tu modifies la date en 15/9 avec en F3 rien puis avec une saisie.

Dis nous

Eric 

Bonjour à tous

Bonjour fx1013 

Peut-être avec une MFC :

=ET(AUJOURDHUI()-$E3>90;$F3="")

pour la cellule E3 . Celle-ci passerai en rouge si les 2 conditions sont remplies.

Eric

Bonsoir à tous

Bonsoir danseurcountry3

S'il n'est pas trop tard :

Sub ListeFichiers()
Dim nf
  Application.ScreenUpdating = False
  repertoire = "D:\musique\Amy Beach"  ' à adapter
  nf = Dir(repertoire & "*.mp3") 'premier fichier mp3
  Do While nf <> ""
    Selection.TypeText (nf) & vbCrLf
    nf = Dir() ' suivant
  Loop
  Application.ScreenUpdating = True
End Sub

A te lire

Eric

Bonjour à tous

Bonjour lalida

Pourquoi ne pas prendre une forme "textbox" dans l'USF, qui a un "PasswordChar" que l'on peut mettre à "*". 

A te lire

Eric

Bonsoir à tous

Bonsoir vanerdi 

Si ce n'est pas trop tard, un petit fichier qui peut t'aider. A toi de jouer !

Eric

Bonjour à tous

Bonjour valatteint

Avec une MFC sur chaque cellule peut-être ?

Condition 1 : la formule est =$Y$1-$E$1<15

Condition 2 : la formule est =$Y$1-$E$1<30

Y1 la cellule avec MFC

E1 la date du jour

A toi d'adapter

Eric