Discussion :

[zandru]

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 !

[Krovax]

essaye peut être (mais sans trop de conviction)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zandru]

merci de vos réponses.

essaye peut être (mais sans trop de conviction)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Erreur de compilation :
Objet requis

sur le .row.

J'ai essayé de dissocier le .row :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[aalex_38]

As-tu déclaré la variable ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim temp As Range

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zandru]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[aalex_38]

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é).