ne pas arreter la macro avant le dernier onglet du classeur Résolu

Question

Bonjour, 

Je souhaite modifier une macro qui me consolide plusieurs onglets en un seul. Seulement lorsqu'un onglet est vide, la macro ne "regarde" pas si l'onglet suivant contient des données et s'arrete. Ma conso est alors incomplete et un message d'erreur apparait.

Que dois je rajouter ?

Merci pour votre aide

Configuration: Windows 7 / Internet Explorer 9.0

redaiwa · Answer

Salam l'apprenti.

Cela dépend de comment est construite la logique de ton code.
Peux-tu poster ton code ici pour qu'on l'examine ensemble ?

:)

"Repousse le mal par le bien; et voilà que celui avec qui tu avais une animosité devient tel un ami chaleureux" (Coran)
"Celui qui ne sait pas partager est infirme de ses émotions". (Marc Levy)

apprenti_vba · Answer

Voilà ce que j'ai

Sub consolide_ongletsCollageSpecial()
   Sheets("base").[A2:N65000].ClearContents
   
      For s = 2 To Sheets.Count
      Sheets(2).Select False
      nlig = Sheets(s).[A65000].End(xlUp).Row - 5
      ncol = Sheets(s).[A6].CurrentRegion.Columns.Count
      Sheets(s).[A6].Resize(nlig, ncol).Copy
     [A65000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
   Next s
   On Error Resume Next
  Range("A1").Select
End Sub

apprenti_vba · Answer

J'ai 20 onglets que je dois les consolider sur 1 seul. Et lorsqu' une feuille ne contient pas de données, la macro s'arrete et ne me rappatrie pas les données des feuilles suivantes. Si toutes les feuilles contiennent des données ce code fonctionne bien mais ce n'est peut etre pas le meilleur

f894009 · Answer

Bonjour a vous deux,

Sub consolide_ongletsCollageSpecial()
    'On Error Resume Next
    Sheets("base").[A2:N65000].ClearContents

For s = 2 To Sheets.Count
        nlig = Sheets(s).[A65000].End(xlUp).Row - 5
        If nlig > 0 Then
            ncol = Sheets(s).[A6].CurrentRegion.Columns.Count
            Sheets(s).[A6].Resize(nlig, ncol).Copy
            [A65000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        End If
    Next s
    Range("A1").Select
End Sub

Ne pas arreter la macro avant le dernier onglet du classeur

4 réponses

Votre réponse

Discussions similaires