Format

DoubleZero

XLDnaute Barbatruc

• 18 Mai 2014

• #2

Re : Format

Bonjour, BRUNO62, le Forum,

Peut-être ainsi :

Code:

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

 

Dernière édition: 18 Mai 2014

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Mai 2014

• #3

Re : Format

Bonjour à tous,

Peux-tu essayer :

Code:

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++

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mai 2014

• #4

Re : Format

Bonjour à tous


Une troisième possibilité

Code:

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

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 18 Mai 2014

• #5

Re : Format

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 18 Mai 2014

• #6

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

Cliquez pour agrandir...

 

Pièces jointes

• Capture.JPG

  50.1 KB · Affichages: 30
• Capture.JPG

  50.1 KB · Affichages: 34

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 18 Mai 2014

• #7

Re : Format

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

 

Vote positif 0 Vote négatif