Macro, mise en forme si cellule contient un texte en particulier

Pierrot93

XLDnaute Barbatruc

• 10 Août 2010

• #2

Re : Macro, mise en forme si cellule contient un texte en particulier

Bonsoir rmk

essaye ainsi si j'ai bien compris :

Code:

Dim c As Range
For Each c In Range("D3:M12")
    c.NumberFormat = IIf(c.Value - Int(c.Value) = 0, "0", "0.00")
Next c

bonne soirée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Août 2010

• #3

Re : Macro, mise en forme si cellule contient un texte en particulier

Re,

A noter que l'on peut rajouter un test, s'il y a une possiblité de rencontrer des cellules contenant du texte...

Code:

Dim c As Range
For Each c In Range("D3:M12")
    If IsNumeric(c.Value) Then c.NumberFormat = IIf(c.Value - Int(c.Value) = 0, "0", "0.00")
Next c

 

Vote positif 0 Vote négatif

R

rmk

Guest

• 10 Août 2010

• #4

Re : Macro, mise en forme si cellule contient un texte en particulier

ça ne marche pas car ça me passe tout en chiffre sans virgule, et non seulement les 0

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Août 2010

• #5

Re : Macro, mise en forme si cellule contient un texte en particulier

Re,

aarf, pas tout compris moi, peut être comme ceci alors... :

Code:

Dim c As Range
For Each c In Range("D3:M12")
    If IsNumeric(c.Value) Then c.NumberFormat = IIf(c.Value = 0, "0", "0.00")
Next c

 

Vote positif 0 Vote négatif

R

rmk

Guest

• 10 Août 2010

• #6

Re : Macro, mise en forme si cellule contient un texte en particulier

nickel merci!
pour ceux que ça interesserait la macro ci dessous

Sub Macro1()
'
' Macro1 Macro
'

'
Range("D3:M12").Select
Selection.NumberFormat = "0.00"
Dim c As Range
For Each c In Range("D3:M12")
If IsNumeric(c.Value) Then c.NumberFormat = IIf(c.Value = 0, "0", "0.00")
Next c
Range("D8:M12").Select
Selection.NumberFormat = "0"


End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Août 2010

• #7

Re : Macro, mise en forme si cellule contient un texte en particulier

Re,

pas sûr que ces lignes ci dessous soient nécessaires :

Code:

Range("D3:M12").Select
Selection.NumberFormat = "0.00"

et :

Code:

Range("D8:M12").Select
Selection.NumberFormat = "0"

 

Vote positif 0 Vote négatif

R

rmk

Guest

• 11 Août 2010

• #8

Re : Macro, mise en forme si cellule contient un texte en particulier

en fait c'est nécessaire car il y a de la mise en forme pou le reste des cellules (c'est pour une feuille excel plus complexe que le test

autre question... j'ouvre une feuille et je fais un save as pour pouvoir me faire les modif tranquillement, mais lorsque je lance la macro il me dit que le fichier existe déjà et me demande si on doit le remplacer.

est ce qu'il existe une commande pour valider cette text box sans qu'elle apparaisse?

Workbooks.Open Filename:="G:\statcom\historique.xls"
ActiveWorkbook.SaveAs Filename:="G:\statcom\historiquePM.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Août 2010

• #9

Re : Macro, mise en forme si cellule contient un texte en particulier

Bonjour mk,

essaye ainsi :

Code:

[COLOR="Blue"][B]Application.DisplayAlerts = False[/B][/COLOR]
ActiveWorkbook.SaveAs Filename:="G:\statcom\historiquePM.xls", FileFormat:= _
    xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
    , CreateBackup:=False
[B][COLOR="blue"]Application.DisplayAlerts = True[/COLOR][/B]

bonne journée
@+

 

Vote positif 0 Vote négatif

R

rmk

Guest

• 11 Août 2010

• #10

Re : Macro, mise en forme si cellule contient un texte en particulier

ça marche, merci beaucoup pierrot
tu es d'une grande efficacité!

 

Vote positif 0 Vote négatif