Format pourcentage VBA

Bonjour,

j'ai une liste de valeurs en pourcentage sur excel (voir fichier joint) et j'aimerai boucler sur ces valeurs et dès qu'on a une valeur supérieur à 10% alors afficher la valeur

pour l'instant j'ai ce code mais la syntaxe est erronée

Sub test()

    For i = 4 To 16

    If Cells(i, 6) >= 0.10% Then

    MsgBox (Cells(i, 6))

    End If

    Next i

    End Sub

si quelqu'un pourrait m'aider

Merci beaucoup

bonjour,

j'ai pas tout compris en fait.

mais sur le principe l'erreur dans ton code est le 0.10% car c'est du texte donc il faut des "" et donc "0.10%"

ceci dit 0.10% est diff de 10% dans ta formule il faudrait mettre 0.10 au lieu de 0.10%

Bonjour,

Essaie comme cela

Sub test()
Dim Cel As Range
    For Each Cel In Range("F4:F" & Range("F" & Rows.Count).End(xlUp).Row)
        If Cel.Value >= 0.1 Then
            MsgBox Cel.Offset(0, -1) & " : " & Format(Cel, "0.00%")
            Exit Sub
        End If
    Next Cel
End Sub

A+

Bonjour,

Tu peux essayer le code suivant :

Sub Test()
Dim i As Integer
    For i = 4 To 16
      If Cells(i, 6) >= 0.1 Then
         Cells(i, 6).Select
        MsgBox (Cells(i, 6))
      End If
    Next i
End Sub

Attention :

Il faut insérer un module ... pour y placer ton code ...