Consolider deux feuilles Excel identiques dans une feuille synthese

bonjour,

j ai deux feuilles excel identiques que je voudrais regrouper dans une troisieme feuille ( Synthese) Comment faire. Merci

Bonjour,

as-tu un fichier-test ?

voici un exemple de compilation de tous les onglets commençant par A

Option Explicit

Sub compiler()
Dim ligne As Long, ws As Worksheet
    With ActiveSheet.ListObjects(1)
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With
    ligne = 2
    For Each ws In Worksheets
        If ws.Name Like "A_*" Then
            ws.Cells(Rows.Count, 1).End(xlUp).CurrentRegion.Offset(1, 0).Resize(ws.Cells(Rows.Count, 1).End(xlUp).CurrentRegion.Rows.Count - 1).Copy Destination:=ActiveSheet.Cells(ligne, 1)
            ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1
        End If
    Next
End Sub

Bonjour Steelson,

Merci pour l'interet, je vous ai preparé un exemple dans le fichier attaché.

Dans le feuille main_timesheet je voudrais recapituler les autres feuilles. Merci d'avance

J'ai conservé le pas fixe que tu avais mis (7 lignes par collaborateurs).

Option Explicit

Sub compiler()
Dim fmain As Worksheet, ftime As Worksheet, ligne As Integer
    Set fmain = Sheets("Main_TimeSheet")
    fmain.Rows("15:35").ClearContents
    ligne = 15
    For Each ftime In Worksheets
        If ftime.Name Like "Time*" Then
            ftime.Range("C16:M22").Copy Destination:=fmain.Range("C" & ligne)
            fmain.Range("B" & ligne & ":B" & (ligne + 6)) = ftime.Range("C11")
            ligne = ligne + 7
        End If
    Next
End Sub

Merci infiniment Steelson.

Puis-je demander une autre aide pour controle de la cellule tâche- projet si = Férié automatiquement heure(ETP)=1 et pas une autre valeur.

Merci d'avance

Dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Value = "Férié" Then Target.Offset(0, 1).Value = 1
End Sub

Re bonjour Steelson,

Merci beaucoup pour ton aide. j ai verifié la nouvelle macro concernant le Jour Férié.

Le jour Ferié son ETP = 1

La macro permet de selection l'ETP du jour ferié et le met à 1 Mais aprés l'utilisateur peut changer la Valeur de l'ETP pour le jour ferié et le mettre 0.25 ou autre

et ça devient incoherent.

à mon avis il faut bloque l'etp à 1 lorsque la tâche = Ferié

Merci à l'avance et cordialement.

Essaie comme ceci alors

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
    If Target.Value = "Férié" Then Target.Offset(0, 1).Value = 1
    If Target.Offset(0, -1).Value = "Férié" Then Target.Value = 1
Application.EnableEvents = True
End Sub

Je viens de tester. c 'est juste ce que je veux.

Merci infinimenet Steelson pour ton aide

N'oublie pas de clore ce fil de discussion en cliquant sur