GADENSEB
XLDnaute Impliqué
Bonsoir le forum,
J'ai une :
erreur d'execution 13
incomptatibilité de type
sur
sachant que mes variables dans un module sont
Je vois pas l'erreur
QQn aurait une idée ?
Bonne nuit
Seb
J'ai une :
erreur d'execution 13
incomptatibilité de type
sur
Code:
nNumeroDeLigne = Application.VLookup(VAL_CODEBASE, MaVariableCritere, 0, False)
Code:
Private Sub LstV_BaseDonnees_DblClick()
Dim i As Long
RetourLigne = LstV_BaseDonnees.SelectedItem.Index 'N° de l'index sélectionné dans la listview
VAL_CODEBASE = LstV_BaseDonnees.ListItems(RetourLigne).Text
MaVariableCritere = Worksheets("BASE EMPLOI").Range("A1:BB3000")
FinTableau = Sheets("BASE EMPLOI").Range("A" & "65535").End(xlUp).Row
For i = 1 To FinTableau
If Sheets("BASE EMPLOI").Range("A" & i).Value = VAL_CODEBASE Then
nNumeroDeLigne = Application.VLookup(VAL_CODEBASE, MaVariableCritere, 0, False)
..................................................
sachant que mes variables dans un module sont
Code:
Public MaVariableCritere As Variant
Public RetourLigne As Long
Public FinTableau As Long
Public nNumeroDeLigne As Long
Public VAL_CODEBASE As String
Je vois pas l'erreur
QQn aurait une idée ?
Bonne nuit
Seb