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

[rmk]

Bonjour,

Ci dessous ma macro et le point ou je bloque

En fait sur un tableau (voir PJ fichier test) je veux que certaines lignes avec 2 chiffres après la virgule, et pour d'autres des chiffres sans virgule... jusqu'ici tout va bien!
Par contre je veux que toutes les cellules contenant "0" ou "0,00" soit sans chiffre après la virgule.



Sub Macro1()
'
' Macro1 Macro
'

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

ici je bloque pour selectionner les cellules contenant "0"
Selection.NumberFormat = "0"

End Sub

je travail avec l'enregistreur de macro mais lorsque je fais "ctrl F", rechercher "0", "rechercher tout", selection de toutes les cellules et "fermer" et bien il n'enregistre rien dans la macro à part Range("D3:M12").Select 😡

merci pour votre coup de main!!

PS : est ce que If Value... Then serait la solution?

 

[Pierrot93]

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

Bonsoir rmk

essaye ainsi si j'ai bien compris :

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

 

[Pierrot93]

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

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

 

[rmk]

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

 

[Pierrot93]

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

Re,

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

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

 

[rmk]

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

 

[Pierrot93]

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

Re,

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

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

et :

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

 

[rmk]

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

 

[Pierrot93]

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

Bonjour mk,

essaye ainsi :

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

 

[rmk]

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

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