Bonjour à tous,

je sens que ma question va être bête, mais je n'arrive pas à faire tourner un bout de code qui consiste à effacer une valeur située dans une colonne donnée lorsque celle-ci est supérieure à 0 (je recherche la première valeur trouvée, les autres cellules de la plage étant vides), à partir du numéro de ligne trouvé via un autre "Find".

D'après mes maigres connaissances, je pense que le problème vient du paramètre de l'argument "what", qui doit chercher une valeur exacte, alors que je cherche la première valeur > 0.

Voici le petit bout de code incriminé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Analyse_RECAP()
 
Dim CelA As Range
Dim CelB As Range
 
    Set CelA = Sheets("Traitement").Range("C:C").Cells.Find(what:="POS")
    Set CelB = Sheets("Traitement").Range("P:P").Cells.Find(what:=">0", after:=CelA.Row, LookIn:=xlValues)
    CelB.ClearContents
 
End Sub
J'ai également essayé de mettre IsNumeric, de déplacer, ajouter ou enlever des "", mais rien n'y fait, j'obtiens toujours une "erreur d'exécution 13 : Incompatibilité de type"...

Pouvez-vous m'éclairer sur ce problème ? L'argument "what" peut-il admettre ce type de paramètre et avec quelle syntaxe ?
Aussi, je n'utilise peut-être pas la bonne procédure pour réaliser ce que je cherche à réaliser, donc si vous avez des suggestions...

Merci d'avance et à bientôt,

Loïc.