EXCEL : Mise en forme conditionnelle ou MACRO ??

[angeldust]

Bonjour,

Je ne sais pas si j'ai posté au bon endroit ??? mais j'ai pas vu mieux !

Voila la journée que je me prends la tete avec excel et j'ai beau avoir trouvé quelques trucs, je n'ai pas réussi à tout solutionner !!

Je cherche à faire une mise en forme conditionnelle du style : si j'ai telle cellule colorée en jaune alors je mets tel message dans telle cellule.
La mise en forme conditionnelle (MFC) d'Excel ne permet que des conditions chiffrées (égalité, supériorité, infériorité) ou de message bien précis dans les cellules mais en aucun cas des conditions sur les cellules colorées. (La coloration de la cellule n'est que la résultante de la condition)

J'ai alors réalisé une macro qui permet de déterminer la couleur d'une cellule "couleurcellule()".
D'ailleurs si j'utilise la formule SI((couleurcellule(A1)=3;"ok";"faux") sur mon classeur, ca marche super
Par contre si j'utilise cette condition "couleurcellule()" dans le champ formule de la boite de dialogue 'mise en forme conditionnelle' rien ne se passe !!

IDEALEMENT je souhaiterais pouvoir créer une formule/macro qui stipule "colorer telle cellule ou telle plage avec telle couleur" :
nomdelaformule(plage;index couleur)

Avez vous une solution, je suis désespérée !

Merci à vous

[RobinSG]

Bonjour,

De tête et sans pouvoir tester, il me semble que tu dois déclarer ta fonction VBA en 'Public' pour qu'elle soit visible depuis le classeur.

[RobinSG]

Bonjour et merci pour ta réponse mais oupssss .... je ne comprends pas trop ce que tu me dis

Pour le moment j'ai fait ces deux 'macro' (que j'ai trouvé sur le net mais qui marche nickel !) :

Code: Tout sélectionner

Function COULCELL(c As Range)
COULCELL = c.Interior.ColorIndex
End Function


Code: Tout sélectionner

Function NBCOULCELL(Plage As Range, Couleur As Integer) As Long
Dim c As Range

NBCOULCELL = 0
For Each c In Plage
If c.Interior.ColorIndex = Couleur Then
NBCOULCELL = NBCOULCELL + 1
End If
Next c

End Function


Et j'aimerai l'équivalent qui stipule "colorer telle cellule ou telle plage avec telle couleur" :
nomdelaformule(plage;index couleur)

Est ce possible car je n'ai rien trouvé sur le net !

Merci

[RobinSG]

En fait, si tu as besoin d'appeler NBCOULCELL depuis les cellules de ta feuille Excel, ajoute Public devant la déclaration de la fonction.

Ex.

Code: Tout sélectionner

Public Function NBCOULCELL(Plage As Range, Couleur As Integer) As Long
    Dim c As Range

    NBCOULCELL = 0
    For Each c In Plage
      If c.Interior.ColorIndex = Couleur Then
        NBCOULCELL = NBCOULCELL + 1
      End If
    Next c

End Function


PS : utilises les balises "Code" pour déposer du code

[angeldust]

Je suis désolée mais je ne comprends pas ce que ça change .... Est ce que ça resoud mon soucis de colorer une cellule ??

Désolée pour les balises je ne savais pas ... D'autant que je débute dans tout ce qui est code, macro, fonction ....

EDIT : est de que le public permettra de pouvoir utiliser la formule dans le champ formule de la mise en firme conditionnelle ? Je comprends peut être

[angeldust]

Bonjour,

En effet ça marche !!
Merci beaucoup.

Par contre j'aimerai que ces fonctions soient utilisables sur tous les classeurs excel que j'ouvre et ce n'est pas le cas (uniquement sur le classeur ou j'ai créé le code). Y a t il un moyen ?
Merci

[RobinSG]

Lorsque tu enregistres une nouvelle macro, Excel te propose de l'enregistrer soit dans le classeur courant, soit dans le "classeur de macros personnelles".
En choisissant cette dernière option, un fichier est créé dans un répertoire particulier qui contient des classeurs ouvert automatiquement au lancement d'Excel.
Sur XP : C:\Documents and Settings\{{Nom d'utilisateur}}\Application Data\Microsoft\Excel\XLSTART

Via l'éditeur de VBA (Alt + F11) tu déplaces tes fonctions de ton classeur vers le classeur de macros personnelles.

[angeldust]

Bonjour
Merci bcp pour ton aide mais je ne trouve pas le "classeur de macros personnelles".


Je suis vraiment trop nulle !

[RobinSG]

Bonjour,

Tu as bien fais "enregistrer une nouvelle macro" ?
Car c'est à ce moment, qu'il te demande à quel endroit sauvegarder la macro (une fenêtre où tu peux spécifier le nom de la macro et en bas, dans une liste déroulante, où l'enregistrer)

Pour éventuellement trouver des captures d'écran, quelle est la version d'Office ?

[angeldust]

Bonjour Robin,

Je suis vraiment désolée d'être aussi nulle !!

En fait, j'ai juste copié mes code de formule dans 'Visual Basic' et je retrourne dans mon excel après. Les formules fonctionnent bien dans ces classeurs là.
[Pour info j'ai la version 2010]

Dans l'onglet 'Développeur' je vois bien le bouton 'Enregistrer une macro', j'ai essayé en mettant comme nom mes intitulés de formule par exemple NBCOULCELL et enregistrer la macro dans le classeur de macro personnelle mais ca ne fonctionne pas quand j'ouvre un nouveau excel.

J'y suis presque je pense ...

Merci à toi pour ta patience et ton temps !

[RobinSG]

J'ai une version d'essai d'Office 2007, je te fais des captures d'écran dès que possible.

[angeldust]

Un grand merci ....

[RobinSG]

Me revoilà !

Voici donc, en images, la procédure pour arriver sur le classeur de macros personnelles (création automatique si celui-ci n'existe pas)

Dans "Affichage / Macros", sélectionne "Enregistrer une macro..."


Dans la fenêtre qui s'ouvre, sélectionne "Classeur de macros personnelles" dans la liste déroulante "Enregistrer la macro dans :"


Clic sur une cellule de ta feuille Excel.

Puis de nouveau dans "Affichage / Macros", sélectionne "Arrêter l'enregistrement".


Appuie sur "Alt + F11" pour faire apparaitre l'éditeur VBA.


La fausse macro créée apparait dans un projet VBA associé au fichier "PERSONAL.XLSB".

Ce fichier est créé automatiquement si il n'existe pas déjà et est positionné dans un répertoire spécial contenant des fichiers ouverts au lancement d'Excel.

Remarque : Si tu ouvres 2 fois Excel (pas 2 classeurs mais vraiment 2 Excel), tu auras un message d'erreur disant que le fichier "PERSONAL.XLSB" est déjà ouvert, mais c'est pas grave, il suffit de prendre lecture seule.

[angeldust]

Bonjour,

Ca marche !! ... presque ....

Mes fonctions sont enregistrées et qd j'ouvre un nouveau excel, elles sont là (par contre le nom c'est PERSONAL.XLSB!COULCELL( !) MERCI MERCI MERCI ...

D'ailleurs si j'ai bien compris maintenant si je veux enregistrer de nouvelles fonctions il faudra que je les ajoute toujours aux modules dans VBAProject (PERSONAL.XLSB) ?

Par contre mon petit soucis c'est que je ne peux pas les 'appeler' dans le champ de formule de la mise en forme conditionnelle ! (et j'ai mis Public devant !!)
Alors que dans des conditions si(), ca fonctionne et que sur mon fichier de base ou elles étaient dans le classeur uniquement ca marche aussi dans les mises en forme conditionnelles !
Je comprends pas trop !

Je vais faire mes petits essais !

Merci dans tous les cas !