Bonjour,
je rencontre un problème et je n'arrive pas à le résoudre :
Les lignes en gras ci dessous me renvoient les messages d'erreur "Variable objet ou variable de bloc With non définie".
2 choses :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 CelluleReference = Right(Range("B" & i), 6) 'ouverture du fichier journalier Workbooks(NomFichier).Activate Sheets("Feuil1").Select On Error GoTo PasDeProd If (Range("D2:D10000").Find(CelluleReference, lookat:=xlWhole)) = CelluleReference Then HeureDébut = Application.WorksheetFunction.VLookup(CelluleReference, Range("D2:W10000"), 17, 0) Suite du code...
Comment procéder????
- Si le test du If trouve une valeur dans la plage D2:D10000, alors il passe à la 2e ligne, mais dans ce cas, j'ai un message d'erreur (variable non définie).
- Si le test ne trouve pas la valeur, alors il me renvoie un message d'erreur.
Merci d'avance pour vos réponses.
AD
Partager