Est-il possible lors de la copie sur la feuille synthèse des feuilleS 1 et 2
que les concordences soit faites par rapport auX cases "CASE1" ?
Explication :
si feuille "1" = CASE1 = 1 et si feuille "2" = CASE1 = 1 sur feuille synthèse mettre feuille "1" derrière feuille "2"
par contre si pas de concordence entre feuille "1" et feuille "2" mettre les infos à la fin du fichier de feuille synthèse
et si pas de concordence entre feuille "2" et feuille "1" mettre les infos à la fin du fichier de feuille synthèse.
Dans le module programme coller la macro suivante :
Sub Synthese_Onglets()
Dim Feuille As Worksheet
Dim i As Integer
With Sheets("Synthese")
.Range("A1:J" & Sheets("Synthese").Range("B65535").End(3).Row + 1).Clear
i = .Range("IV1").End(xlToLeft).Column + 1
For Each Feuille In Sheets
If i = 2 Then
i = i - 1
Else: i = .Range("IV1").End(xlToLeft).Column + 1
End If
If Feuille.Name <> "Synthese" Then
Feuille.Range("A1:J" & Feuille.Range("B65535").End(3).Row).Copy Sheets("Synthese").Cells(1, i) 'Range("A" & Sheets("Synthese").Range("B65535").End(3).Row + 1)
End If
Next Feuille
End With
End Sub
et affecter la macro au bouton du troisième feuillet.
le fichier excel est trop lourd:
dans le feuillet 1 mettre en A1 ET A2 1 et 2
dans le feuillet 2 mettre en A1 ET A2 2 et 1
feuillet 3 nommé synthese
Merci par avance pour votre aide et conseil.