Vonjour j'ai l erreur marquée dans le titre quand j'éxécutes le cde suivant
Dim ok As Boolean
Private Sub ComboBoxCodeGDO_Change()
Dim Ligne As Long
Dim derlign As Long
If ok = True Then Exit Sub
With Sheets("Information2")
derlign = .Range("A65536").End(xlUp).Row
Ligne = .Range("A2:N" & derlign).Find(ComboBoxCodeGDO, lookat:=xlWhole).Row
ok = True
ComboBoxCodeDépartHTA.Value = .Range("H" & Ligne).Value
ComboBoxNomDépartHTA.Value = .Range("I" & Ligne).Value
'ComboBoxCodeGDO.Value = .Range("J" & Ligne).Value
ComboBoxNomPoste.Value = .Range("K" & Ligne).Value
ComboBoxCommune.Value = .Range("M" & Ligne).Value
ComboBoxSiteOpérationnel.Value = .Range("N" & Ligne).Value
End With
ok = False
End Sub
LE programme fonctionne pour les valeurs premiers mais à la fin quend je sélectionne une valeur ça plante et ça m affiche l erreur
, ligne de plantage est ;
Ligne = .Range("A2:N" & derlign).Find(ComboBoxCodeGDO, lookat:=xlWhole).Row