Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur 1004 : impossible lire propriete de worksheetfunction

Erreur 1004 : impossible lire propriete de worksheetfunction

3 réponses
Avatar
Pierre Dumas
Bonjour tout le monde,

En 3 mots comme en 100 :
Pourquoi ca plante ?

J'ai un code tout bete, la premiere msgbox fonctionne, pas
le deuxieme :-(((

Sub TestALaNoix()
Dim mavaleur As String
mavaleur = "papa"
MsgBox (Application.WorksheetFunction.Substitute
(mavaleur, "a", "e"))
MsgBox (Application.WorksheetFunction.Find(mavaleur, "p"))
End Sub

Qu'elle est l'erreur bete que j'ai oublie ?

Merci beaucoup de retarder l'apparition de mes futurs
cheveux blancs.

Pierre
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
Ellimac
Bonjour,

Petite inversion :
MsgBox (Application.Find("p",mavaleur))

Camille

-----Message d'origine-----
Bonjour tout le monde,

En 3 mots comme en 100 :
Pourquoi ca plante ?

J'ai un code tout bete, la premiere msgbox fonctionne,
pas

le deuxieme :-(((

Sub TestALaNoix()
Dim mavaleur As String
mavaleur = "papa"
MsgBox (Application.WorksheetFunction.Substitute
(mavaleur, "a", "e"))
MsgBox (Application.WorksheetFunction.Find(mavaleur, "p"))
End Sub

Qu'elle est l'erreur bete que j'ai oublie ?

Merci beaucoup de retarder l'apparition de mes futurs
cheveux blancs.

Pierre

.



Avatar
Pierre Dumas
J'pensais bien que c'etait un truc tout bete, mais pas
autant que ca :-(((((((((

Mille merci.

-----Message d'origine-----
Petite inversion :
MsgBox (Application.Find("p",mavaleur))



Pierre

Avatar
gilbert
Bonjour

Ne serait-ce pas cela ;-)))

Sub TestALaNoix()
Dim mavaleur As String
mavaleur = "papa"
MsgBox (Application.WorksheetFunction.Substitute(mavaleur, "a", "e"))
MsgBox (Application.WorksheetFunction.Find("p", mavaleur))
End Sub

@++


--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
"Pierre Dumas" a écrit dans le message
de news: 10d0701c3bf08$8b779760$
Bonjour tout le monde,

En 3 mots comme en 100 :
Pourquoi ca plante ?

J'ai un code tout bete, la premiere msgbox fonctionne, pas
le deuxieme :-(((

Sub TestALaNoix()
Dim mavaleur As String
mavaleur = "papa"
MsgBox (Application.WorksheetFunction.Substitute
(mavaleur, "a", "e"))
MsgBox (Application.WorksheetFunction.Find(mavaleur, "p"))
End Sub

Qu'elle est l'erreur bete que j'ai oublie ?

Merci beaucoup de retarder l'apparition de mes futurs
cheveux blancs.

Pierre