Merci bien! Ça me va!!!Bonjour
Regarde si ça te convient.
Sub Regrouper_Feuilles()
Application.ScreenUpdating = False
Dim F As Worksheet, ws As Worksheet
Set F = Sheets("synthèse")
F.Range("A1").CurrentRegion.Offset(1).Delete
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> F.Name Then
ws.Range("A1").CurrentRegion.Offset(1).Copy F.Range("A" & Rows.Count).End(xlUp)(2)
End If
Next ws
Application.ScreenUpdating = True
End Sub
Merci bien! Ça me va!!!
je voudrais que la copy se limite a ces trois feuil uniquement est ce possible?Bonjour
Regarde si ça te convient.
F.Range("A1").CurrentRegion.Offset(1).Delete
F.Range("A1").CurrentRegion.Offset(1).ClearContents
Ah ok merci!
Salut Phil,Bonjour à tous
Sur le code de @cp4
Perso je pense qu'il faut mieux remplacer :
Par :VB:F.Range("A1").CurrentRegion.Offset(1).Delete
VB:F.Range("A1").CurrentRegion.Offset(1).ClearContents
@Phil69970
F.Range("A1").CurrentRegion.Offset(1).ClearFormats
F.Range("A1").CurrentRegion.Offset(1).ClearContents
@Phil69970 : En effet, étourderie de ma part Delete est bizarre, le plus indiqué est ClearRe
Alors il suffit de les supprimer aussi
VB:F.Range("A1").CurrentRegion.Offset(1).ClearFormats F.Range("A1").CurrentRegion.Offset(1).ClearContents
Car si l'utilisateur a des données au delà de "CurrentRegion" (en F2 et/ou G2 par exemple) alors cela va faire bizarre avec delete.
@Phil69970
Sub Regrouper_Feuilles_Concernées()
Dim F As Worksheet, a, i As Integer, Sh As Worksheet
Set F = Worksheets("synthèse")
Application.ScreenUpdating = False
a = Array("Feuil1", "Feuil2", "Feuil3") 'on met le nom des feuilles à copier dans une variable tableau (adapter nom feuilles)
Debug.Print LBound(a), UBound(a)
F.Range("A1").CurrentRegion.Offset(1).Clear 'on efface
For i = LBound(a) To UBound(a)
Set Sh = Worksheets(a(i))
With Sh
.Range("A1").CurrentRegion.Offset(1).Copy F.Range("A" & Rows.Count).End(xlUp)(2)
End With
Next i
Set Sh = Nothing: Set F = Nothing
Application.ScreenUpdating = True
MsgBox "Transfert terminé!", vbInformation + vbOKOnly, "TRANSFERT DONNEES"
End Sub
Oui oui.Quand tu dis :"je voudrais que la copy se limite a ces trois feuil uniquement est ce possible?"
Tu as d'autres feuilles que tu ne veux pas prendre en compte ?