Discussion :

[ADbtr]

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".

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...

2 choses :

• 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.

Comment procéder????
Merci d'avance pour vos réponses.

AD

[Gorfael]

Salut ADbtr et le forum
Les messages de Miscrosoft sont toujours aussi sybillins
Pour t'aider, il faut tout le code de la macro.
A+

[mercatog]

Bonjour,
comme tu joint seulement les lignes problématiques, je ferai comme ça et à toi d'adapter, ça nécéessite que le fichier NomFichier est ouvert

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim twbk As Workbook, wbk As Workbook
Dim twsh As Worksheet, wsh As Worksheet
Dim NomFichier As String, CelluleReference As String
Dim LastLig As Long, i As Long
Dim c As Range
Dim HeureDebut As Date  'Déclarer convenablement
 
Set twbk = ThisWorkbook
Set twsh = twbk.Sheets("Feuil1") 'Feuille1 de ThidWorkbook
'
'Suite code
'
   CelluleReference = Right(twsh.Range("B" & i).Value, 6)
 
   Set wbk = Workbooks(NomFichier)
   Set wsh = wbk.Sheets("Feuil1")
 
   With wsh
      LastLig = .Cells(Rows.Count, "D").End(xlUp).Row
      Set c = .Range("D2:D" & LastLig).Find(CelluleReference, lookat:=xlWhole)
      If Not c Is Nothing Then HeureDebut = c.Offset(0, 17).Value    'HeureDebut retrouvée dans la colonne T de la ligne correspondante
      'Suite du code...
   End With