MFC automatique ?

bonjour,

malgré tous les exemples que j'ai pu lire sur le site, je ne trouve pas la réponse à mon problème.

cela concerne les MFC :

j'aimerai que la taille de police de A1 =20 si B1 ="0" ; et qu'elle rebascule en 10 si B1<>"0"

excel bloque en soit la taille de police dans les MFC.

est ce que quelqu'un aurait une solution à m'apporter ??

merci d'avance

papajoss

en fait, je souhaiterai généraliser cette macro à l'ensemble de la colonne A et B :

Sub Taille_de_police()

'

' Macro4 Macro

If [B1] = "0" Then [A1].Font.Size = 20

If [B1] <> "0" Then [A1].Font.Size = 11

End Sub

Bonjour,

Ci-joint ton fichier test ...

merci pour la réponse mais je me sus mal exprimé

en fait je voudrais que

If [B1] = "0" Then [A1].Font.Size = 20

If [B1] <> "0" Then [A1].Font.Size = 11

If [B2] = "0" Then [A2].Font.Size = 20

If [B2] <> "0" Then [A2].Font.Size = 11

etc ...

est ce plus clair ?

merci

Bonjour,

Ci-joint ta version 2 ...

En espèrant que cela réponde à ton attente ...

AU TOP

merci beaucoup

papajoss

PapaJoss a écrit :

AU TOP

merci beaucoup

papajoss

Content ... que tu sois content ...

Merci ... pour ton Merci ...

et si maintenant je veux appliquer cette macro à un autre classeur ?

j'ai copié cette commande dans mon classeur de macro ... mais je ne la vois pas lorsque j'ouvre un 2ème fichier sur lequel j'aimerai appliqué cette marco

peut etre une question bizarre mais je débute dans vba et je n'ai pratiqué que des "éxécutions automatiques" ... donc preneur de bons conseils

merci merci

papajoss

Bonjour,

Si tu pointes ta souris vers le nom de l'onglet ...

et que tu fais un clic droit ...

dans le sous-menu qui s'ouvre, tu peux choisir de voir le code ...

Elle se trouve là ... car il s'agit d'une macro évènementielle ...

C'est donc une macro qui se lance toute seule en fonction de l'évènement ...

Re,

J'espère que l'adaptation au fichier réel s'est passée sans difficulté ....

Bonjour,

Les étapes pour copier une macro d'un fichier à un autre sont ultra simples :

Si tu pointes ta souris vers le nom de l'onglet ...

et que tu fais un clic droit ...

dans le sous-menu qui s'ouvre, tu peux choisir de voir le code ...

A ce stade séléectionner tout le texte de la macro évènementielle ... (ctrl C)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
  If Target = 0 Then
    Cells(Target.Row, 1).Font.Size = 20
  Else
   Cells(Target.Row, 1).Font.Size = 11
  End If
End Sub

Ensuite il suffit de te placer dans le module de la Feuille du nouveau fichier ...

et de coller ... (ctrl V)

Voilou ...