Variable objet ou variable de bloc with non définie

Marie -
ozone_ Messages postés 1518 Date d'inscription Statut Membre Dernière intervention - 20 juil. 2022 à 13:15

Bonjour tout le monde, j'ai trouvé un problème lors de l'exécution de ce programme vba , aidez moi à trouver la solution et merci.

C'est mon code :

Sub Creteria()
Dim Feuil1 As Worksheet
Dim lastcol As Long
Dim x As Long
Dim countCr As Long

lastcol = Feuil1.Cells(1, Columns.Count).End(xlToLeft).Column
For x = 1 To lastcol

If Range("4" & x).Value <= 0.5 Then

countCr = countCr + 1

End If
Next x

End Sub

A voir également:

1 réponse

Réponse 1 / 1

ozone_ Messages postés 1518 Date d'inscription Statut Membre Dernière intervention 478

Salut,

Ta variable Feuil1 n'est pas définie.

Il faut lui associer une feuille via

Set Feuil1 = ActiveSheet '(par exemple)