Déclaration d'objet Excel 2000

Le
Al
Bonjour,
Qu'est ce qui ne va pas dans ce code ?.
Ca ne marche pas..

Dim str As Variant
Dim myrange As Range

Set myrange = Worksheets(1).Range("A1:F500")

With myrange
str = .Find("Cine", , , , , xlNext, True)
End With

-> Erreur 91 ? (Excel 2000)



Merci pour vos réponses à tous
Al
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4587671
Bonjour,

Str est un nom de fonction.

JB

On 16 juin, 13:29, "Al"
Bonjour,
Qu'est ce qui ne va pas dans ce code ?....
Ca ne marche pas.....

Dim str As Variant
Dim myrange As Range

Set myrange = Worksheets(1).Range("A1:F500")

With myrange
str = .Find("Cine", , , , , xlNext, True)
End With

----> Erreur 91 ? (Excel 2000)

Merci pour vos réponses à tous
Al


FFO
Le #4587661
Salut Al

Essai de mettre au lieu de :

str = .Find("Cine", , , , , xlNext, True)

plutôt :

Set str = .Find("Cine", , , , , xlNext, True)

Celà devrait mieux convenir

Dis moi !!!


Bonjour,
Qu'est ce qui ne va pas dans ce code ?....
Ca ne marche pas.....

Dim str As Variant
Dim myrange As Range

Set myrange = Worksheets(1).Range("A1:F500")

With myrange
str = .Find("Cine", , , , , xlNext, True)
End With

----> Erreur 91 ? (Excel 2000)



Merci pour vos réponses à tous
Al





JB
Le #4587641
Set str = [A:A].Find("Cine", , , , , xlNext, True)

JB

On 16 juin, 14:14, JB
Bonjour,

Str est un nom de fonction.

JB

On 16 juin, 13:29, "Al"


Bonjour,
Qu'est ce qui ne va pas dans ce code ?....
Ca ne marche pas.....

Dim str As Variant
Dim myrange As Range

Set myrange = Worksheets(1).Range("A1:F500")

With myrange
str = .Find("Cine", , , , , xlNext, True)
End With

----> Erreur 91 ? (Excel 2000)

Merci pour vos réponses à tous
Al- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme