1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Private Sub ComboBoxCodeGDO_Change()
Dim Ligne As Integer
Dim derlign As Long
'On Error GoTo pastrouvé
If ok = True Then Exit Sub
With Sheets("Information2")
derlign = .Range("J65536").End(xlUp).Row
Ligne = .Range("A2:N" & derlign).Find(ComboBoxCodeGDO, lookat:=xlWhole).Row
ok = True
ComboBoxCodeDépartHTA.Value = .Range("H" & Ligne)
ComboBoxNomDépartHTA.Value = .Range("I" & Ligne)
'ComboBoxCodeGDO.Value = .Range("J" & Ligne)
ComboBoxNomPoste.Value = .Range("K" & Ligne).Value
ComboBoxCommune.Value = .Range("M" & Ligne).Value
ComboBoxSiteOpérationnel.Value = .Range("N" & Ligne)
End With
ok = False
'pastrouvé:
'MsgBox ("CodeGDO non présent")
End Sub |
