Discussion :

[Matbb2000]

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

[Algoplus]

bonjour,

A l'appel de la sub, qu'est ce qui est passé , concrètement, comme paramètre
le nom de feuille, une variable représentant la feuille ...?

A+

[Matbb2000]

Bonjour,
J'appelle différentes feuille à la suite. J'ai fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
[...]
    Dim feuille As Worksheet
    Set feuille = Worksheets("Diplôme")
    resetFeuille feuille
    Set feuille = Worksheets("IMA_3")
    resetFeuille feuille
    Set feuille = Worksheets("IMA_4")
    resetFeuille feuille
[...]

[Algoplus]

L'erreur ne provient pas de la feuille mais de cells(5,1).

après quelques tests, l'erreur 13 survient lorsque la cells(5,1) contient une erreur ( en l'occurrence #REF!)

[joe.levrai]

Bonjour,

dans ce cas, il faut interroger la propriété .Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While feuille.Cells(5, 1).Text <> "Moyenne"

[Matbb2000]

Merci beaucoup ! Avec le .Text ça fonctionne. Juste pour ma culture quelle est la différence entre .Value et .Text ?