Passer à l'onglet suivant
Résolu
Magz
-
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
-
Bonjour Magz, bonjour le forum,
Essaie comme ça :
While ActiveSheet.Name <> "" ActiveSheet.Columns("F:U").Copy Cells(1, 6).PasteSpecial Paste:=xlPasteValues ActiveSheet.Columns("A:E").Delete ActiveSheet.Rows("1:6").Delete If ActiveSheet.Index = Sheets.Count Then Exit Sub ActiveSheet.Next.Select Wend
-
Thauthème commente Thauthème ! Risque de larsen ou d'écho...
Plusieurs fils pour le même problème, c'est déjà pas très éthique. Mais, ne même pas regarder les propositions faites dans tous les fils, c'est carrément "pas glop pas glop !"... (Tiens ! Moi qui suis d'habitude si grossier... Vite mon docteur !...) -
Salut ThauTheme!
J'ai créé mon profil après avoir fait ce post du coup j'ai remis ma question une deuxième fois.
Et je suis désolée de ne pas t'avoir répondu mais c'était pour le boulot du coup j'ai été pas mal occupée après et j'ai fini par oublié de te répondre.
Du coup je te remercie pour ta réponse et je te présente mes plus humbles excuses pour avoir heurté ta douce sensibilité, je tâcherai de faire plus attention à l'avenir.
Bien à toi,
Magz <3
-
