FORMAT CONDITIONEL

[EDDELETE]

bONJOUR?
JE SOUHAITE COLORIEZ TOUTES LES CELLULES DE MA FEUILLE SI ELLES SONT PROTEG2ES;
Le format conditionnel ne l epermet pas je crois mais en faisant une macro peut etre. Mais là je suis basic..

Merci si vous avez un e idee ou l'avez dejà fait
A+

 

[jmps]

Bonjour EDDELETE,

Une solution parmi d'autres possibles :

Private Sub CouleurProtection()
  For Each cellule In Selection
    If cellule.Locked = True Then
      Sheets("Feuil1").Unprotect
      Range(cellule.Address).Interior.ColorIndex = 8
      Sheets("Feuil1").Protect
    End If
  Next cellule
End Sub

Ici je ne m'occupe que de la sélection en cours, mais tu peux adapter à ton cas personnel. Note aussi que le unprotect/protect est là car si la feuille est déprotégée ça ne fonctionne pas. De plus si tu as un mot de passe pour la protection, il faut l'indiquer comme ceci : .Unprotect("MotDePasse") idem pour le .protect

J'espère que ça te convient.

A+

José

 

[bibi]

Bonjour José,

je suis nulle en visual basic et je voudrais savoir dans la même lignée que la question précédente comment faire pour en plus tester si la cellule vérifie bien la condition suivante : contenir un décimal compris entre 0 et 99999999999999

 

[bib]

Bonjour José,

je suis nulle en visual basic et je voudrais savoir dans la même lignée que la question précédente comment faire pour en plus tester si la cellule vérifie bien la condition suivante : contenir un décimal compris entre 0 et 99999999999999

merci