J'ai créé une macro avec une boucle qui me crée plusieurs feuille sur
lesquelles je veux ajouter des renseignents : en A1, je mets un numéro de
compte et en A2 son libelle. J'ai déjà une fonction toutes faites d'un
module OLE en liaison avec mon logiciel de comptabilité pour trouver le
libelle du compte. cette fonction est définie comme suit : libelle(numero de
compte, numero de dossier, date).
Et voila ma ligne de code vba qui doit me renseigner le libelle :
Le problème, c'est que j'ai le message d'erreur "erreur définie par
l'application ou par l'objet". J'ai remarqué que si je ne met qu'un attribut
à ma fonction ("=libelle(A1)"), je n'est pas ce message d'erreur. C'est
juste ma fonction qui ne marche pas après dans la feuille. J'en déduis que
ce sont les ";" de ma fonction qu'il n'aime pas.
Comment faire alors pour qu'il ne prenne pas en compte les ";" dans le
traitement de cette ligne de code?
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
papou
Bonjour Modifie plutôt par : Range("A2").FormulaR1C1 = "=libelle(A1;info!E2;info!B2)" Cordialement Pascal
"mickael lunven" a écrit dans le message de news:
Bonjour à tous.
J'ai créé une macro avec une boucle qui me crée plusieurs feuille sur lesquelles je veux ajouter des renseignents : en A1, je mets un numéro de compte et en A2 son libelle. J'ai déjà une fonction toutes faites d'un module OLE en liaison avec mon logiciel de comptabilité pour trouver le libelle du compte. cette fonction est définie comme suit : libelle(numero de
compte, numero de dossier, date). Et voila ma ligne de code vba qui doit me renseigner le libelle :
Le problème, c'est que j'ai le message d'erreur "erreur définie par l'application ou par l'objet". J'ai remarqué que si je ne met qu'un attribut
à ma fonction ("=libelle(A1)"), je n'est pas ce message d'erreur. C'est juste ma fonction qui ne marche pas après dans la feuille. J'en déduis que ce sont les ";" de ma fonction qu'il n'aime pas. Comment faire alors pour qu'il ne prenne pas en compte les ";" dans le traitement de cette ligne de code?
Merci d'avance.
Bonjour
Modifie plutôt par :
Range("A2").FormulaR1C1 = "=libelle(A1;info!E2;info!B2)"
Cordialement
Pascal
"mickael lunven" <micklunven@yahoo.fr> a écrit dans le message de news:
eBPViGiIEHA.2688@tk2msftngp13.phx.gbl...
Bonjour à tous.
J'ai créé une macro avec une boucle qui me crée plusieurs feuille sur
lesquelles je veux ajouter des renseignents : en A1, je mets un numéro de
compte et en A2 son libelle. J'ai déjà une fonction toutes faites d'un
module OLE en liaison avec mon logiciel de comptabilité pour trouver le
libelle du compte. cette fonction est définie comme suit : libelle(numero
de
compte, numero de dossier, date).
Et voila ma ligne de code vba qui doit me renseigner le libelle :
Le problème, c'est que j'ai le message d'erreur "erreur définie par
l'application ou par l'objet". J'ai remarqué que si je ne met qu'un
attribut
à ma fonction ("=libelle(A1)"), je n'est pas ce message d'erreur. C'est
juste ma fonction qui ne marche pas après dans la feuille. J'en déduis que
ce sont les ";" de ma fonction qu'il n'aime pas.
Comment faire alors pour qu'il ne prenne pas en compte les ";" dans le
traitement de cette ligne de code?
Bonjour Modifie plutôt par : Range("A2").FormulaR1C1 = "=libelle(A1;info!E2;info!B2)" Cordialement Pascal
"mickael lunven" a écrit dans le message de news:
Bonjour à tous.
J'ai créé une macro avec une boucle qui me crée plusieurs feuille sur lesquelles je veux ajouter des renseignents : en A1, je mets un numéro de compte et en A2 son libelle. J'ai déjà une fonction toutes faites d'un module OLE en liaison avec mon logiciel de comptabilité pour trouver le libelle du compte. cette fonction est définie comme suit : libelle(numero de
compte, numero de dossier, date). Et voila ma ligne de code vba qui doit me renseigner le libelle :
Le problème, c'est que j'ai le message d'erreur "erreur définie par l'application ou par l'objet". J'ai remarqué que si je ne met qu'un attribut
à ma fonction ("=libelle(A1)"), je n'est pas ce message d'erreur. C'est juste ma fonction qui ne marche pas après dans la feuille. J'en déduis que ce sont les ";" de ma fonction qu'il n'aime pas. Comment faire alors pour qu'il ne prenne pas en compte les ";" dans le traitement de cette ligne de code?
Merci d'avance.
Vincent.
Bonjour... ou par ceci : Range("A2").FormulaR1C1 = "=libelle(R1C1,info!R2C5,info! R2C2)" ...
Le problème, c'est que j'ai le message d'erreur "erreur définie par
l'application ou par l'objet". J'ai remarqué que si je ne met qu'un
attribut
à ma fonction ("=libelle(A1)"), je n'est pas ce message d'erreur. C'est
juste ma fonction qui ne marche pas après dans la feuille. J'en déduis que
ce sont les ";" de ma fonction qu'il n'aime pas. Comment faire alors pour qu'il ne prenne pas en compte les ";" dans le
traitement de cette ligne de code?
Merci d'avance.
.
mousnynao
Bonjour,
Autre observation ...
Ssi la macro est une [ Sub ], les arguments ne doivent pas être entre parenthèse lorsqu'il y a plus d'un argument, à l'inverse d'une Fonction qui réagit différament!
Range("A2").Value = "=libelle A1;info!E2;info!B2"
Sub libelle (AA As String, BB As String, CC As String) ... End Sub
mousnynao!
-----Message d'origine----- Bonjour... ou par ceci : Range("A2").FormulaR1C1 = "=libelle(R1C1,info!R2C5,info! R2C2)" ....
Le problème, c'est que j'ai le message d'erreur "erreur
définie par
l'application ou par l'objet". J'ai remarqué que si je ne met qu'un
attribut
à ma fonction ("=libelle(A1)"), je n'est pas ce message
d'erreur. C'est
juste ma fonction qui ne marche pas après dans la feuille. J'en déduis que
ce sont les ";" de ma fonction qu'il n'aime pas. Comment faire alors pour qu'il ne prenne pas en compte les ";" dans le
traitement de cette ligne de code?
Merci d'avance.
.
.
Bonjour,
Autre observation ...
Ssi la macro est une [ Sub ], les arguments ne doivent pas
être entre parenthèse lorsqu'il y a plus d'un argument,
à l'inverse d'une Fonction qui réagit différament!
Range("A2").Value = "=libelle A1;info!E2;info!B2"
Sub libelle (AA As String, BB As String, CC As String)
...
End Sub
mousnynao!
-----Message d'origine-----
Bonjour...
ou par ceci :
Range("A2").FormulaR1C1 = "=libelle(R1C1,info!R2C5,info!
R2C2)"
....
Ssi la macro est une [ Sub ], les arguments ne doivent pas être entre parenthèse lorsqu'il y a plus d'un argument, à l'inverse d'une Fonction qui réagit différament!
Range("A2").Value = "=libelle A1;info!E2;info!B2"
Sub libelle (AA As String, BB As String, CC As String) ... End Sub
mousnynao!
-----Message d'origine----- Bonjour... ou par ceci : Range("A2").FormulaR1C1 = "=libelle(R1C1,info!R2C5,info! R2C2)" ....
