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é :
A la ligne "temp = commandes.Range ......", j'ai le message d'erreur :
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
Je ne vois pas où est l'erreur, un peu d'aide me serait utile !erreur d'execution 91 :
Variable objet ou variable de bloc With non définie
Partager