[E-07] Inserver de nombre dans la ligne de commande

Version imprimable

12/03/2009, 14h30
law56100

[E-07] Inverser de nombre dans la ligne de commande

Bonjour

j'ai une fonction qui permet de calculer la somme des comptes sélectionner.

Voici la ligne de commande
fx=CSolde(ComptesDebut,ComptesFin)

Si l'utilisateur met fx=CSolde(1,5) cela fonctionne
Si l'utilisateur met fx=CSolde(5,1) cela fonctionne osi mais j'aimerai inverser et met la ligne de commande comme ceci fx=CSolde(1,5) comme ça lorsqu'il clique sur la cellule il voit bien la bonne commande.

est possible?

cordialement Law56100
12/03/2009, 14h43
drakkar_agfa
Bonjour,

Dans ta function,
ex. Function CSolde(a in interger, b as interger)

Tu peux ajouter ceci au début.
Code:

1 2 3 4 5 6 Dim iBuffer As Integer If a > b Then iBuffer = a a = b b = iBuffer End If
Après, tu peux continuer ton exécution sans problème!
12/03/2009, 15h23
law56100

oui je sais, c'est de que j'ai fais. Mais l'utilisateur voit toujours
fx=CSolde(a , b) et moi j'aimerai qu'il voit fx=CSolde(b, a)
12/03/2009, 15h40
drakkar_agfa

Ici, parles-tu d'une fonction en VBA? (du code) ou dans une formule pour une cellule?

Où va être afficher

Citation:

Mais l'utilisateur voit toujours
fx=CSolde(a , b) et moi j'aimerai qu'il voit fx=CSolde(b, a)

Dans la barre de formule?

N'est-il pas assez intelligent pour savoir quel est le plus petit et le plus grand?
12/03/2009, 15h55
law56100

dans la formule de la cellule
12/03/2009, 16h03
drakkar_agfa

Je m'en excuse, pour ce qui est des formules, je ne pourrais dire comment changer ceci.

Peut-être avec un code VBA qui utilise le .Formula, qui évalue lequel des paramêtres est plus grand et réécris la formule de le bon ordre.

Est-ce vraiment nécessaire que l'utilisateur voit le plus petit en premier?

P.S. Comment fait-on pour créer sa propre formule (pour les cellules)?
12/03/2009, 16h06
aalex_38

Citation:

P.S. Comment fait-on pour créer sa propre formule (pour les cellules)?

Bonne question, je ne savais pas et en regardant dans les formules/personalisée
oh surprise mes fonctions apparaissent :D
12/03/2009, 16h12
drakkar_agfa

J'ai beau chercher mais où ce trouve "dans les formules/personalisée"?? 8O
12/03/2009, 16h25
law56100

Citation:

Bonne question, je ne savais pas et en regardant dans les formules/personalisée
oh surprise mes fonctions apparaissent

Attention : Il y a juste les fonctions qui sont déclarer "Public Function..."
12/03/2009, 16h31
drakkar_agfa

Hey merci, ça fonctionne!

fin du P.S. :mrgreen:
12/03/2009, 18h55
law56100

alors j'ai ma cellule qui est égal à fx =CSolde(40110000638;40110000239;0)
donc ActiveCell.FormulaLocal = "=CSolde(40110000638;40110000239;0)"
et j'aimerai lui passer cette ligne de commande
ActiveCell.FormulaLocal = "=CSolde(40110000239;40110000638;0)"
mais cela ne fonctionne pas, ca plante ???

peut être en surimant la formule mais je ne sais pas comment faire
12/03/2009, 19h32
drakkar_agfa

Utilise ceci pour vider la cellule

Code:

ActiveCell.ClearContents