Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ecrire une fonction dans une cellule Excel par VBA;

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion PierreP
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

PierreP

XLDnaute Nouveau
Bonjour à tous,

Je vous pose ma question après pas mal de recherche sur le net, voila (une partie..) de mon problème:
J'écris,par VBA, dans une cellule Excel la fonction suivante:
= IF( AND( (Simulation!R7C17 > 0), (Simulation!R7C16 > 0),( Fleet_test!R2C20 <= Simulation!R7C17)), Simulation!R7C16 + Fleet_test!R2C15, IF( AND( (Simulation!R7C17 > 0), (Simulation!R7C16 > 0),( Fleet_test!R2C20 > Simulation!R7C17)), Simulation!R7C16 + Fleet_test!R2C15 + Fleet_test!R2C20 - Simulation!R7C17, IF( AND( (Simulation!R7C17 > 0),(Simulation!R7C16 = 0),( Fleet_test!R2C20 <= Simulation!R7C17)), Fleet_test!R2C15 , IF( AND( (Simulation!R7C17 > 0), (Simulation!R7C16 = 0),( Fleet_test!R2C20 > Simulation!R7C17)), Fleet_test!R2C15 + Fleet_test!R2C20 - Simulation!R7C17, IF( AND( (Simulation!R7C17 = 0), (Simulation!R7C16 > 0)), Fleet_test!R2C15 + Simulation!R7C16, IF( AND( (Simulation!R7C17 = 0), (Simulation!R7C16 = 0)), Fleet_test!R2C15 + Fleet_test!R2C20 ))))))

Ceci qui correspond à 6 IF imbriqués. J'ai bien vérifié la limite d'excel est de 7 donc c'est bon.
Toutefois, à un autre endroit, j'écris un IF beaucoup plus simple et dans cette cellule, mon IF est traduit en SI et les virgules en point virgule alors que la méthode d'écriture est la même. Je pense donc qu'excel interprete mal ma fonction mais je ne vois pas pourquoi.

Merci de votre aide.

PierreP
 
Trier par date Trier par votes
Re : Ecrire une fonction dans une cellule Excel par VBA;

Si Excel reconnaissait bien ma formule comme fonction, il remplacerait ( à l'affichage en tous cas) le IF => SI, AND=> ET, ','=>';' et RC => LC.
 
Vote positif 0 Vote négatif
Re : Ecrire une fonction dans une cellule Excel par VBA;

Merci pour votre test, de cette manière ça fonctionne chez moi aussi

Donc mon probleme ne vient pas de la...
En fait ma fonction est stockée dans un tableau de string 'mesFonctions' que je vais écrire dans un range:
range(A1:AX).formula = Application.transpose(mesFonctions())

Et dans ces condition ça ne fonctionne pas, alors que
range(A1).formula = mesfonctions(1) fonctionne...

Edit:
Ca a l'air d'etre Application.Transpose qui me pose problème, mais alors pourquoi?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ecrire une fonction dans une cellule Excel par VBA;

Re,
Pour aller plus loin, il faudrait joindre un fichier exemple, ta description ne me permet pas de comprendre exactement comment tu fais.
A+
 
Vote positif 0 Vote négatif
Re : Ecrire une fonction dans une cellule Excel par VBA;

tout d'abord merci de ton aide.

Je ne peux pas posté d'exemple (pro...) mais je vais etre le plus précis possible:

Je crée un type qui contient un tableau de string (en VBA):

Public Type MonType
MyStringArray() as string
end type

Dans MyStringArray j'écris:
MyStringArray(1) = "MyFunction1"
MyStringArray(2) = "MyFunction2"
...

Dans feuille, je selectionne ensuite un range:
set MyRange = range( .cells(x,y), .cells(x + ubound(MonType.MyStringArray) -1 , y)

Et j'y mets mes fonctions:

MyRange.formulaArray = Application.Transpose(MonType.MyStringArray)

En faisant comme ça j'ai une erreur:
"Erreur Automation. L'objet Invoqué s'est déconnecté de ses clients."
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ecrire une fonction dans une cellule Excel par VBA;

Re,
Désolé, je ne suis pas adepte des jeux de pistes (il suffit parfois d'une erreur de déclaration ou de dimentionnement, c'est pourquoi il faut un code complet)
Je ne peux rien faire de plus si tu ne peux pas joindre un petit exemple simplifié
A+
 
Vote positif 0 Vote négatif
Re : Ecrire une fonction dans une cellule Excel par VBA;

Pas de soucis, je comprends bien le truc :/

J'ai fini par trouver un bout d'explication à force de trifouiller mon code:
Application.Transpose ne fonctionne pas si le nombre de caratere dans une case de mon tableau (tableau VBA j'entends) dépasse les 255...

Mais merci quand même!

Pierre
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
448
Lu76Fer
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
586
Phil69970
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
495
piga25
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
472
Leo98
L
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
2 K
AtTheOne
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
444
JJ69
J
F
  • Question Question
Microsoft 365 Ecrire dans une cellule suivant une autre en VBA
Réponses
4
Affichages
771
Francky79
F
J
  • Résolu(e)
XL 2013 VBA - Si cellule contient du texte défini dans une autre cellule
Réponses
6
Affichages
992
JessK
J
L
  • Résolu(e)
Microsoft 365 Ajouter une ligne dans un tableau structuré
Réponses
8
Affichages
3 K
Lune999
L
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
M
  • Résolu(e)
XL 2016 VBA - Condition plage cellule feuille 1 par rapport a une colonne en feuille 2
Réponses
2
Affichages
561
Maxime26
M
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
989
Lolote83
L
J
  • Question Question
Microsoft 365 Une fonction VBA envoie #Valeur!
Réponses
3
Affichages
621
vgendron
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
988
vgendron
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
1 K
VirginieG
V
A
  • Question Question
XL 2013 Utilisation de la fonction "Case" dans VBA
Réponses
12
Affichages
1 K
AnjyD
A
C
  • Résolu(e)
Microsoft 365 Identifier une cellule dans une colonne en fonction d'un numéro identifier dans une autre cellule avec VBA
Réponses
2
Affichages
1 K
Carine35
C
J
  • Question Question
XL 2013 Problème de fonction VBA excel
Réponses
13
Affichages
1 K
patricktoulon
W
  • Question Question
Microsoft 365 Ecrire dans une cellule de tous les fichiers des sous-dossiers avec choix du dossier de base
Réponses
1
Affichages
1 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…