Passer à l'onglet suivant
Résolu
Magz
-
Magzz Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Magzz Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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!!!
A voir également:
- Passer à l'onglet suivant
- Passer de qwerty a azerty - Guide
- Passer a windows 10 - Accueil - Mise à jour
- Raccourci rouvrir onglet fermé - Guide
- Passer de majuscule à minuscule - Guide
- Passer à windows 11 gratuitement - Guide
1 réponse
Bonjour Magz, bonjour le forum,
Essaie comme ça :
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
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 !...)
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