Pb avec find

D

dixit

XLDnaute Impliqué

• 22 Mai 2007

• #2

Re : Pb avec find

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mai 2007

• #3

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"

@+

 

Vote positif 0 Vote négatif

J

jul51

Guest

• 22 Mai 2007

• #4

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:

Code:

Private Sub ComboBox3_Change()
    FF = ComboBox3
End Sub

J'ai testé ce code et idem:

Code:

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mai 2007

• #5

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 ?

@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Mai 2007

• #6

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

 

Pièces jointes

• Jul51.xls

  27.5 KB · Affichages: 45

Vote positif 0 Vote négatif

J

jul51

Guest

• 22 Mai 2007

• #7

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?

 

Vote positif 0 Vote négatif

J

jul51

Guest

• 22 Mai 2007

• #8

Re : Pb avec find

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Mai 2007

• #9

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mai 2007

• #10

Re : Pb avec find

Re, bonsoir PierreJean

attention aussi à ta cellule active

Code:

After:=ActiveCell

a remplacer peut être par :

Code:

After:=Range("F8")

@+

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

 

Dernière édition: 22 Mai 2007

Vote positif 0 Vote négatif

J

jul51

Guest

• 22 Mai 2007

• #11

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mai 2007

• #12

Re : Pb avec find

Re

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

Code:

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

@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Mai 2007

• #13

Re : Pb avec find

re

avec la très judicieuse remarque de Pierrot

cette macro

Code:

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)

 

Vote positif 0 Vote négatif

D

dixit

XLDnaute Impliqué

• 22 Mai 2007

• #14

Re : Pb avec find

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

 

Pièces jointes

• vbaFIND.xls

  22 KB · Affichages: 50

Vote positif 0 Vote négatif

J

jul51

Guest

• 23 Mai 2007

• #15

Re : Pb avec find

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

 

Vote positif 0 Vote négatif