Passer à l'onglet suivant
Résolu
Magzz
Messages postés
5
Statut
Membre
-
Magzz Messages postés 5 Statut Membre -
Magzz Messages postés 5 Statut Membre -
Bonjour,
J'ai réalisé une macro me permettant de passer à l'onglet suivant et d'y effectuer des modifications peu importe le nom de mes onglets.
Le problème est que lorsque j'arrive au dernier onglet, mon activesheet.next ne fonctionne plus vu qu'il n'y a plus d'onglet, et il me fait donc planter ma macro.
Quelqu'un aurait un idée?
Merci beaucoup!!!
J'ai réalisé une macro me permettant de passer à l'onglet suivant et d'y effectuer des modifications peu importe le nom de mes onglets.
Le problème est que lorsque j'arrive au dernier onglet, mon activesheet.next ne fonctionne plus vu qu'il n'y a plus d'onglet, et il me fait donc planter ma macro.
Quelqu'un aurait un idée?
While ActiveSheet.Next.Name <> ""
ActiveSheet.Columns("F:U").Copy
Cells(1, 6).PasteSpecial Paste:=xlPasteValues
ActiveSheet.Columns("A:E").Delete
ActiveSheet.Rows("1:6").Delete
ActiveSheet.Next.Select
Wend
Merci beaucoup!!!
1 réponse
-
Salut,
tu dois passer dans toutes les feuilles ?
Si oui :
Dim wks As Worksheet
'- Begin looping through workbook
For Each wks In ActiveWorkbook.Worksheets
'- Do code with each worksheet
msgbox wks.name
next wks
---
-
Non il ne passe pas visuellement à l'onglet suivant, mais les méthodes que tu vas appeler se feront dessus :
Dim wks As Worksheet
'- Begin looping through workbook
For Each wks In ActiveWorkbook.Worksheets
wks .Columns("F:U").Copy
wks .Cells(1, 6).PasteSpecial Paste:=xlPasteValues
wks .Columns("A:E").Delete
wks .Rows("1:6").Delete
next wks
Si je me trompe pas, il le fera sur tous les onglets =) -
-
-
-
