écrire une macro permettant d'effectuer une opération sur beaucoup d'onglets

Résolu
cs_dede94 Messages postés 5 Date d'inscription mardi 26 août 2008 Statut Membre Dernière intervention 26 août 2008 - 26 août 2008 à 13:32
cs_dede94 Messages postés 5 Date d'inscription mardi 26 août 2008 Statut Membre Dernière intervention 26 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!

1 réponse

cs_dede94 Messages postés 5 Date d'inscription mardi 26 août 2008 Statut Membre Dernière intervention 26 août 2008
26 août 2008 à 15:49
Reponse dispo sur le post : macro avec boucle opérant sur plusieurs onglets
3
Rejoignez-nous