Microsoft 365 recuperer les données de plusieurs onglets

[marcmarc]

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

 

[vgendron]

Hello

un début de réponse ici:

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

 

[marcmarc]

Wahouhh
super génial, merci pour cette aide
bravo, moi qui trainait dessus depuis quelques jours !!
le reste je m'arrangerai, merci, belle journée à toi
Marcmarc