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é :
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"...
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
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.
Partager