Bonjour à tous,
voilà, j'ai un fichier excel avec entre 90 & 100 onglets environ avec des données de L1:Q61.
J'aimerai:
selectionner les données de tous les onglets sans les lignes avec le mot FAUX dedans en colonne M (1er et dernier onglet concerné)
copier & coller les données les unes en dessous des autres dans l'onglet "Synthèse" en A2
a aujourd'hui, j'ai pu faire une petite partie du code (trouvé sur différents forums) mais cela ne colle les données que de l'onglet actif
Sub CONSO()
'
' CONSO Macro
'
Dim i&
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Synthèse" Then Sheets(i).Select False
Next i
Set sh1 = ActiveSheet
lastrw1 = Application.Match("NON", sh1.Range("M:M"), 0) - 1
Set plg = sh1.Range("L2:Q" & lastrw1)
Set sh2 = Sheets("Synthèse")
If sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1 = 2 Then
lastrw2 = 1
Else
lastrw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
adr1 = Range(Cells(lastrw2, 1).Address, Cells(lastrw2 + plg.Rows.Count - 1, 2)).Address
sh2.Range(adr1).Value = plg.Value
'
End Sub
je vous remercie tous, bonne après midi à vous