Erreur méthode find

Question

Bonjour tout le monde j'ai une erreur au niveau de la méthode find Erreur définie par l'application ou par l'objet.

 Ligne = .Range("A2:N" & derlign).Find(ComboBoxCodeGDO, lookat:=xlWhole).Row

le code complet

Dim ok As Boolean
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

Yvouille · Answer

Dans l'exemple que t'avais fourni Banzai Set Recherche = Range("A:A").Find(Cellule.Value, , , xlPart) il y avait des virgules, afin d'indiquer les arguments non définis. Ne dois-tu pas en faire de même dans ton présent code ? Autrement tu peux éventuellement nous fournir ton fichier. N'oublie pas que tu as encore un autre fil ouvert Excellentes salutations...

Yvouille · Answer

BONJOUR, MERCI, tu as toujours un peu de peine de ce côté-là

Tu devrais relire la Charte du Forum Explications et règles à respecter, spécialement les points 5 et 8.

Le fil sur lequel tu m'as laissé tomber est

https://forum.excel-pratique.com/excel/calcul-direct-dans-le-formulaire-t42574.html

Bonne continuation.