Bonjour,
Je travaille avec un fichier que je développe depuis longtemps et qui ne posait pas de problème jusqu'à sa dernière utilisation.

Je remplis des cellules via un userform et dans ce userform, je donne une valeur à un caption par le moyen d'une formule de recherche qui va chercher une valeur dans un autre onglet dans lequel se trouve un tableau alimenté par un import de données.

Le code bloque sur la ligne de la formule qui "va chercher" cette valeur:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
If Not WorksheetFunction.IsNA(Application.VLookup(Me.ComboBox1.Value, Sheets("ANNUAIRE").Range("B2:D500000"), 3, False)) = True Then
Dans:
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub ComboBox1_Change()
 
 
 
If Me.ComboBox1.Value = "" Then
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
End If
Sheets(1).Unprotect
 
Selection.Value = Me.ComboBox1.Value
 
Sheets(1).Protect
 
If Len(Me.ComboBox1.Value) = 8 Then
If Not WorksheetFunction.IsNA(Application.VLookup(Me.ComboBox1.Value, Sheets("ANNUAIRE").Range("B2:D500000"), 3, False)) = True Then
ETAB = Application.VLookup(Me.ComboBox1.Value, Sheets("ANNUAIRE").Range("B2:D500000"), 3, False)
COORD = Application.VLookup(Me.ComboBox1.Value, Sheets("ANNUAIRE").Range("B2:F500000"), 5, False)
QUOI = ETAB & Chr(10) & COORD
Debug.Print QUOI
Me.Label2.Caption = "UAI " & QUOI
 
 
Else
 
ETAB = "Non répertorié"
Me.Label2.Caption = "UAI " & QUOI
 
End If
End If
 
 
 
End Sub
Private Sub ComboBox1_Click()
 
 
 
 
 
End Sub
Erreur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Erreur -2147319767 (80028029)
Erreur Automation
Référence future non valide, ou référence à un type non compilé
Là je sèche complètement.

Si quelqu'un y voit plus clair que moi, je vous remercie d'avance du coup de main