VBA pour chaque cellule en format de plage en pourcentage

Question

J'ai regardé autour pour cela et il semble si simple, mais je ne peux pas le faire fonctionner.

J'ai une table et une colonne doit être formatée en pourcentage. Ci-dessous est mon code mais il ne forme pas les cellules, il les laisse juste comme la décimale.

Je pense que c'est parce que cell, même si déclaré comme une plage, est en fait la valeur de la cellule, donc je ne sais pas comment faire référence à cette plage.

Ma variable returnRebate est déclarée comme une plage et la boucle est bouclée dans la plage correcte.

code:

Dim cell As Range, p As Double 
For Each cell In returnRebate 
    p = cell.Value 

    If p <> 0 And p > 1 Then 
     p = p * 0.01 
     cell.Value = p 
     cell.NumberFormat = "Percent" 'Not formatting here 
    ElseIf p < 1 And p > 0 Then 
     'do nothing to it 
    Else 
     cell.Value = vbNullString 
    End If 
Next 

Answer 1

Essayez de remplacer .NumberFormat='Percent' avec .NumberFormat="0.00%"