Encore un Find qui bug

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:

---

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 :

Citation:

---

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 !

essaye peut être (mais sans trop de conviction)

Code:

---

set temp = commandes.Range("I:I").Find(comcreation.numaff.Value, commandes.Cells(6, 9), xlValues, xlWhole, xlByRows, xlNext).Row

---

Je suis d'accord avec Krovax, il faut utiliser le set, un exemple perso qui fonctionne :

Code:

---

1 2	Dim MaColonne As Range Set MaColonne = F2.Rows("1:1").Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart)

---

merci de vos réponses.

Citation:

---

Envoyé par Krovax

essaye peut être (mais sans trop de conviction)

Code:

---

set temp = commandes.Range("I:I").Find(comcreation.numaff.Value, commandes.Cells(6, 9), xlValues, xlWhole, xlByRows, xlNext).Row

---

---

En utilisant ta solution j'ai l'erreur :

Citation:

---

Erreur de compilation :
Objet requis

---

sur le .row.

J'ai essayé de dissocier le .row :

Code:

---

1 2	Set temp1 = commandes.Range("I:I").Find(comcreation.numaff.Value, commandes.Cells(6, 9), xlValues, xlWhole, xlByRows, xlNext) temp = temp1.Row

---

Mais cela me renvoi l'erreur 91 sur la ligne deuxième ligne.

As-tu déclaré la variable ?

Code:

---

Dim temp As Range

---

edit : je viens de faire le test suivant et il fonctionne :

Code:

---

1 2 3 4

Sub essai() Set temp = Feuil2.Range("I:I").Find("test", Feuil2.Cells(6, 9), xlValues, xlWhole, xlByRows, xlNext) temp.select end sub

---

Je n'avais pas vue le .row désolé.
J'ai fait quelque test
Ce code fonctionne

Code:

---

1 2 3 4 5

Dim temp1 As Range, i As Long   Set temp1 = Range("A1:B5").Find("Hello") i = temp1.Row MsgBox i

---

Mais pas parfaitement, en fait il plante si tu ne trouve rien, erreur 91

Je dirais donc de tester si il y a bien un quelque chose de trouvé

Code:

---

1 2 3 4 5 6 7

Dim temp1 As Range, temp As Long Set temp1 = Range("A1:B5").Find("Hello") if temp1 is nothing then msgbox "Le numéro d"affaire n'a pas été trouvé" 'enfin ca a l'air de parler d'un truc proche exit sub end if temp = temp1.Row

---

Cela avance !
Le code ne plante plus :)(merci à vous), mais il ne fait pas ce qu'il faut :aie:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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 Dim temp1 As Range Dim temp As Long Set temp1 = commandes.Range("I:I").Find(comcreation.numaff.Value, commandes.Cells(6, 9), xlValues, xlWhole, xlByRows, xlNext)   If temp1 Is Nothing Then comcreation.devis.Enabled = True Else temp = temp1.Row comcreation.devis.Enabled = False comcreation.montantdevis.Value = commandes.Cells(temp, 27) End If End Sub

---

Dans mon test, j'ai comcreation.numaff.Value = "9", et le premier élément commandes.cells(6,9)=9, donc temp1 devrait pointer sur la cellule (6,9).

Mais en regardant de plus près avec un point d'arrêt, temp1=nothing ce que je ne comprend pas !

RE,


comme tu commence a rechercher à partir de commandes.Cells(6, 9) avec xlnext, c'est normal qu'il ne trouve rien, c'est comme si tu étais sur cette cellule dans excel et que tu clique sur suivant dans ta recherche.

Pour que cette cellule soit prise en compte il faut débuter la recherche sur la ligne 5 (testé).

J'y avais pensé, mais dans la colonne I, il y a d'autre cellule contenant "9", donc cela devrait en trouver une tout de même.

Et après modification de 6 en 5, il n' y pas de changement.

Dans mes cellules leur valeur est bien à 9, mais le format des cellules fait que c'est "009" qui est affiché.
Est-ce que c'est gênant pour le find ?

Citation:

---

Dans mes cellules leur valeur est bien à 9, mais le format des cellules fait que c'est "009" qui est affiché.
Est-ce que c'est gênant pour le find ?

---

oui si tu utilises

Code:

---

xlWhole

---

à la place il faut utiliser pour chercher une partie :

Code:

---

xlPart

---

:ccool:
C'était bien ça !

Merci de votre aide à tous les deux.