Bouton mise à jour d'un feuille en VBA

[Nevos]

Bonjour,

Je n'arrive pas à récupérer les infos de divers feuilles pour les mettre dans une seule.

Je voudrais garder le principe du fichier ci-joint mais avec un bouton mise à jour de la feuille principale.

Merci d'avance.

 

[mth]

Re : Bouton mise à jour d'un feuille en VBA

Bonjour,

Un essai avec ce code:

Sub Macro1()
Dim Lig As Long
Sheets("Recap_Annuaire").Cells.Clear
With Sheets("Annuaire1")
    Lig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A1:D" & Lig).Copy Sheets("Recap_Annuaire").Range("A1")
End With
With Sheets("Annuaire2")
    Lig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A2:D" & Lig).Copy Sheets("Recap_Annuaire").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
End Sub

Bon après-midi,

mth

 

[Nevos]

Re : Bouton mise à jour d'un feuille en VBA

Salut,

Le code fonctionne super, merci beaucoup.
Mais j'aurai encore une petite question, n'y a t-il pas moyen de ne pas préciser à chaque fois les feuilles "Annuaire 1, 2 ,....x annuaire"? du genre toutes les feuilles qui s'appellent annuaire par exemple.

Merci d'avance.

 

[mth]

Re : Bouton mise à jour d'un feuille en VBA

Bonsoir Nevos,

Un autre essai:

Sub Macro1()
Dim Lig As Long
Sheets("Recap_Annuaire").Cells.Clear
For i = 1 To Sheets.Count
    If Sheets(i).Name Like ("Annuaire*") Then
        With Sheets(i)
            Lig = .Cells(Rows.Count, 1).End(xlUp).Row
            .Range("A2:D" & Lig).Copy Sheets("Recap_Annuaire").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        End With
    End If
Next i
Sheets("Annuaire1").Range("A1:D1").Copy Sheets("Recap_annuaire").Range("A1")
End Sub

Bonne soirée,

mth

Edit: 🙂🙂 Hello Staple 🙂🙂

 

[Staple1600]

Re : Bouton mise à jour d'un feuille en VBA

Bonsoir Nevos, mth 😉


A peaufiner (mais test ok)

Sub a()
Dim s As Worksheet
Sheets("Recap_Annuaire").Range("A2:D65536").Clear
For Each s In Worksheets
If Not s.Name Like "Recap_*" Then
s.Range("A1").CurrentRegion.Offset(1).Copy Sheets("Recap_Annuaire").[A65536].End(xlUp)(2)
End If
Next s
End Sub

EDITION: Houps, pas rafraichi à temps

 

[Nevos]

Re : Bouton mise à jour d'un feuille en VBA

Bonsoir à tous,

Et surtout merci de vos réponses très rapide.
Le code de "MTH" fonctionne nickel, mais par contre le tien "Staple1600" rajoute à la suite les nouvelles modifications comme les anciennes.

Bonne soirée, 🙂