cs_dede94
Messages postés5Date d'inscriptionmardi 26 août 2008StatutMembreDernière intervention26 août 2008
-
26 août 2008 à 13:32
cs_dede94
Messages postés5Date d'inscriptionmardi 26 août 2008StatutMembreDernière intervention26 août 2008
-
26 août 2008 à 15:49
Bonjour,
je souhaite écrire une macro permettant de figer les valeurs (supprimer les formules) de tous les ongets sauf sur les onglets nommés "a" et "b"
J'ai écris ceci:
Sub essaiBis()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
'If F.Name <> "a" And F.Name <> "b" Then'
With F
Cells.Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Range("A2").Select
End With
'End If'
Next F
End Sub
Ce qui ne fonctionne pas : la macro s'éxécute sur l'onglet actif, mais pas de passage à l'onglet suivant. Pouvez-vus m'aider svp?
Merci!
A voir également:
écrire une macro permettant d'effectuer une opération sur beaucoup d'onglets