Discussion :

[patricktoulon]

bonjour a tous

voila un exemple de conversion de la formule des cellules en colonne "C"
peut -on ameliorer le code???

Code :

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

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
 
Sub Traduire_la_formule()
'EXEMPLE DE FORMULE
'=IF(TODAY()>=DATE(2011,12,15),$N$4,"")
 
    For Each cel In Range("c5:c35")    '.Cells
        letexto = cel.Formula
 
        Select Case Left(cel.Formula, 18)
 
        Case "=IF(TODAY()>=DATE("
            debut = "if date>= "
 
            'si il y a des dollards sa veut dire que se sont des adresses de cellulessinon se sont certainement des valeurs numerique ou texte
            resultat_si_vrai = IIf(InStr(letexto, "$"), Split(letexto, ",")(3) & ".value", Split(letexto, ",")(3))
 
 
            datedecomparaison = Replace(Split(Split(letexto, "(")(3), ")")(0), ",", "/")
            letexte = letexte & debut & datedecomparaison & "  then " & Replace(cel.Address, "$", "") & ".value  = " & Replace(resultat_si_vrai, "$", "") & vbCrLf
        End Select
 
        Debug.Print letexte
    Next
    MsgBox letexte
    resultat_si_vrai = ""
    datedecomparaison = ""
    letexte = ""
 
End Sub

merci pour le retour

au plaisir

[Jean-Philippe André]

salut,

en dehors d'une éventuelle amélioration du code, il faut essayer de déclarer tes variables

L'idée est bonne, dans quel cadre aimerais tu utiliser cette procédure ?

Quels sont les autres cas de figure ?

A noter que ton

Code :

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

datedecomparaison = Replace(Split(Split(letexto, "(")(3), ")")(0), ",", "/")

peut être accéléré avec un evaluate.
En effet

Code :

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

Evaluate("Date(2012,03,02)")

te retourne 40970.

[patricktoulon]

bonjour jpcheck

je ne connaissais pas la fonction "evaluate" effectivement ça doit être plus rapide

L'idée est bonne, dans quel cadre aimerais tu utiliser cette procédure ?

comme dans les poste précédent je suis toujours en train de travailler

sur la conversion d'une feuille excel en hta (application) j'ai donc fini le code pour reproduire des cellules a l'identique sur un hta ou html

pour le tableau de cellule il est deja dans les contributions ICI
bien que ce model est dépassé . je l'ai deja amélioré en precision je mettrais le nouveau code propre

donc dans ma feuille excel ,dans les cellules il y a des formules du genre
"=if today()>=date(XXXX,XX,XX)...... je cherche a les traduire en vb(s)pour le hta

pour cette formule j'ai deja fait un petit code ca a l'air de fonctionner

mais mon projet c'est de le faire pour toutes les formules (si possible ) je pense que je vais ouvrir un projet dans le forum requis pour ca

ensuite pour mon premier code abouti en ce qui concerne la fonction le voici
ce code sera appellé dans l'evenement on change de la cellule "N4" du hta
en effet quand on observe comment les evenements fonctionnent dans le hta ou html il faut prendre le truc a l'envers de excel

Code :

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

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
 
Const QT = """"
Sub Traduire_la_formule()
'EXEMPLE DE FORMULE qui se trouve dans la colonne b
'=IF(TODAY()>=DATE(2011,12,15),$N$4,"")
 
For Each cel In Range("c5:c35") '.Cells
letexto = cel.Formula
 
Select Case Left(cel.Formula, 18)
 
Case "=IF(TODAY()>=DATE("
debut = "if cdate(date)>= "
 
'si il y a des dollards sa veut dire que se sont des adresses de cellulessinon se sont certainement des valeurs numerique ou texte
resultat_si_vrai = IIf(InStr(letexto, "$"), Split(letexto, ",")(3) & ".value", Split(letexto, ",")(3))
 
 
datedecomparaison = Replace(Split(Split(letexto, "(")(3), ")")(0), ",", "/")
datedecoupé = Split(datedecomparaison, "/")
 
datedecomparaison = "Cdate (" & QT & 15 & "/" & datedecoupé(1) & "/" & datedecoupé(0) & QT & ")"
 
letexte = letexte & debut & datedecomparaison & "  then " & Replace(cel.Address, "$", "") & ".value  = " & Replace(resultat_si_vrai, "$", "") & vbCrLf
Debug.Print debut & datedecomparaison & "  then " & Replace(cel.Address, "$", "") & ".value  = " & Replace(resultat_si_vrai, "$", "") & vbCrLf
 
End Select
 
Debug.Print letexte

enfin beaucoup de boulot comme tu vois

mais bon c'est fun
l'interet de ce fichier c'est de pouvoir ce servir du fichier hta ou html comme si c'etait une feuille excel
a l'inverse du format de html de sauvegarde en natif dans excel 2007
merci pour l'intéret sur ce projet