Bjr,  
J'ai un probleme sur une macro
 
Des que je la lance une fenetre m'indique que j'ai une erreur de compilation
                        projet  ou bibliotheque introuvable
 
Voici mon code
 
 'creation fenetre pour saisie du N° de facture
Dim nom As String
On Error Resume Next
nom = InputBox("Tapez le Numero de Facture " )
If nom = "" Then Exit Sub
 
' ranger les données suivant N° facture dans feuille FF3
 
r = 2
For z = 1 To 1103
If Sheets("Ventes" ).Range("b" & z) = nom Then
Sheets("Ventes" ).Rows(z).Copy Sheets("FF3" ).Range("A" & r)
r = r + 1
End If
Next i
Sheets("facture" ).Select
 
l'erreur est sur mon compteur r=1 ainsi que ma boucle for z =1 to 1103
 
Je cherche depuis pas mal de temps et je ne trouve pas
 
Quelqu'un peut-il m'aider
 
Merci

bonjour,
la seule erreur de compilation que je produit viens du next i
si on supprime le i ça compile sans problème.
A+

c'est bien next z que j'ai dans mon module
j'ai été un peut trop vite pour la saisie du message
 

Salut Argentan61,
 
  moi, c'est Flers. Tu n'as pas le nom de la dll manquante dans le message? Sinon, sur quelle ligne bloque-t-il?

non
il bloque à partir de r=2
la il me dit que j'ai une erreur de compilation  
        projet  ou bibliotheque introuvable  
 
GAG!

Vérifie les References dans le menu <Outils> <References>. Tu devrais avoir:  
Visual Basic pour Applications
Microsoft Excel 11.0 Objects Library (dépend de ta version Excel)
Ole Automation  (Pas obigatoire)
Microsoft Excel 11.0 Office Library  (Si tu as Office)
 
Sinon, dans quel module as-tu collé ton code? Au niveau de ThisWorkBook ou au niveau d'une feuille?

au niveau de la feuille
 
toutes les references sont bonnes
 

excuse moi il est dans Microsoft excel objet
 

Et si tu déclares tes variables r et z?
 
Dim r As Integer, z As Integer
 
Car si tu as la consigne 'Option Explicit' en 1ère ligne de module, ça t'oblige à déclarer tes variables.

merci JihemAir ca fonctionne