type mismatch

[Fairyanna]

Bonjour,

J'ai écris le code suivant - relativement simple comme vous le constaterez - le but est de détecter combien de lignes sont pleines (sachant qu'on ne remplit qu'une lig ne sur 3 pour des raisons de présentation) :

Sub simu()

Dim i, nbsku As Integer
Dim cells As Variant

Worksheets("SKUGENS").Select

'initialisation du compteur de skus
nbsku = 1

' boucle qui compte le nombre de skus renseignés dans la feuille SKUGEN
For i = 10 To 300 Step 3
If Len(cells(i, 4).Value) > 1 Then nbsku = nbsku + 1
Next i

'MsgBox (nbsku)

End Sub

==> le problème est que j'ai une erreur "type mismatch" que je ne comprends pas ..?? Si qqn avait une idée de ce que ça pourrait être ?

Merci beaucoup

 

[PascalXLD]

Re : type mismatch

Bonjour

C'est ton

Dim cells As Variant

qui pose problème

Cells est un mot reservé VBA et tu ne dois pas le déclarer en variable
Supprime la ligne et cela ira mieux je pense