Pb Format Cond.

En dessous de cette ligne de code de ta procédure
If IsEmpty(c) Then c.Interior.ColorIndex = xlNone

Ajoute celle-ci ... et le tour est joué.
If IsNumeric(c) Then Exit Sub




"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 214C83AC-B532-428D-A179-ED9192466741@microsoft.com...
Michdenis,
le fichier est : http://cjoint.com/?jep0dvIlHG
J'ai placé une macro dans le module "ColorationPlanning" et dans le code de
la feuille.
merci
Michel
"michdenis" a écrit :

> Tu te rends à l'adresse annoncée
> tu utilises le bouton "parcourir" pour indiquer où
> est le fichier que tu veux envoyer
>
> Lorsque tu valideras, tu obtiendras l'adresse où
> nous pourrons retrouver ton fichier. Tu publies ici
> cette adresse.
>
>
> "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
> news: 7D55A122-2C45-46B2-8CEC-49534E1AC8E6@microsoft.com...
> MichDenis merci pour ton aide, mais je n'ai jamais envoyé de fichier sur
> cjoint.com. Comment fait-on ?
> Michel
>
> "michdenis" a écrit :
>
> > Place sur cjoint.com ton fichier (seulement ladite feuille
> > avec quelques données devraient être suffisant ! et tu
> > publie ici l'adresse où se retrouvera ton fichier publié
> >
> >
> >
> >
> > "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
> > de
> > news: E16816A0-A37B-4255-B294-0B8927F073DE@microsoft.com...
> > Bonjour michdenis,
> > Peut-être que je me suis mal exprimé. J'ai une macro qui colore
> > certaines
> > feuilles de mon classeur (se terminent par " 09") et une autre qui les
> > décolore suivant les souhaits de l'utilisateur.
> > Sue ces feuilles il y a des cellules qui contiennent des heures "08:00"
> > par
> > exemple. Le format de ces cellules est [h]:mm.
> > Lorsque je lance une des deux macros, aucun pb elles font leur boulot,
> > mais
> > si par la suite je modifie sur une feuille une heure donnée, elle
> > s'affiche
> > en décimale et aucun moyen de la remettre sur le bon format. C'est comme
> > si
> > les macros avaient annuler le format.
> > Voilà.
> > Merci pour ton aide
> > Michel69
> >
> > "michdenis" a écrit :
> >
> > > Et Oh Capitaine !!!
> > >
> > > Ta question était :
> > >
> > > | Lors de l'execution de la macro, si je modifie une heure,
> > > | elle passe en décimale ??
> > >
> > > Veux-tu me dire où dans le code que tu as soumis il y a
> > > modification du contenu d'une ou plusieurs cellules ?
> > >
> > > Si tu trouves, je te dirai comment procéder !
> > >
> > >
> > >
> > >
> > > "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le
> > > message
> > > de
> > > news: E256B352-03AB-4A26-A90B-55B90860A8A0@microsoft.com...
> > > Merci MichDenis pour ta réponse rapide :
> > > Même combat :
> > > Voici mon code si tu vois qq chose (ou mettre ta ligne car il faudrait
> > > une
> > > boucle ?)
> > > Merci
> > > Sub Bouton18_QuandClic()
> > > ' Coloration du planning 2009
> > > Dim sh As Worksheet, c As Range, ResAdr As String
> > > MsgBox ("Celà va prendre quelques minutes, Veuillez patienter, Merci")
> > > Application.ScreenUpdating = False
> > >
> > > For Each sh In Sheets
> > > If Right(sh.Name, 3) = " 09" Then
> > > Set c = sh.[C3:AG194].Find("*", , , xlWhole)
> > > If Not c Is Nothing Then
> > > ResAdr = c.Address
> > > Do
> > > Select Case c
> > >
> > > Case "M": c.Font.ColorIndex = 1 'Police en Noir
> > > c.Interior.ColorIndex = 38 'Fond Rose Saumon
> > > Case "S": c.Font.ColorIndex = 1 'Police en Noir
> > > c.Interior.ColorIndex = 37 'Fond Bleu moyen
> > > Case "J": c.Font.ColorIndex = 1 'Police en Noir
> > > c.Interior.ColorIndex = 15 'Fond Gris 25%
> > > Case "MAL": c.Font.ColorIndex = 2 'Police en Blanc
> > > c.Interior.ColorIndex = 46 'Fond Orange
> > > Case "C": c.Font.ColorIndex = 2 'Police en Noir
> > > c.Interior.ColorIndex = 36 'Fond Jaune clair
> > > Case "AT": c.Font.ColorIndex = 2
> > > c.Interior.ColorIndex = 46
> > > Case "FC": c.Font.ColorIndex = 1
> > > c.Interior.ColorIndex = 15
> > > Case "F": c.Font.ColorIndex = 1
> > > c.Interior.ColorIndex = 36
> > > Case "R": c.Font.ColorIndex = 1
> > > c.Interior.ColorIndex = 36
> > > Case "CEX": c.Font.ColorIndex = 1
> > > c.Interior.ColorIndex = 36
> > > Case "RTT": c.Font.ColorIndex = 1
> > > c.Interior.ColorIndex = 36
> > > Case "ABS": c.Font.ColorIndex = 2
> > > c.Interior.ColorIndex = 3 'Fond rouge
> > >
> > > End Select
> > > Set c = sh.[C3:AG194].FindNext(c)
> > > Loop Until c Is Nothing Or c.Address = ResAdr
> > > End If
> > > End If
> > > Next sh
> > > MsgBox ("Coloration terminée. Au revoir")
> > > End Sub
> > >
> > > "michdenis" a écrit :
> > >
> > > > et si tu ajoutes ceci à ta macro à titre d'exemple :
> > > >
> > > > C représente ta cellule dans une boucle ...
> > > > une autre expression peut avoir été employé ...
> > > >
> > > > C.NumberFormat = "h:mm"
> > > > C.NumberFormat = "5:10"
> > > >
> > > >
> > > > "Michel69" <Michel69@discussions.microsoft.com> a écrit dans le
> > > > message
> > > > de
> > > > news: 046A0B09-D333-4752-AB5B-6CDD86C62AEE@microsoft.com...
> > > > Bonjour à toutes et à tous,
> > > > Sur un ensemble de feuilles d'un même classeur, j'ai une macro (de
> > > > Daniel.C)
> > > > qui fonctionne parfaitement. Elle colore la police et le fond
> > > > suivant
> > > > le
> > > > contenu dans une plage de cellule (c3:ag194) pour un nb de feuilles
> > > > précis
> > > > :
> > > > Petit souci, sur certaines lignes, des cellules contiennent des
> > > > heures
> > > > (8:00)
> > > > dont le format est [h]:mm.
> > > > Lors de l'execution de la macro, si je modifie une heure, elle passe
> > > > en
> > > > décimale ??
> > > > On a l'impression que la MFC de la macro prend le pas sur le reste.
> > > > Quelqu'un d'entre vous a-t-il une solution ?
> > > > Merci pour vos efforts
> > > > Michel69
> > > >
> > > >
> > >
> > >
> >
> >
>
>