Bonjour,

J'ai encore un soucis avec un .Find, mais les solutions que j'avais obtenu la dernière fois ne s'appliquent pas dans ce cas

Voici le code incriminé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub numaff_Change()
    If comcreation.numaff.Value <> "" Then
        comcreation.Numclient.Caption = numerosaff.Cells(comcreation.numaff.ListIndex + 6, 5)
    End If
    'si c'est la première commande sur ce numero d'affaire
    temp = commandes.Range("I:I").Find(comcreation.numaff.Value, commandes.Cells(6, 9), xlValues, xlWhole, xlByRows, xlNext).Row
    If temp Is Nothing Then
        comcreation.devis.Enabled = True
    Else
        comcreation.devis.Enabled = False
        comcreation.montantdevis.Value = commandes.Cells(temp, 27)
    End If
End Sub
A la ligne "temp = commandes.Range ......", j'ai le message d'erreur :
erreur d'execution 91 :
Variable objet ou variable de bloc With non définie
Je ne vois pas où est l'erreur, un peu d'aide me serait utile !