Discussion :

[zandru]

Bonjour,

j'ai un soucis sur cette ligne :

Code :

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

cliran = client.Range("C:C").Find(factures.Cells(i, 6), client.Cells(2, 3), xlValues)

je précise que :

• cliran est une variable range
• factures et client sont des feuilles excel

le problème est que vba plante sur cette ligne et me donne :
erreur d'execution '91':
variable objet ou variable de bloc with non définie


pourquoi ça ?

[ouskel'n'or]

Que cherches-tu à faire ? Là, je vois que tu cherches dans deux feuilles.
Regarde les arguments utilisés par find, dans l'aide en ligne.
Tu ne peux chercher qu'une donnée à la fois. Ne serait-ce pas RechercheV que tu veux utiliser
Sinon, pour find, cette syntaxe est correcte :

Code :

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

1
2
3
4
5
6
7
Set Client = Worksheets("Client")
with client.Range("C:C")
     set c = .find(factures.Cells(i, 6), xlValues)
     if not c is nothing then NoLig = c.row
     'ou
     if not c is nothing then cliran = c.offset(0, 5) 'pour avoir la donnée de la colonne K
end with

[zandru]

Merci de ta réponse.

Mais chez moi cela ne marche pas
j'ai supprimé la première ligne de ton code car pour moi client est le codename de ma feuille.
Et sur la ligne du find, j'ai l'erreur 1004 : "impossible de lire la propriété find de la classe range"
je ne sais pas si cela peut t'aider mais j'ai regardé la valeur de xlvalues au moment du plantage et xlvalues = -4163

[zandru]

j'ai résolu mon problème.

voici le code que j'ai utilisé :

Code :

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

1
2
3
4
With client.Range("C:C")
    Set c = .Find(What:=factures.Cells(i, 6), LookIn:=xlValues)
    If Not c Is Nothing Then clistr = client.Cells(c.Row, 1)
End With

Merci pour ton aide