Aide sur code VBA avec boucle sur feuilles

[Soleil11]

Bonjour le forum,

Je fais appel à vous parceque je bloque sur ce code que j'ai commencé à faire. Ci-dessous le code :

La boucle marche bien lorsque il y a des chiffres sur toutes mes feuilles, mais lorsque ma feuille est vide la macro bloque. Comment puis-je forcer la macro à ne pas bloquer et continuer la boucle même si il y a des feuille vides.

Sub Testclean3()

For x = 2 To Sheets.Count

    Sheets(x).Activate
    
    Range("B8").Select
    Selection.End(xlDown).Select
    Selection.End(xlToLeft).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    
    Range("M1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Activate
    ActiveSheet.Paste
    
Next x
End Sub

Merci de votre aide.

Soleil11😕

 

[Risleure]

Re : Aide sur code VBA avec boucle sur feuilles

Bonjour,

Chez moi cette macro ne fonctionne pas
donc tu peux mettre cette très mauvaise solution

Sub Testclean3()
On Error Resume Next
For x = 2 To Sheets.Count
........

A+

 

[Soleil11]

Re : Aide sur code VBA avec boucle sur feuilles

Merci le forum,

Le 2 solutions fonctionnent.

Bonne fêtes.

Soleil11