Bonjour,
Je reviens vers vous, j'ai un classeur qui comporte 60 feuilles, je souhaite annuler sur certaines d'entre elles, les formules dans les colonnes "A à J", et les conserver sur les autres colonnes.
Cette action devant concerner toutes les feuilles sauf 2, feuil1 et feuil6 pour l'exemple.
j'ai trouver cette macro, qui fonctionne très bien, mais qui passe au karcher toutes les formules de toutes les feuilles. Comment l'adapter à mon problème.
Sub Formules_Valeurs()
Application.ScreenUpdating = False
Dim Feuil_Val As Worksheet
For Each Feuil_Val In ActiveWorkbook.Worksheets
Feuil_Val.Select
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Next Feuil_Val
ActiveWorkbook.Sheets(1).Select
End Sub
Merci de votre aide.
Broch002:
Je reviens vers vous, j'ai un classeur qui comporte 60 feuilles, je souhaite annuler sur certaines d'entre elles, les formules dans les colonnes "A à J", et les conserver sur les autres colonnes.
Cette action devant concerner toutes les feuilles sauf 2, feuil1 et feuil6 pour l'exemple.
j'ai trouver cette macro, qui fonctionne très bien, mais qui passe au karcher toutes les formules de toutes les feuilles. Comment l'adapter à mon problème.
Sub Formules_Valeurs()
Application.ScreenUpdating = False
Dim Feuil_Val As Worksheet
For Each Feuil_Val In ActiveWorkbook.Worksheets
Feuil_Val.Select
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Next Feuil_Val
ActiveWorkbook.Sheets(1).Select
End Sub
Merci de votre aide.
Broch002:
Dernière édition: