Une petite question qui reste sans réponse et que je n'ai pas trouvée dans
la liste...
Excel 97
J'ai un fichier avec plusieurs onglets que je voudrais enregistrer sans les
formules pour ne reproduire que les valeurs...
La réponse est peut-être simple mais j'avoue ne pas la trouver...
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
Ardus Petus
Essaie cette macro:
'--------------------------------- Sub FixeFormules() Dim WS As Worksheet Dim c As Range Dim spec As Range For Each WS In ActiveWorkbook.Worksheets On Error Resume Next Set spec = WS.UsedRange.SpecialCells( _ xlCellTypeFormulas, 23) On Error GoTo 0 If spec Is Nothing Then Exit For For Each c In spec c.Value = c.Value Next c Next WS End Sub '-------------------------------------
Cordialement, -- AP
"13Hubert" a écrit dans le message de news:
Bonjour à tous !
Une petite question qui reste sans réponse et que je n'ai pas trouvée dans la liste...
Excel 97 J'ai un fichier avec plusieurs onglets que je voudrais enregistrer sans les
formules pour ne reproduire que les valeurs... La réponse est peut-être simple mais j'avoue ne pas la trouver...
Merci beaucoup
Hubert -- ...from Marseille !
Essaie cette macro:
'---------------------------------
Sub FixeFormules()
Dim WS As Worksheet
Dim c As Range
Dim spec As Range
For Each WS In ActiveWorkbook.Worksheets
On Error Resume Next
Set spec = WS.UsedRange.SpecialCells( _
xlCellTypeFormulas, 23)
On Error GoTo 0
If spec Is Nothing Then Exit For
For Each c In spec
c.Value = c.Value
Next c
Next WS
End Sub
'-------------------------------------
Cordialement,
--
AP
"13Hubert" <13hubert@discussions.microsoft.com> a écrit dans le message de
news:E61358B6-4DFB-4C7C-9F20-AD57EA1D3A6A@microsoft.com...
Bonjour à tous !
Une petite question qui reste sans réponse et que je n'ai pas trouvée dans
la liste...
Excel 97
J'ai un fichier avec plusieurs onglets que je voudrais enregistrer sans
les
formules pour ne reproduire que les valeurs...
La réponse est peut-être simple mais j'avoue ne pas la trouver...
'--------------------------------- Sub FixeFormules() Dim WS As Worksheet Dim c As Range Dim spec As Range For Each WS In ActiveWorkbook.Worksheets On Error Resume Next Set spec = WS.UsedRange.SpecialCells( _ xlCellTypeFormulas, 23) On Error GoTo 0 If spec Is Nothing Then Exit For For Each c In spec c.Value = c.Value Next c Next WS End Sub '-------------------------------------
Cordialement, -- AP
"13Hubert" a écrit dans le message de news:
Bonjour à tous !
Une petite question qui reste sans réponse et que je n'ai pas trouvée dans la liste...
Excel 97 J'ai un fichier avec plusieurs onglets que je voudrais enregistrer sans les
formules pour ne reproduire que les valeurs... La réponse est peut-être simple mais j'avoue ne pas la trouver...
Merci beaucoup
Hubert -- ...from Marseille !
13Hubert
Salut AP !
Merci ! Merci beaucoup, ça fonctionne super ! C'est exactement ce qu'il me fallait.
Cordialement, Hubert -- ...from Marseille !
Essaie cette macro:
'--------------------------------- Sub FixeFormules() Dim WS As Worksheet Dim c As Range Dim spec As Range For Each WS In ActiveWorkbook.Worksheets On Error Resume Next Set spec = WS.UsedRange.SpecialCells( _ xlCellTypeFormulas, 23) On Error GoTo 0 If spec Is Nothing Then Exit For For Each c In spec c.Value = c.Value Next c Next WS End Sub '-------------------------------------
Cordialement, -- AP
"13Hubert" a écrit dans le message de news:
Bonjour à tous !
Une petite question qui reste sans réponse et que je n'ai pas trouvée dans la liste...
Excel 97 J'ai un fichier avec plusieurs onglets que je voudrais enregistrer sans les
formules pour ne reproduire que les valeurs... La réponse est peut-être simple mais j'avoue ne pas la trouver...
Merci beaucoup
Hubert -- ...from Marseille !
Salut AP !
Merci !
Merci beaucoup, ça fonctionne super !
C'est exactement ce qu'il me fallait.
Cordialement,
Hubert
--
...from Marseille !
Essaie cette macro:
'---------------------------------
Sub FixeFormules()
Dim WS As Worksheet
Dim c As Range
Dim spec As Range
For Each WS In ActiveWorkbook.Worksheets
On Error Resume Next
Set spec = WS.UsedRange.SpecialCells( _
xlCellTypeFormulas, 23)
On Error GoTo 0
If spec Is Nothing Then Exit For
For Each c In spec
c.Value = c.Value
Next c
Next WS
End Sub
'-------------------------------------
Cordialement,
--
AP
"13Hubert" <13hubert@discussions.microsoft.com> a écrit dans le message de
news:E61358B6-4DFB-4C7C-9F20-AD57EA1D3A6A@microsoft.com...
Bonjour à tous !
Une petite question qui reste sans réponse et que je n'ai pas trouvée dans
la liste...
Excel 97
J'ai un fichier avec plusieurs onglets que je voudrais enregistrer sans
les
formules pour ne reproduire que les valeurs...
La réponse est peut-être simple mais j'avoue ne pas la trouver...
Merci ! Merci beaucoup, ça fonctionne super ! C'est exactement ce qu'il me fallait.
Cordialement, Hubert -- ...from Marseille !
Essaie cette macro:
'--------------------------------- Sub FixeFormules() Dim WS As Worksheet Dim c As Range Dim spec As Range For Each WS In ActiveWorkbook.Worksheets On Error Resume Next Set spec = WS.UsedRange.SpecialCells( _ xlCellTypeFormulas, 23) On Error GoTo 0 If spec Is Nothing Then Exit For For Each c In spec c.Value = c.Value Next c Next WS End Sub '-------------------------------------
Cordialement, -- AP
"13Hubert" a écrit dans le message de news:
Bonjour à tous !
Une petite question qui reste sans réponse et que je n'ai pas trouvée dans la liste...
Excel 97 J'ai un fichier avec plusieurs onglets que je voudrais enregistrer sans les
formules pour ne reproduire que les valeurs... La réponse est peut-être simple mais j'avoue ne pas la trouver...
