VBA Pour Chaque cellule de la Plage de Format en Pourcentage

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

J'ai une table et une colonne doit être présentée sous forme de pourcentage. Ci-dessous mon code, mais elle n'est pas mise en forme des cellules, il laisse tout comme la virgule.

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

Mon returnRebate variable est déclarée comme un éventail, et la boucle est boucle 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
  • essayez de la remplacer .NumberFormat= "Pourcentage" avec .NumberFormat="0.00%"
  • omg je savais que c'était simple! Je pensais que je l'avais essayé mais je ne crois pas
InformationsquelleAutor anonymous | 2017-03-16