Créer une fonction

Version imprimable

Voir 40 message(s) de cette discussion en une page

MarcleG après test
le code retournes #VALEUR
la modif

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function etiquetteDPE2(Ep As Range) As String
Dim chaine As String
'Dim couleur As Byte
With Ep
        Select Case .Value
                Case Is <= 80
                        chaine = "A"
    '                    couleur = 10
                Case Is <= 120
                        chaine = "B"
     '                   couleur = 50
                Case Is <= 180
                        chaine = "C"
      '                  couleur = 43
                Case Is <= 230
                        chaine = "D"
       '                 couleur = 44
                Case Is <= 330
                        chaine = "E"
        '                couleur = 45
                Case Is <= 450
                        chaine = "F"
         '               couleur = 46
                Case Else
                        chaine = "G"
          '              couleur = 3
        End Select
        '.Interior.ColorIndex = couleur
End With
etiquetteDPE2 = chaine
'MsgBox etiquetteDPE2
End Function

marche à l'affichage de la lettre

08/08/2013, 14h41
MarcelG

Daranc,

Quelle ligne de code dans MON classeur renvoie #VALEUR.
Encore une fois, je n'apelle pas la fonction par "="
Pourrais-tu ouvrir le classeur que j'ai joint, et activer le bouton de commande.
Ensuite m'indiquer la ligne de code en erreur.

Pour rappel, notre ami Félix voulait ue fonction.
08/08/2013, 14h47
EngueEngue

Marcel, l'ami felix voulait une fonction avec un égal... on sait bien qu'un sub peut appeler une méthode.

Cependant comme dit précédemment et comme d'explique Daranc, une fonction appelée depuis le classeur ne peut pas appeler une méthode.
08/08/2013, 14h52
NVCfrm

Salut à tous,
je prends la discuss au vol.
Marcel, le prototype de cette fonction est censée renvoyer une valeur String. Function etiquetteDPE2(Ep As Range) As String.
La fonction appelée dans une Sub réalisera correctement l'instruction de mise en forme.
Par contre appelée dans une cellule, l'interface est automatiquement verrouillé et n'est accessible à la fonction qu'en lecture. Toute instruction d'affectation de l'interface sera court-circuité.
08/08/2013, 15h02
MarcelG

Salut,

Merci pour ton intervention.

Je n'ai pas bien compris l'aspect technique de ton post.

Une fonction peut-elle intégrer une méthode. Réponse : Oui.

Bien entendu, je suis d'accord pour dire que le propre d'une fonction est de retourner une valeur, quelle qu'en soit la nature, numérique ou chaîne.

Ce que je ne comprends plus désormais, c'est le but recherché par Félix.
Informer une autre cellule de la lettre "A" ou "B" ou "G" en fonction de la cellule initiale?...

Si la fonction doit retourner une valeur et donc être appelée par un signe "=", alors oui il faut déclarer le type de valeur à retourner.
08/08/2013, 15h08
EngueEngue

Colorier les cellules en fonction de la valeur contenue dans une cellule et y afficher la lettre A B C D et ce pour n'importe quelle cellule donc avec un "=", une function de type worksheet (qui n'admet pas de méthode), et une MFC.
08/08/2013, 15h14
NVCfrm

En reprenant la lecture au début du fil, j'ai trouvé au #5 ceci: "...@ Philippe Tulliez:
Cette fonction doit etre contenu dans une case dans une feuille excel
Et en fait dans la cellule, j'ai un #VALEUR!..."
08/08/2013, 15h15
MarcelG

Citation:

une function de type worksheet

Jamais entendu parler!

Citation:

(qui n'admet pas de méthode

)

J'aurai l'occasion de citer des codes de développeurs plus chevronnés que moi (il y en a beaucoup) pour prouver le contraire.

Citation:

, et une MFC

Que viennent faire ici les mises en formes conditionnelles?

Au passage, je remarque que personne n'a testé mon classeur. Pourquoi?
08/08/2013, 15h36
EngueEngue

MFC : Pour colorier les cellules si on a un A B C D...

J'ai testé ton classeur, mais tu appelles ta fonction depuis un sub, chose qui est inutile quoi.. autant mettre tout dans ton sub et mettre une ligne

Code:

Ep=range("C10")

En utilisant des API on doit pouvoir le faire. Mais sans, non. Je serai ravi que tu me prouves le contraire.
08/08/2013, 17h08
Philippe Tulliez

Bonjour,
En voyant le code de la fonction en tout début de discussion, j'ai posé la question

Citation:

Est-ce que cette fonction doit être utilisée comme fonction personnalisée dans Excel ou simplement comme fonction invoquée depuis un code VBA ?

Parce-qu'il est impossible dans une fonction personnalisée (utilisée depuis une cellule d'excel) de modifier une autre propriété de la cellule que sa valeur (valeur renvoyée par la fonction). Donc par exemple pas question de lui donner une couleur.
Il n'est pas possible non plus d'utiliser une méthode, d'appeler une sub etc...
Par contre, une fonction utilisée depuis VBA peut parfaitement appeler une SUB ou utiliser une ou plusieurs méthodes comme par exemple SORT, AdvancedFilter etc...
Pour comprendre l'utilisation des fonctions personnalisées dans Excel, je te conseille la lecture de ce didacticiel Les fonctions personnelles dans Excel
On peut aussi utiliser un INPUTBOX dans une fonction personnalisée
Bien que je n'en ait pas encore vu l'intérêt et seulement pour le FUN, voici un petit exemple.

Code:

etiquetteDPE2 = chaine & " " & InputBox("Entrez une donnée")
08/08/2013, 17h36
felixismad

Bon avec beaucoup de bidouillage, ça fonctionne!!

Merci encore pour vos conseils,

bonne soirée,
08/08/2013, 20h33
nibledispo

créé une fonction

Bonsoir Felixismad,

Souviens-toi que tu n'es pas seul et que d'autres personnes, qui même si elles ne s’immiscent pas dans la discussion faute de connaissances, peuvent être néanmoins intéressées par le sujet.

je regrette :
-que tu n'aies pas cru utile de joindre ton code finalisé à ta conclusion un peu brutale avec éventuellement quelques explications sur ce que tu as retenu.
-que tu n'aies pas laissé aller à son terme un débat fort intéressant sur les limites d'une function.

je reste sur ma faim.

cordialement.
16/08/2013, 06h54
Invité

Bonjours,

Je suis tombé un peu par hasard sur ce sujet hier soir en parcourant le forum moi aussi un peu comme NVCfrm.

Il est possible de modifier la couleur depuis la feuille, mais il ne faut pas sélectionner la barre de formule puis faire Entrer tout simplement mais lancer le calcul/formule depuis le fx à coté du Ok (Entrer).

Puisqu'une erreur est créer, une gestion d'erreur suffit à remettre la bonne valeur dans la cellule. Ça reste du bidouillage aussi, mais c'est vraiment uniquement pour donner une méthode fonctionnant depuis une feuille que je met ce message.

P.S.: A mon avis, ça a un rapport avec les thread. Si on lance une procédure et qu'on accède à la barre de formule, Excel peut soit arrêter la procédure en cours de route (c'est plutôt bien) ou soit planter (pas terrible). Je pense que c'est la raison pour laquel on ne peut pas être à la fois dans la barre de formule et simultanément lancer une procédure qui ferait potentiellement planter Excel. Enfin, c'est mon hypothèse disons.
Si j'utilise un API même en simple threading et que j'accède à un object de la feuille comme un bouton CommandButton par clique gauche ou à la barre de formule, ça plante. Mais sans API, dans le meilleur des cas, par sécurité, la procédure s'arrêterai simplement pour pouvoir ensuite accèder à la barre de formule ou autre.
Microsoft n'a très certainement pas voulu donner la possibilité de faire planter Excel, surtout que Excel est super stable de base lorsqu'il est utilisé sans VBA et surtout sans API.
-------------------------------------------------------------------------------------------------------------------

Citation:

Envoyé par nibledispo

Bonsoir Felixismad,

Souviens-toi que tu n'es pas seul et que d'autres personnes, qui même si elles ne s’immiscent pas dans la discussion faute de connaissances, peuvent être néanmoins intéressées par le sujet.

je regrette :
-que tu n'aies pas cru utile de joindre ton code finalisé à ta conclusion un peu brutale avec éventuellement quelques explications sur ce que tu as retenu.
-que tu n'aies pas laissé aller à son terme un débat fort intéressant sur les limites d'une function.

je reste sur ma faim.

cordialement.

+1,
C'est moyen de prendre sans donner.
16/08/2013, 11h20
nibledispo

créé une fonction

Bonjour nouveau2,

Il me semble que lorsqu'on reçoit, la moindre des corrections vis à vis de ce qui ont donné est de finaliser le post avec la solution retenue.
En la circonstance c'est felixismad qui à reçu et non moi.

Je n'interviens que si je sais ou crois savoir. Ce qui serait moyen serait de donner n'importe quoi uniquement pour faire l'intelligent.

Toi aussi tu as reçu de tes profs: Que leur as-tu donné d'autre en retour que ta considération ?

cordialement.

Citation:

En la circonstance c'est felixismad qui à reçu et non moi.

Je sais bien, sinon, je ne t'aurais mis +1, mais plutôt -1.

C'est aussi pour ça que j'ai répondu en donnant une solution partielle pour toi mais aussi pour les autres (ceux qui aurai peut être aimer voir une solution).

Sinon, pour le reste, je n'ai pas compris.

--------------------------------------------------------------------------------------------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Function etiquetteDPE2v2(ByVal Ep As Range) As String
 
Dim chaine As String
Dim Couleur As Byte
 
With Ep
 
        Select Case .Value
 
                Case Is <= 80
 
                        chaine = "A"
                        Couleur = 10
 
                Case Is <= 120
 
                        chaine = "B"
                        Couleur = 50
 
                Case Is <= 180
 
                        chaine = "C"
                        Couleur = 43
 
                Case Is <= 230
 
                        chaine = "D"
                        Couleur = 44
 
                Case Is <= 330
 
                        chaine = "E"
                        Couleur = 45
 
                Case Is <= 450
 
                        chaine = "F"
                        Couleur = 46
 
                Case Else
 
                        chaine = "G"
                        Couleur = 3
 
        End Select
 
End With
 
On Error GoTo GestionErreur
etiquetteDPE2v2 = chaine
Call Coulv2(Ep, Couleur)
 
GestionErreur:
 
End Function

Code:

1
2
3
Sub Coulv2(Ep As Range, Couleur As Byte)
Ep.Interior.ColorIndex = Couleur
End Sub

En appuyant sur fx plutôt que sur Enter, normalement, ça devrai marcher. J'ai repris le programme de MarcelG, mais avec les autres fonctions, il n'y a pas de raison que ça ne marche pas.
Donc c'est pas vraiment LA solution puisqu'il ne faut pas être dans la barre de formule quand la Macro tourne (le fx désélectionne temporairement la barre de formule).

Voir 40 message(s) de cette discussion en une page