Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Déclaration d'objet Excel 2000

Déclaration d'objet Excel 2000

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Str est un nom de fonction.

JB

On 16 juin, 13:29, "Al" wrote:
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


Avatar
FFO
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





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

JB

On 16 juin, 14:14, JB wrote:
Bonjour,

Str est un nom de fonction.

JB

On 16 juin, 13:29, "Al" wrote:



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 -