MISE EN FORME CONDITIONNELLE

[SNAKE38]

sALUT A TOUS§§§§§§§§


Voila j'ai créer cette macro pour mon fichier :

Sub Nouvelle_feuille()
Dim feuille As Worksheet
Dim mois As Date

ActiveSheet.Copy after:=Sheets(Sheets.Count)
With ActiveSheet
Set feuille = Sheets(Sheets(.Index - 1).Name)
mois = DateAdd('m', 1, CDate(feuille.Name))
.Name = Format(mois, 'mmmm yy')
.Range('E5') = feuille.Range('e79')
.Range('A2') = UCase(MonthName(Month(mois)))
.Range('E7:E2000,A52000').ClearContents
.Range('A579').ClearComments
.Range('c5') = 'Report solde du mois de ' & feuille.Range('A2')
End With

End Sub

J'aimerai rajouter une formule conditionnelle pour qu'a chaque fois que je rentre un chiffre dans la colonne crédit le solde passe automatiquement en rouge!!!

Merci de me donner la solutions

 

[Hervé]

Bonjour snake

c'est fou comme elle me rappelle quelque chose la macro que tu as créer :whistle:

salut

 

[PascalXLD]

Bonjour

Hervé c'est bizarre mais moi aussi je l'avais déjà vu cette macro créée par SNAKE38 mais fabriquée de toute pièce par un xldien qui a le même pseudo et le même avatar que toi :woohoo: . C'était Lien supprimé

La vie est bizarre parfois

Bonne journée

 

[Hervé]

salut pascal


d'un coup, je suis inquiet !!!

Aurais-je un clone qui sevirait sur le forum ?

remarque, je vais pouvoir lui mettre sur le dos toutes les usines à gaz que je monte.

Donc, messieurs, mesdames, à compter d'aujourd'hui des que vous voyez un code foireux portant ma signature, ce n'est pas de moi mais de mon clone, merci de vous adresser à lui.

Par contre, il va sans dire que je garde la paternité de toute les belles macros.





salut