Bonjour,

Voici mon programme qui doit renvoyer la position de la cellule contenant la valeur de la variable frac :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
With Worksheets(2).Range("a5:a44")
    Set c = .Find(frac, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Or ca ne marche pas alors que si je remplace frac par 2 par exemple ca merche pouvez-vous m'aider merci.