Passer à l'onglet suivant

Résolu

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 - 27 juin 2016 à 15:29

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?


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!!!

Afficher la suite

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

Réponse 1 / 1

mrjenkins Messages postés 580 Date d'inscription Statut Membre Dernière intervention 102

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

Magzz Messages postés 5 Date d'inscription Statut Membre Dernière intervention

Salut!

Merci beaucoup pour ta réponse déjà!
Alors ça marche presque...
Je sais pas si ton "next wks" est censé faire passer à l'onglet suivant mais en tout cas ça le fait pas... Du coup j'suis toujours bloquée au même point... :(

mrjenkins Messages postés 580 Date d'inscription Statut Membre Dernière intervention 102

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 =)

Magzz Messages postés 5 Date d'inscription Statut Membre Dernière intervention

Ah tu mets le wks devant chaque ligne de code!! D'accrod, alors c'est moi qui n'ai pas bien fait le truc!

Ca marche super bien merci beaucoup!!

mrjenkins Messages postés 580 Date d'inscription Statut Membre Dernière intervention 102

Oui, si tu précises pas, il prend celui actif.

Si tu le définis, il va mettre à jour l'onglet là, sans l'afficher :)

Et pas de quoi ;)

Magzz Messages postés 5 Date d'inscription Statut Membre Dernière intervention

Maintenant que tu le dit, ça parait logique!

Encore merci :D

Discussions similaires

Onglet disposition Excel ne s'affiche pas

Live tiktok

Zut, l'onglet a planté... !

Hotmail sans compte microsoft

L'onglet Disposition pour les tableaux dans Word 2019

Votre réponse

Discussions similaires