copie valeur de tous les onglets VBA

C

Catrice

XLDnaute Barbatruc

• 30 Septembre 2008

• #2

Re : copie valeur de tous les onglets VBA

Bonjour,

Tu peux essayer ceci :

Sub Test()
For Each X In Sheets
X.Cells.Copy
X.Cells.PasteSpecial Paste:=xlPasteValues
Next
Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2008

• #3

Re : copie valeur de tous les onglets VBA

Bonjour à tous


Une autre façon de faire

Code:

Sub suppress_formules()
Dim ws As Worksheet
'Suppression des formules
For Each ws In Worksheets
With ws.UsedRange.Cells.SpecialCells(xlCellTypeFormulas, 23)
    .Value = .Value
End With
Next
End Sub

 

Dernière édition: 30 Septembre 2008

Vote positif 0 Vote négatif

S

setsix

Guest

• 30 Septembre 2008

• #4

Re : copie valeur de tous les onglets VBA

staple1600 à dit:

bonjour à tous


une autre façon de faire

Code:

sub suppress_formules()
dim ws as worksheet
'suppression des formules
for each ws in worksheets
with ws.usedrange.specialcells(xlcelltypeformulas, 23)
    .value = .value
end with
next
end sub

Cliquez pour agrandir...

merci catrice et staple1600

 

Vote positif 0 Vote négatif

S

setsix

Guest

• 30 Septembre 2008

• #5

Re : copie valeur de tous les onglets VBA

setsix à dit:

merci catrice et staple1600

Cliquez pour agrandir...

Staple

Ta macro ne marche pas.

 

Pièces jointes

• test.xls

  20.5 KB · Affichages: 75
• test.xls

  20.5 KB · Affichages: 76
• test.xls

  20.5 KB · Affichages: 78

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2008

• #6

Re : copie valeur de tous les onglets VBA

Re


Et comme cela?

Code:

Sub suppress_formulesII()
Dim ws As Worksheet
'toutes les cellules ici sont pris en compte
For Each ws In Worksheets
With ws.UsedRange
    .Value = .Value
End With
Next
End Sub

ou comme cela

Code:

Sub suppress_formules()
Dim ws As Worksheet
'remplacement des formules par les valeurs
'dans les seules cellules contenant des formules
For Each ws In Worksheets
With ws.UsedRange.Cells.SpecialCells(xlCellTypeFormulas, 23)
    .Value = .Value
End With
Next
End Sub

(Ca marche non, je viens de tester)

 

Dernière édition: 30 Septembre 2008

Vote positif 0 Vote négatif

S

setsix

Guest

• 30 Septembre 2008

• #7

Re : copie valeur de tous les onglets VBA

Merci impect.

 

Vote positif 0 Vote négatif