Je souhaiterais disposer d'une macro qui me permettrait de copier une serie d'onglets dans un onblet Recap.
Pour celà j'ai déjà cette macro récupérée sur le site qui fonctionne :
Sub backUpTab()
Dim ws As Worksheet
If Not ws.Name = "Recap" Then
NbLigne = ThisWorkbook.Sheets(ws.Name).Range("A" & "65535").End(xlUp).Row
NbLigneFeuil1 = ThisWorkbook.Sheets("Recap").Range("A" & "65535").End(xlUp).Row + 1
ThisWorkbook.Sheets("Recap").Range("A" & NbLigneFeuil1 & " : " & "G" & NbLigneFeuil1 + NbLigne - 2).Value = ThisWorkbook.Sheets(ws.Name).Range("A" & "2" & ":" & "G" & NbLigne).Value
End If
Next
Seulement je souhaiterais que cette macro ne copie pas l'intégralité des onglets.
Ne connaissant absoluement rien au langage vba j'ai essayé bêtement de recopier la formule: If Not ws.Name = "Recap" Then
Et la recoller à la suite avec le nom des onglets que je ne souhaite pas recopier...ce qui ne fonctionne pas
Le code erreur qui s'affiche est: Next sans for
Comment pourrais-je ajouter à cette macro les noms des onglets qui ne doivent pas être recopiés (en plus de l'onglet Recap qui est déjà exclu)?
Est-ce qu'il est possible de copier les onglets en gardant la mise en page?
Re : VBA_Copier le contenu d'une sélection d'onglets dans un seul onglet
Impeccable!!!
Un grand merci à toi.
Si ca interesse quelqu'un voici la macro en entier à copier coller:
Sub backUpTab()
Dim ws As Worksheet
'Boucle qui parcours une à une chaque feuille du fichier
For N = 4 To ThisWorkbook.Worksheets.Count: Set ws = ThisWorkbook.Worksheets(N)
'Test qui évite de prendre la feuille 1 car c'est la feuille de récupitulation
If Not ws.Name = "Recap" Then
'Dimention du tableau
NbLigne = ThisWorkbook.Sheets(ws.Name).Range("A" & "65535").End(xlUp).Row
Au niveau de la macro je copie ici à partir de la 5ème ligne. Je voudrais par exemple que toutes les lignes jusqu'à la 15ème soient recopiées qu'elles soient vides ou non.