macro Excel

Question

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

eriiic · Answer

Bonsoir,

c'est une macro excel, pas word.
eric

flaveee · Answer

ha oui merci xD c'est pour excel je me suis tromper

eriiic · Answer

Et qu'est-ce que tu ne comprends pas ?
C'est quoi la question ?
eric

flaveee · Answer

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

eriiic · Answer

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.

Macro Excel

5 réponses

Discussions similaires

Newsletters