MFC de taille

[JJ1]

Bonsoir,

Savez-vous s'il est possible de modifier la taille de la police par MFC, car le bouton est grisé.
Voir mon exemple joint--merci

Bonne soirée

 

[Excel-lent]

Re : MFC de taille

Bonsoir JJ1,

A ma connaissance, c'est impossible via MFC. Mais comme souvent avec Excel, il y a toujours une solution pour y parvenir!

Dans ton cas, la solution s'appelle VBA. Mais veux-tu te plonger dans cet univers un peu particulier?

A te lire

Cordialement

 

[Excel-lent]

Re : MFC de taille

Bonsoir,

Dans ce cas tu peux modifier mon code de la façon suivante :

Sub test()

Dim ZoneAnalysé As Range
Dim Cell As Range
Set ZoneAnalysé = Range("B6:G15")

For Each Cell In ZoneAnalysé
    If Cell = 2 Then Cell.Font.Size = Cell.Font.Size + [COLOR="Blue"][B]4[/B][/COLOR]
Next Cell

End Sub

Bonne semaine

A+

 

[JJ1]

Re : MFC de taille

Bonsoir Excel-lent, et merci pour ton code simple à mettre en place.
Bonne soirée

 

[Excel-lent]

Re : MFC de taille

Bonsoir JJ1,

Simple à mettre en place?

Alors tu as déjà des bases en VBA je suppose?

Car il y a plusieurs endroits où le mettre, et selon, la macro ne fonctionneras pas.

De plus, suivant ce que tu souhaite, qu'elle se déclenche toute seule, ou suite à un clic sur un bouton, ça change tout également.

Si besoin de plus de précision, n'hésite pas.

A+

 

[JJ1]

Re : MFC de taille

Bonjour, merci pour ton aide , j'ai déjà utilisé une macro.
(pour cet usage, je la lance manuellement)
J'ai rajouté la ligne:
If Cell = 2 Then Cell.Font.Bold = True
à ton code pour supprimer la MFC qui mettait en gras.
Merci
Bon lundi à tous.

 

[Excel-lent]

Re : MFC de taille

Bonsoir,

Dans ce cas, tu peux simplifier le code ainsi :

Sub test()

Dim ZoneAnalysé As Range
Dim Cell As Range
Set ZoneAnalysé = Range("B6:G15")

For Each Cell In ZoneAnalysé
    If Cell = 2 Then
       Cell.Font.Size = Cell.Font.Size + 4
       Cell.Font.Bold = True
    End If
Next Cell

End Sub

Bonne fin de semaine

A+

 

[JJ1]

Re : MFC de taille

Bonjour Excel-lent, le Forum,

J'ai voulu modifier une valeur colorée (jaune ou vert côte à côte en remplssage couleurs standard) par une lettre en passant par la macro, j'ai écrit:

Sub Macro2()
Dim ZoneAnalysé As Range
Dim Cell As Range
Set ZoneAnalysé = Range("B10😀30")

For Each Cell In ZoneAnalysé
If Cell.Interior.Color = 5296274 Then Cell.Value = "A"
If Cell.Interior.Color = 65535 Then Cell.Value = "B"
Next Cell
End Sub

Ca me paraît correct, mais pourtant rien ne se passe et pas de debugage ?
As-tu une idée? les codes couleurs sont bons?

Merci

 

[Excel-lent]

Codes des couleurs pour "Interior.ColorIndex" et "Font.ColorIndex"

Bonsoir JJ1, tous le monde,

Ton code est légèrement erroné.

Le voici corrigé :

Sub Macro2()

Dim ZoneAnalysé As Range
Dim Cell As Range
Set ZoneAnalysé = Range("B10: D30")

For Each Cell In ZoneAnalysé
    If Cell.Interior.Color[COLOR="Blue"]Index[/COLOR] = 2 Then [COLOR="Blue"]Cell[/COLOR] = "A"
    If Cell.Interior.Color[COLOR="Blue"]Index[/COLOR] = 3 Then [COLOR="Blue"]Cell[/COLOR] = "B"
Next Cell

End Sub

Le mot "value" n'est pas faux, mais comme il ne sert à rien dans ton cas de figure, autant l'enlever 😉

Si cela peut t'aider, voici ci-joint un fichier TRES pratique, la liste des couleurs possibles sous Excel avec le code correspondant.

Bonne soirée