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

VBA insérer une formule dans une cellule, avec, comme parametre, le résultat fonction

  • Initiateur de la discussion Initiateur de la discussion burzcairwen
  • 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 !

B

burzcairwen

Guest
Bonjour,

Je dois insérer, en vba, dans une cellule une formule, comme ceci :
.Range("V" & LastRow).FormulaLocal = "=DATEDIF(G12;"31.01.2015";""d"")"

Le problème est que le 31.01.2015 provient du résultat d'une fonction

Dim d As Variant
d = lastDate("10.01.2015")

Function lastDate(LaDate As Variant) As Variant
If IsDate(LaDate) Then
lastDate = DateSerial(Year(Date), month(Date) + 1, 1) - 1
Else
lastDate = Null
End If
End Function

Jusque là tout va bien, le fonction me renvoie bien, dans cet exemple, le 31.01.2015

Par contre, quand je passe en paramètre le résultat de ma fonction, soit
.Range("V" & LastRow).FormulaLocal = "=DATEDIF(G12;" & d & ";""d"")
cela provoque une erreur car le paramètre (31.01.2015) n'est pas entre guillemet
(.Range("V" & LastRow).FormulaLocal = "=DATEDIF(G12;31.01.2015;""d""))

Je ne sais pas comment faire pour mettre ce paramètre entre guillemet.
.Range("V" & LastRow).FormulaLocal = "=DATEDIF(G12;"" & d & "";""d"") ne fonctionne pas
et d = "" & lastDate(start_date) & "" ne fonctionne pas non plus.

Pouvez-vous m'aider...
Merci beaucoup
 
Re : VBA insérer une formule dans une cellule, avec, comme parametre, le résultat fon

Bonjour


A essayer:

.Range("V" & LastRow).FormulaLocal = "=DATEDIF(G12;""" & d & """;""d"")"

A+
 
Re : VBA insérer une formule dans une cellule, avec, comme parametre, le résultat fon

Bonjour,

Super merci beaucoup !! ça fonctionne parfaitement !!
merci et bon dimanche !
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
Réponses
12
Affichages
1 K
A_dje
A
M
Réponses
4
Affichages
933
mimich_88
M
M
Réponses
16
Affichages
2 K
Mathieu Régis
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…