Macro Excel
flaveee
Messages postés
59
Statut
Membre
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 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
A voir également:
- Macro Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
5 réponses
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 :
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
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.
