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