Message d'erreur

poussy67

XLDnaute Occasionnel
Bonjour le forum,

J'ai un classeur qui contient une vba qui me supprime les lignes si dans la colonne F se trouve le chiffre "2". Cela fonctionne très bien sur mon pc, mais des que je travaille sur un autre pc (l'occurrence sur le pc du boulot), il me donne un message d'erreur qui est: Erreur de compilation, projet ou bibliothèque introuvable et me mes Left en erreur.
Ci joint la vba et une image du message d'erreur:

Sub SupLigne2()
Dim i As Long
For i = Range("f65536").End(xlUp).Row To 1 Step -1
If Left(Cells(i, 6), 1) = "2" Then Rows(i).Delete
Next
End Sub

Merci d'avance pour votre aide

Cdt poussy
 

Pièces jointes

  • erreur.jpg
    erreur.jpg
    19.7 KB · Affichages: 46
  • erreur.jpg
    erreur.jpg
    19.7 KB · Affichages: 51
  • erreur.jpg
    erreur.jpg
    19.7 KB · Affichages: 46

Discussions similaires

Réponses
1
Affichages
127
Réponses
6
Affichages
140

Statistiques des forums

Discussions
312 224
Messages
2 086 410
Membres
103 201
dernier inscrit
centrale vet