copie valeur de tous les onglets VBA

[setsix]

copie valeur de tous les onglets VBA [RESOLU]

Bonjour,

je cherche à supprimer toutes les formules en copiant et collant en valeur toutes les feuilles.

Sub abc()

Dim i As Integer, NBonglet As Integer

NBonglet = Sheets.Count

For i = 1 To NBonglet

Sheets(i).Select
Selection.PasteSpecial Paste:=xlPasteValues

Next i

End Sub

J'ai réussi à écrire çà mais il doit y avoir une merde quelque part.

Merci d'avance,

 

[Catrice]

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

 

[Staple1600]

Re : copie valeur de tous les onglets VBA

Bonjour à tous


Une autre façon de faire

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

 

[setsix]

Re : copie valeur de tous les onglets VBA

bonjour à tous


une autre façon de faire

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

merci catrice et staple1600

 

[setsix]

Re : copie valeur de tous les onglets VBA

merci catrice et staple1600

Staple

Ta macro ne marche pas.

 

[Staple1600]

Re : copie valeur de tous les onglets VBA

Re


Et comme cela?

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

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)

 

[setsix]

Re : copie valeur de tous les onglets VBA

Merci impect.