MFC gérée par macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sebdemierre

XLDnaute Nouveau
Bonjour,
J'ai découvert ce forum depuis peu et je le trouve fantastique.

Dans mon nouveau job, j'ai énormément de choses à mettre en place et j'ai souvent besoin de faire appel à ce forum pour répondre à mes question. J'ai toujours pu trouver mon bonheur jusqu'à présent.

Comme je ne suis pas très fort en VB, voilà ma question.

J'ai créé un planning sous excel avec des mise en forme conditionnelles gérées par une macro.
En fait, suivant le contenu de la cellule, la cellule prend une couleur définie. Tout marche très bien.
J'aimerais aussi modifié le contenu de la cellule, soit la couleur du texte, soit mettre un motif de hachures ou soit mettre le texte en gras automatiquement.

J'espère que j'ai été assez clair.

Voici une simple séquence de ma macro. Qqun peut m'aider?

Case "BN"
Cel.Interior.ColorIndex = 5

Merci d'avance
 
Re : MFC gérée par macro

Bonjour,

Voici ce que j'utilise :


Placer ces macros dans la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mev_01 1, 1, 10, 1
mev_01 17, 7
End Sub
‘=======================================================
Private Sub mev_01(l1, c1, Optional l2, Optional c2)
If IsMissing(l2) Then l2 = l1
If IsMissing(c2) Then c2 = c1
Set zone1 = Range(Cells(l1, c1), Cells(l2, c2))
Dim cellule As Object
For Each cellule In zone1
With cellule.Interior
.ColorIndex = none
.Pattern = xlSolid
End With
cellule.Value = UCase(cellule.Value)
Select Case UCase(cellule.Value)
Case “X1”: cellule.Interior.Color = RGB(255, 200, 80)
Case “DUDULE”: cellule.Interior.ColorIndex = 5
Case “PIF”: cellule.NumberFormat = “””--> “”@”
End Select
Next
End Sub

La macro mev_01 (Mise En Valeur) possède 4 arguments dont 2 facultatifs.

mev_01 arg1, arg2, arg3, arg4

arg1: numéro de la première ligne de la plage à mettre en valeur
arg2: numéro le la première colonne de la plage
arg3: numéro de la dernière ligne de la plage
arg4: numéro de la dernière colonne de la plage

Par ces arguments on peut affecter une mise en valeur à une plage de cellule.
Si arg3 et arg4 ne sont pas définits, on considèrera qu’ils prennent les valeurs respectives arg1 et arg2. Dans ce cas la plage se limite à une seule cellule (mev_01 arg1, arg2).
 
Re : MFC gérée par macro

Bonjour,

Le mieux est d'utiliser l'enregistreur de macro (qui va générer le code vba correspondant aux manipulations que tu va faire)
Pour démarrer l'enregistreur : Outils/Macros/Nouvelle macro
ensuite faire les manips (par exemple, clic sur gras, sur couleur de police, ...)
puis Outils/Macros/Arrêter l'enregistrement
enfin Outils/Macros/Macros, choisir le nom de ta macro puis clic sur le bouton Modifier et là tu vois le code vba correspondant aux manips

Par exemple :
Selection.Font.Bold = True 'pour le gras
...

Bon courage

JP
 
Re : MFC gérée par macro

Bonjour,

Pour le texte:

Cel.Font.ColorIndex

Pour les autres attributs, faire de l'enreg auto et reécpérer le code ou copier/coller une cellule qui a les attributs désirés.

JB
Formation Excel VBA JB
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
439
Réponses
4
Affichages
330
Réponses
5
Affichages
824
Retour