Macro Excel
flaveee
Messages postés
59
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'aimerai faire une macro pour écrire en petit tous les chiffre inférieure a 1 et en grand tt les chiffre superieur a 1. j'ai regarder mais j en comprend pas tt, voilà ce que j'ai trouver
Dim rng As Range
Dim rCell As Range
Set rng = Range("A1:A10")
For Each rCell In rng
If Len(rCell.Text) > 2 Or _
Val(rCell.Value) > 10 Then
rCell.Font.Name = "Arial"
rCell.Font.Size = 16
Else
rCell.Font.Name = "Times New Roman"
rCell.Font.Size = 12
End If
Next
j'aimerai faire une macro pour écrire en petit tous les chiffre inférieure a 1 et en grand tt les chiffre superieur a 1. j'ai regarder mais j en comprend pas tt, voilà ce que j'ai trouver
Dim rng As Range
Dim rCell As Range
Set rng = Range("A1:A10")
For Each rCell In rng
If Len(rCell.Text) > 2 Or _
Val(rCell.Value) > 10 Then
rCell.Font.Name = "Arial"
rCell.Font.Size = 16
Else
rCell.Font.Name = "Times New Roman"
rCell.Font.Size = 12
End If
Next
5 réponses
-
Bonsoir,
c'est une macro excel, pas word.
eric
-
-
Et qu'est-ce que tu ne comprends pas ?
C'est quoi la question ?
eric
-
je cherche une macro pour mettre une police petite a toutes es vleurs <1 et une grande police au valeurs >1 sur les cellule f3 a f200
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
je t'avais un peu oublié, excuse.
Sélectionne ta plage à traiter et lance cette macro :Sub taillePolice() Dim c As Range For Each c In Selection If c < 1 Then c.Font.Size = 8 Else c.Font.Size = 12 End If Next c End Sub
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
