Il faudrait que dans une feuille je repere toute mes cellules qui ont un
certain format pour les passer dans un autre format
Ex :
For each Cellule in worksheet
If FormatCellule = "? #,##0.00 " Then
FormatCellule= "$ #.##0.00"
Else :
Next Cellule
Mais il faut que la macros trouve la dernière cellule utilisée et définise
une plage jusqua cette cellule, pour ensuite passer en revue toutes les
cellules de cette zone.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Yann,
Tu dois adapter le nom de la feuille.
Attention, tu remplaces le format existant par un format dont le séparateur décimal et séparateur est le même dans la procédure suggérée... et attention aussi aux espaces dans les formats que tu as décrits.
'-------------------------------- Sub Formatage() 'Pas tester
Dim Rg As Range, C As Range On Error Resume Next With Worksheets("Feuil1") Set Rg = .UsedRange.SpecialCells _ (xlCellTypeConstants, xlNumbers) End With Application.ScreenUpdating = False Application.EnableEvents = False For Each C In Rg If C.NumberFormat = "? #,##0.00 " Then C.NumberFormat = "$ #.##0.00" End If Next Application.EnableEvents = True
Set C = Nothing: Set Rg = Nothing
End Sub '--------------------------------
Salutations!
"Yann" a écrit dans le message de news: Salut la foule,
Il faudrait que dans une feuille je repere toute mes cellules qui ont un certain format pour les passer dans un autre format
Ex :
For each Cellule in worksheet If FormatCellule = "? #,##0.00 " Then FormatCellule= "$ #.##0.00" Else : Next Cellule
Mais il faut que la macros trouve la dernière cellule utilisée et définise une plage jusqua cette cellule, pour ensuite passer en revue toutes les cellules de cette zone.
Merci Yann
Bonjour Yann,
Tu dois adapter le nom de la feuille.
Attention, tu remplaces le format existant par un format dont le séparateur décimal et séparateur est le même dans la
procédure suggérée... et attention aussi aux espaces dans les formats que tu as décrits.
'--------------------------------
Sub Formatage() 'Pas tester
Dim Rg As Range, C As Range
On Error Resume Next
With Worksheets("Feuil1")
Set Rg = .UsedRange.SpecialCells _
(xlCellTypeConstants, xlNumbers)
End With
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each C In Rg
If C.NumberFormat = "? #,##0.00 " Then
C.NumberFormat = "$ #.##0.00"
End If
Next
Application.EnableEvents = True
Set C = Nothing: Set Rg = Nothing
End Sub
'--------------------------------
Salutations!
"Yann" <no-spam-yannmartinet@hotmail.com> a écrit dans le message de news:ubtedhQnEHA.3712@TK2MSFTNGP15.phx.gbl...
Salut la foule,
Il faudrait que dans une feuille je repere toute mes cellules qui ont un
certain format pour les passer dans un autre format
Ex :
For each Cellule in worksheet
If FormatCellule = "? #,##0.00 " Then
FormatCellule= "$ #.##0.00"
Else :
Next Cellule
Mais il faut que la macros trouve la dernière cellule utilisée et définise
une plage jusqua cette cellule, pour ensuite passer en revue toutes les
cellules de cette zone.
Attention, tu remplaces le format existant par un format dont le séparateur décimal et séparateur est le même dans la procédure suggérée... et attention aussi aux espaces dans les formats que tu as décrits.
'-------------------------------- Sub Formatage() 'Pas tester
Dim Rg As Range, C As Range On Error Resume Next With Worksheets("Feuil1") Set Rg = .UsedRange.SpecialCells _ (xlCellTypeConstants, xlNumbers) End With Application.ScreenUpdating = False Application.EnableEvents = False For Each C In Rg If C.NumberFormat = "? #,##0.00 " Then C.NumberFormat = "$ #.##0.00" End If Next Application.EnableEvents = True
Set C = Nothing: Set Rg = Nothing
End Sub '--------------------------------
Salutations!
"Yann" a écrit dans le message de news: Salut la foule,
Il faudrait que dans une feuille je repere toute mes cellules qui ont un certain format pour les passer dans un autre format
Ex :
For each Cellule in worksheet If FormatCellule = "? #,##0.00 " Then FormatCellule= "$ #.##0.00" Else : Next Cellule
Mais il faut que la macros trouve la dernière cellule utilisée et définise une plage jusqua cette cellule, pour ensuite passer en revue toutes les cellules de cette zone.