Discussion :

[jeanyvesVB]

Bonjour,
Je souhaite faire appel à vous pour répondre à mon problème:
Convertir une formule excel vers du VBA
Voici la formule :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATEDIF(B2;B1;"Y")&SI(DATEDIF(B2;B1;"Y")>1;" ans, ";" an, ")&DATEDIF(B2;B1;"YM") &" mois et "&DATEDIF(B2;B1;"MD")&SI(DATEDIF(B2;B1;"MD")>1;" jours";" jour")

Merci

[jeanyvesVB]

Quelques modifications et informations que je donne.
Convertir cette formule en VBA:

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(E10="";"";DATEDIF(E10;$C$1;"Y")&SI(DATEDIF(E10;$C$1;"Y")>1;" ans, ";" an, ")&DATEDIF(E10;$C$1;"YM") &" mois et "&DATEDIF(E10;$C$1;"MD")&SI(DATEDIF(E10;$C$1;"MD")>1;" jours";" jour"))

E10 = Date_Fin
$C$1 = Date_début
(Aujourdhui())
Merci

[Philippe Tulliez]

Bonjour,
Vous ne précisez pas si c'est écrire la formule dans une plage à l'aide du VBA ou si c'est écrire en VBA l'équivalent de cette formule en ne renvoyant que son résultat.

Si c'est la première solution qui vous intéresse, il suffit d'écrire dans la plage complète la chaîne de caractères de la formule en utilisant la propriété Formula et en traduisant les fonction en anglais.
Pour la traduction et en supposant que la formule est en cellule F10, il suffit d'écrire dans la fenêtre d'Exécution de l'éditeur VBA, l'instruction suivante ? Range("F10").Formula (le point d'interrogation est le raccourci de l'instruction Debug.Print) ce qui donnera =IF(E10="","",DATEDIF(E10,$C$1,"Y")&IF(DATEDIF(E10,$C$1,"Y")>1," ans, "," an, ")&DATEDIF(E10,$C$1,"YM") &" mois et "&DATEDIF(E10,$C$1,"MD")&IF(DATEDIF(E10,$C$1,"MD")>1," jours"," jour"))

Il suffit alors d'écrire en VBA et en supposant que la formule doive être écrite dans les cellules F10 à F50

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("F10:F50").Formula = "Texte de la formule"

Attention cependant que la chaîne de caractères de la formule contient de nombreuses constantes texte entourées de guillemets. Il y a donc lieu de les doubler. Cet exercice n'étant des plus amusant, je me suis abstenu. Il est possible de remplacer ces constantes par un code VBA

A lire pour en savoir plus mes deux billets sur ce sujet

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

[jeanyvesVB]

Bonjour Philippe,
Merci pour ta réponse. Depuis un userform, j'ai entrée des valeurs dans les textBox1(TextDepart= date de naissance), textBox2 la valeur de C1 (dans la feuil1) = (Aujourdhui()), E10 = Colonne E

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim MaLigne As Long
 
MaLigne = ActiveCell.Row 'N° de ligne
      Cells(MaLigne, 5) = FrmDates.TextDepart ' La date de Naissance
      Cells(MaLigne, 6).Formula = "=IF(E10="","",DATEDIF(E10,$C$1,"Y")&IF(DATEDIF(E10,$C$1,"Y")>1," ans, "," an, ")&DATEDIF(E10,$C$1,"YM") &" mois et "&DATEDIF(E10,$C$1,"MD")&IF(DATEDIF(E10,$C$1,"MD")>1," jours"," jour"))"
      Cells(MaLigne, 8) = CDbl(Txt_NbMois) ' Nombre de mois entre la date de départ et la date de fin

Ceci afin d'éviter que les utilisateur efface cette cellule par m'égarde, de cette façon cette formule sera toujours renvoyée dans la cellule
Cordialement

[jeanyvesVB]

Bonjour à tous,
Quelqu'un aurai la solution ?
J'ai une Erreur! en cells(MaLigne, 6).Formula

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim MaLigne As Long
 
MaLigne = ActiveCell.Row 'N° de ligne
 
      Cells(MaLigne, 5) = UserForm1.TextDepart   ' La date de Naissance Range("E")
 ' Range("C1") est la date d'Aujourdhui
      Cells(MaLigne, 6).Formula = "=IF(E10="","",DATEDIF(E10,$C$1,"Y")&IF(DATEDIF(E10,$C$1,"Y")>1," ans, "," an, ")&DATEDIF(E10,$C$1,"YM") &" mois et "&DATEDIF(E10,$C$1,"MD")&IF(DATEDIF(E10,$C$1,"MD")>1," jours"," jour"))"
 
      Cells(MaLigne, 8) = CDbl(Txt_NbMois) ' Nombre de mois entre deux date

[Philippe Tulliez]

Bonjour,
Dans ma réponse, j'ai indiqué qu'il fallait doubler les guillemets mais comme il y en a un paquets, je me suis abstenu de vous écrire la formule complète

Petit exemple simple

La formule dans excel est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV("C090";$A$2:$J$106;2;FAUX

en VBA pour l'écrire dans la cellule N2, ce sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("N2").Formula = "=VLOOKUP(""C090"",$A$2:$J$106,2,FALSE)"