Bonjour a tous,
voici le souci , j'ai un textbox pour lequel le code est le suivant :
et donc une fois que j'ai mes 3 lettre dans le textbox en fait le code s'execute 2 fois de suite et je ne comprends pas pourquoi
Merci par avance de votre aide
voici le souci , j'ai un textbox pour lequel le code est le suivant :
VB:
Private Sub AeroportDep_Change()
Dim derligne, i, j, C, pays, code
AeroportDep.Value = UCase(AeroportDep.Value)
If Len(AeroportDep.Value) = 3 Then
Workbooks.Open Filename:="D:\Documents\Temp_Cotation\CHRONO COTATION 2019 PNR Temp.xlsm"
Workbooks("CHRONO COTATION 2019 PNR Temp.xlsm").Activate
code = AeroportDep.Value
Sheets("Code").Select
'Range("A2").Select
'Range(Selection, Selection.End(xlDown)).Select
Set C = Columns("A:A").Find(What:=code, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If C Is Nothing Then
MsgBox "Code Aéroport Inconnu"
Workbooks("CHRONO COTATION 2019 PNR Temp.xlsm").Close
Exit Sub
Else
C.Select
pays = ActiveCell.Offset(0, 1).Value
PaysDep.Value = pays
End If
Set C = Nothing
Workbooks("CHRONO COTATION 2019 PNR Temp.xlsm").Close
End If
End Sub
et donc une fois que j'ai mes 3 lettre dans le textbox en fait le code s'execute 2 fois de suite et je ne comprends pas pourquoi
Merci par avance de votre aide