Microsoft 365 recuperer les données de plusieurs onglets

marcmarc

XLDnaute Junior
Bonjour le forum,

je souhaiterai dans mon fichier excel avoir récapitulatif de mes km dans un nouvel onglet unique,
c'est a dire de récupérer toutes les données de tous les onglets du fichier ou se trouve les deux lettres "KM" de l'onglet, attention car il y en a plusieurs onglets avec et sans le "KM"
de prendre les données utiles ( pas les cases vides) de chaque onglet, les cellules (jaunes) du tableau de (ai12:au36)
et de les recopier dans l'onglet unique et les trier par noms

La couleur jaune c'est pour montrer les données, sinon, pas besoin de couleur :)
Ainsi, j'aurais la liste complète de mes déplacement et le nombre total des km
pouvez vous m'aider a organiser mon fichier

en vous remerciant tous
bonne semaine à tout le monde
Marcmarc
 

Pièces jointes

  • regrouper km.xlsx
    33.6 KB · Affichages: 17

vgendron

XLDnaute Barbatruc
Hello

un début de réponse ici:
VB:
Sub SynthKm()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets
    If ws.Name Like "*km*" And ws.Name <> "Onglet unique" Then
        tabdata = ws.Range("AI12:AU36").Value
    
        fin = Sheets("Onglet unique").Range("B" & Rows.Count).End(xlUp).Row
        Sheets("Onglet unique").Range("B" & fin + 1).Resize(UBound(tabdata, 1), UBound(tabdata, 2)) = tabdata
    End If
Next ws
End Sub
 

Discussions similaires