Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante : =div(A1) en supposant que A1 = 123 Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de a écrit dans le message de news:
Comment dois je définir les arguments pour que la fonction ne retoune pas juste qu'une seule valeur mais plusieurs voir un tableau
merci
Bonjour Patrice,
Voici un petit exemple du Vendredi qui ne sert qu'à illustrer le principe
Supposons que tu as 3 digits et que tu veuilles les extraire séparément pour les afficher dans 3 cellules séparées
'--------------------------------
Function Div(rg As Range)
Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante :
=div(A1) en supposant que A1 = 123
Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de toulouser@discussions.microsoft.com> a écrit dans le message de news:
A4EEA272-4B9B-4677-B720-9D699CEA7A89@microsoft.com...
Comment dois je définir les arguments pour que la fonction ne retoune pas
juste qu'une seule valeur mais plusieurs voir un tableau
Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante : =div(A1) en supposant que A1 = 123 Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de a écrit dans le message de news:
Comment dois je définir les arguments pour que la fonction ne retoune pas juste qu'une seule valeur mais plusieurs voir un tableau
merci
patrice de toulouser
bonsoir micdenis
ton example fonctionne bien par contre si je le refais avec des opérations cela ne marche pas et génère une erreur de compilation example : Public Function somm(elm1 As Single, elm2 As Single)
somm(1) = elm1 + elm2 somm(2) = elm1 - elm2
End Function
Bonjour Patrice,
Voici un petit exemple du Vendredi qui ne sert qu'à illustrer le principe
Supposons que tu as 3 digits et que tu veuilles les extraire séparément pour les afficher dans 3 cellules séparées
'-------------------------------- Function Div(rg As Range)
Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante : =div(A1) en supposant que A1 = 123 Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de a écrit dans le message de news:
Comment dois je définir les arguments pour que la fonction ne retoune pas juste qu'une seule valeur mais plusieurs voir un tableau
merci
bonsoir micdenis
ton example fonctionne bien par contre si je le refais avec des opérations
cela ne marche pas et génère une erreur de compilation example :
Public Function somm(elm1 As Single, elm2 As Single)
somm(1) = elm1 + elm2
somm(2) = elm1 - elm2
End Function
Bonjour Patrice,
Voici un petit exemple du Vendredi qui ne sert qu'à illustrer le principe
Supposons que tu as 3 digits et que tu veuilles les extraire séparément pour les afficher dans 3 cellules séparées
'--------------------------------
Function Div(rg As Range)
Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante :
=div(A1) en supposant que A1 = 123
Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de toulouser@discussions.microsoft.com> a écrit dans le message de news:
A4EEA272-4B9B-4677-B720-9D699CEA7A89@microsoft.com...
Comment dois je définir les arguments pour que la fonction ne retoune pas
juste qu'une seule valeur mais plusieurs voir un tableau
ton example fonctionne bien par contre si je le refais avec des opérations cela ne marche pas et génère une erreur de compilation example : Public Function somm(elm1 As Single, elm2 As Single)
somm(1) = elm1 + elm2 somm(2) = elm1 - elm2
End Function
Bonjour Patrice,
Voici un petit exemple du Vendredi qui ne sert qu'à illustrer le principe
Supposons que tu as 3 digits et que tu veuilles les extraire séparément pour les afficher dans 3 cellules séparées
'-------------------------------- Function Div(rg As Range)
Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante : =div(A1) en supposant que A1 = 123 Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de a écrit dans le message de news:
Comment dois je définir les arguments pour que la fonction ne retoune pas juste qu'une seule valeur mais plusieurs voir un tableau
merci
Ange Ounis
Je ne pense pas que tu peux affecter les résultats attendus un par un. Tu dois affecter à ta fonction son résultat sous forme d'un tableau "rempli". C'est pour cette raison que tu as besoin d'une variable tableau intermédiaire. Par ailleurs, par défaut, les tableaux sont de base 0 (à moins que tu n'aies déclaré Option Base 1 en tête de module).
'***************** Public Function somm(elm1 As Single, elm2 As Single) Dim Arr(1) Arr(0) = elm1 + elm2 Arr(1) = elm1 - elm2 somm = Arr End Function
Sub essai() MsgBox somm(20, 30)(1) End Sub '*****************
---------- Ange Ounis ----------
bonsoir micdenis
ton example fonctionne bien par contre si je le refais avec des opérations cela ne marche pas et génère une erreur de compilation example : Public Function somm(elm1 As Single, elm2 As Single)
somm(1) = elm1 + elm2 somm(2) = elm1 - elm2
End Function
Bonjour Patrice,
Voici un petit exemple du Vendredi qui ne sert qu'à illustrer le principe
Supposons que tu as 3 digits et que tu veuilles les extraire séparément pour les afficher dans 3 cellules séparées
'-------------------------------- Function Div(rg As Range)
Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante : =div(A1) en supposant que A1 = 123 Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de a écrit dans le message de news:
Comment dois je définir les arguments pour que la fonction ne retoune pas juste qu'une seule valeur mais plusieurs voir un tableau
merci
Je ne pense pas que tu peux affecter les résultats attendus un par un. Tu dois
affecter à ta fonction son résultat sous forme d'un tableau "rempli". C'est pour
cette raison que tu as besoin d'une variable tableau intermédiaire. Par
ailleurs, par défaut, les tableaux sont de base 0 (à moins que tu n'aies déclaré
Option Base 1 en tête de module).
'*****************
Public Function somm(elm1 As Single, elm2 As Single)
Dim Arr(1)
Arr(0) = elm1 + elm2
Arr(1) = elm1 - elm2
somm = Arr
End Function
Sub essai()
MsgBox somm(20, 30)(1)
End Sub
'*****************
----------
Ange Ounis
----------
bonsoir micdenis
ton example fonctionne bien par contre si je le refais avec des opérations
cela ne marche pas et génère une erreur de compilation example :
Public Function somm(elm1 As Single, elm2 As Single)
somm(1) = elm1 + elm2
somm(2) = elm1 - elm2
End Function
Bonjour Patrice,
Voici un petit exemple du Vendredi qui ne sert qu'à illustrer le principe
Supposons que tu as 3 digits et que tu veuilles les extraire séparément pour les afficher dans 3 cellules séparées
'--------------------------------
Function Div(rg As Range)
Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante :
=div(A1) en supposant que A1 = 123
Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de toulouser@discussions.microsoft.com> a écrit dans le message de news:
A4EEA272-4B9B-4677-B720-9D699CEA7A89@microsoft.com...
Comment dois je définir les arguments pour que la fonction ne retoune pas
juste qu'une seule valeur mais plusieurs voir un tableau
Je ne pense pas que tu peux affecter les résultats attendus un par un. Tu dois affecter à ta fonction son résultat sous forme d'un tableau "rempli". C'est pour cette raison que tu as besoin d'une variable tableau intermédiaire. Par ailleurs, par défaut, les tableaux sont de base 0 (à moins que tu n'aies déclaré Option Base 1 en tête de module).
'***************** Public Function somm(elm1 As Single, elm2 As Single) Dim Arr(1) Arr(0) = elm1 + elm2 Arr(1) = elm1 - elm2 somm = Arr End Function
Sub essai() MsgBox somm(20, 30)(1) End Sub '*****************
---------- Ange Ounis ----------
bonsoir micdenis
ton example fonctionne bien par contre si je le refais avec des opérations cela ne marche pas et génère une erreur de compilation example : Public Function somm(elm1 As Single, elm2 As Single)
somm(1) = elm1 + elm2 somm(2) = elm1 - elm2
End Function
Bonjour Patrice,
Voici un petit exemple du Vendredi qui ne sert qu'à illustrer le principe
Supposons que tu as 3 digits et que tu veuilles les extraire séparément pour les afficher dans 3 cellules séparées
'-------------------------------- Function Div(rg As Range)
Dans ta feuille de calcul, tu sélectionnes 3 cellules (colonne) et tu entres la formule suivante : =div(A1) en supposant que A1 = 123 Et tu valides ta formule par Maj + Ctrl + Enter
Salutations!
"patrice de toulouser" <patrice de a écrit dans le message de news:
Comment dois je définir les arguments pour que la fonction ne retoune pas juste qu'une seule valeur mais plusieurs voir un tableau
merci
jps
l'essentiel est qu'on se comprend... jps
"Ange Ounis" a écrit dans le message de news:
Je ne pense pas que tu peux affecter les résultats...
l'essentiel est qu'on se comprend...
jps
"Ange Ounis" <nospam@nospam> a écrit dans le message de
news:u1mdBCmmFHA.1088@TK2MSFTNGP14.phx.gbl...
Je ne pense pas que tu peux affecter les résultats...
