Bonjour le forum,
Dans mon code j'ai un soucis d'erreur 13.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub resetFeuille(feuille As Worksheet)
    While feuille.Cells(5, 1) <> "Moyenne"
        feuille.Rows(4).Delete Shift:=xlUp
    Wend
End Sub
L'erreur est sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
While feuille.Cells(5, 1) <> "Moyenne"
Je sais que cela est dû normalement à une variable qui n'est pas de bon type. Or ici feuille est déclaré as worksheet (donc normalement c'est bon)
J'ai essayé avec While feuille.Cells(5, 1).Value <> "Moyenne" et ça ne fonctionne pas non plus
Merci d'avance
Un nouveau