Format

[BRUNO62]

Bonjour à tous,

J'ai besoin d'aide car je coince sur un format.
La formule apparaît quand je lance la macro et le résultat attendu n'est pas le bon.
Avez vous une idée.
Merci
A+

 

[DoubleZero]

Re : Format

Bonjour, BRUNO62, le Forum,

Peut-être ainsi :

Option Explicit
Sub Formule()
Range("b2:b" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IF(RC[-1]=0,"""",FALSE )"
End Sub

A bientôt

P. S. : Bonjour + bise, JCGL

 

[JCGL]

Re : Format

Bonjour à tous,

Peux-tu essayer :

Sub Macro1()
    Columns("A:A").NumberFormat = "0.00"
    Range("B2:B" & Range("A65536").End(xlUp).Row).Formula = "=IF(RC[-1]=0,"""" )"
    Cells(1, 1).Select
End Sub

A+ à tous

Edition : Pas vu l'amie G... Heureux de la collision et Bises++

 

[Staple1600]

Re : Format

Bonjour à tous


Une troisième possibilité

Sub FormuleTer()
Dim a As Range
Set a = Range("A2", Cells(Rows.Count, "A").End(xlUp))
a.Offset(, 1) = Evaluate("=IF(" & a.Address & "=0,"""",FALSE)")
End Sub

 

[BRUNO62]

Re : Format

Bonjour DoubleZero, JCGL et Staple1600,
Merci, à vous.
C'est OK.
Bon dimanche.
A+

 

[Modeste geedee]

Re : Format

Bonsour® à tous

Sub Macro1()
Sheets("Feuil1").Select
With Range("B2:B" & Range("A65536").End(xlUp).Row)
.FormulaR1C1 = "=1*(RC[-1]=0)"
.NumberFormat = ";;""FAUX"";"
End With
End Sub

 

[BRUNO62]

Re : Format

Bonjour geedee,
Merci, à toi.
C'est OK.
Bon dimanche.
A+