Pb avec find

[jul51]

Rehello à tous,

Voila je cherche à utiliser la fonction find avec une variable:

Set moler = Range("F9:F150").Find(What:=FF, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

FF étant une variable de type texte déclaré en public as string.
moler étant un objet déclaré en public que j'utilise ensuite.

J'obtient une erreur d'incompatibilité de type?


Meme en le modifiant, impossible de faire cette recherche à partir d'une variable.

Merci de votre aide.

 

[dixit]

Re : Pb avec find

bonjour,
quel type d'information renvoie Find ?
si moler est un objet, il faut certainement un objet.

 

[Pierrot93]

Re : Pb avec find

Bonjour Jul, Dixit

en complément de ce que dit Dixit, il faut que ta variable "moler" soit un objet "Range", c'est ce que renvoie la méthode "Find"

@+

 

[jul51]

Re : Pb avec find

Alors j'ai essayé de déclarer FF as object.

J'obtient aussitot une erreur lors de l'affectation de FF à sa valeur:

Private Sub ComboBox3_Change()
    FF = ComboBox3
End Sub

J'ai testé ce code et idem:

Range("F9:F150").Find(What:=FF, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

Et find me renvoie seulement l'erreur d'incompatibilité de type.

 

[Pierrot93]

Re : Pb avec find

Re

je dirais que "FF" doit être de type string, as tu vérifié par l'execution pas à pas que tes variables étaient bien valorisées ?

@+

 

[pierrejean]

Re : Pb avec find

bonjour Jul51

Salut dixit

Voyez le fichier joint

moler est bien un objet (Range) et c'est obligatoire !!

FF est un string mais ce pourrait etre tout ce que l'on peut trouver dans une plage de cellules (Integer , long ,booleen etc......)

et ça fonctionne !!!

edit:

Salut Pierrot

avais pas rafraichi

 

[jul51]

Re : Pb avec find

FF est actuellement déclaréas string et mes variable sont effectivement déclarées.

Par contre, je ne sais pas comment déclarer que object est range?

 

[jul51]

Re : Pb avec find

Merci pierre jean mais le serveur du boulot interdit le techargement de macro......

 

[pierrejean]

Re : Pb avec find

re

il n'est même pas necessaire de declarer moler en string

par contre si FF est mis a sa valeur dans un Userform il peut etre bon (selon ou est utilisé le Find) de le declarer en variable public

voila la macro

Sub test()
'Dim moler As Range
Dim FF As String
FF = "2"
Set moler = Range("F9:F150").Find(What:=FF, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
MsgBox ("L'adresse ou est FF (2) est: " & moler.Address(0, 0))
End Sub

 

[Pierrot93]

Re : Pb avec find

Re, bonsoir PierreJean

attention aussi à ta cellule active

After:=ActiveCell

a remplacer peut être par :

After:=Range("F8")

@+

Edition remplacer F9 par F8 puisque recherche apès cette cellule.

 

[jul51]

Re : Pb avec find

Merci de l'info pierrot.

Par contre, j'ai tester la macro et sous mon excel 2003, il m'indique toujours incompatibilité de type??

J'ai ajouté la macro dans ton fichier pierre jean, le bouton appelle une macro dans un module et il indique toujours la meme erreur?

 

[Pierrot93]

Re : Pb avec find

Re

essaye comme ceci, macro de PierreJean, sans le "activcell" :

Sub test()
Dim moler As Range
Dim FF As String
FF = "2"
Set moler = Range("F8:F150").Find(What:=FF, After:=Range("F8"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
MsgBox ("L'adresse ou est FF (2) est: " & moler.Address(0, 0))
End Sub

@+

 

[pierrejean]

Re : Pb avec find

re

avec la très judicieuse remarque de Pierrot

cette macro

Dim moler As Range
Dim FF As String
FF = "2"
Set moler = Range("F9:F150").Find(What:=FF, After:=Range("F9"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
MsgBox ("L'adresse ou est FF (2) est: " & moler.Address(0, 0))

fonctionne sous Excel 2000 et je serais surpris qu'elle ne fonctionne pas sous 2003 (mais je peux pas le tester)

 

[dixit]

Re : Pb avec find

re
j'ai fait un essai simple dans le fichier joint qui sera peut-être utile. (Excel 2000)

 

[jul51]

Re : Pb avec find

Merci de votre aide, effectivement find fonctionne avec range("F9").