superbog
XLDnaute Occasionnel
bonjour
voilà j'ai une macro qui me permet de copier les formules de cellules d'une feuille dans d'autres feuilles du même classeur. Elle fonctionne mais je n'arrive pas à copier en même temps le format de la cellule d'origine. Comment faire?
en outre, curieusement j'avais une formule somme et cela a copié sum, ce qu'excel n'a pas reconnu comme formule...
merci
voilà j'ai une macro qui me permet de copier les formules de cellules d'une feuille dans d'autres feuilles du même classeur. Elle fonctionne mais je n'arrive pas à copier en même temps le format de la cellule d'origine. Comment faire?
en outre, curieusement j'avais une formule somme et cela a copié sum, ce qu'excel n'a pas reconnu comme formule...
Code:
Sub remplace()
'cette macro permet de remplacer dans toutes les feuilles numériques du classeur des cellules précises par celles de la feuille modèle
Dim Ws As Worksheet, r As Range
Set r = Application.InputBox("Sélectionner la plage, réduite si possible", , , , , , , 8)
For Each Ws In ThisWorkbook.Worksheets
If IsNumeric(Ws.Name) Then
Ws.Range(r.Address).Formula = Worksheets("modele").Range(r.Address).Formula
Ws.Range(r.Address).NumberFormat = Worksheets("modele").Range(r.Address).NumberFormat
End If
Next
MsgBox "opération effectuée"
End Sub
merci