Formule dans cellule

job75

XLDnaute Barbatruc

• 17 Février 2019

• #2

Bonjour KTM, le forum,

Code:

For Each cel In .Range("E7:E37,M7:M37,J7:J37")
If IsNumeric(CStr(cel)) Then cel.FormulaLocal = "=" & cel Else cel.Formula = "=""" & cel & """"
Next cel

Bonne journée.

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 17 Février 2019

• #3

Bonjour Job75
Si on ne vous l'a jamais dit , je confesse que vous êtes un savant , un AS du VBA.
Merci infiniment et durablement.
Que les dieux du VBA vous protègent!!!!!
A+

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 17 Février 2019

• #4

Pouvez vous apporter des explications au code ?
C'est fort pour moi
Merci Encore

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Février 2019

• #5

Ceci est encore plus fort car on traite aussi les valeurs logiques et les valeurs d'erreur :

Code:

For Each cel In .Range("E7:E37,M7:M37,J7:J37")
    If IsNumeric(CStr(cel)) Then
        cel.FormulaLocal = "=" & cel
    ElseIf CStr(cel) = "" Or Application.IsText(cel) Then
        cel.Formula = "=""" & cel & """"
    ElseIf Application.IsLogical(cel) Or IsError(cel) Then
        cel.FormulaLocal = "=" & cel.Text
    End If
Next cel

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Février 2019

• #6

Ce qu'il faut bien comprendre :

- IsNumeric(cel) renvoie True si cel est vide c'est pour cela que j'utilise CStr

- CStr évite aussi un bug si cel est une valeur d'erreur

- FormulaLocal conserve les propriétés de l'ordinateur : séparateur décimal, langue.

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 17 Février 2019

• #7

Bien compris Bénédiction à vous !

 

Vote positif 0 Vote négatif