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