faire un récap d'onglets

BOnjour kyky, le forum

on a pas vu la pièce jointe, sinon voici le type de code que j'utilise pour faire ceci :

Sub Bouton1_QuandClic()
Dim ws As Worksheet
Dim plage As Range
Dim derligne As Integer

For Each ws In Worksheets
If Not ws.Name = 'RECAP' Then 'a adapter suivant le nom de ta feuille recap
Set plage = ws.Range('a1').CurrentRegion
vala = plage.Rows.Count
Set plage = plage.Offset(1, 0).Resize(plage.Rows.Count - 1, plage.Columns.Count)
With Sheets('RECAP')
derligne = .Range('a65536').End(xlUp).Row + 1
.Cells(derligne, 1).Resize(plage.Rows.Count, plage.Columns.Count).Value = plage.Value
End With
End If
Next ws


End Sub

Cliquez pour agrandir...

salut

edition :

la ligne : vala = plage.Rows.Count est un résidu de test à supprimer.

Message édité par: hervé, à: 20/02/2006 16:05

Je suppose que tu viens de faire une macro ?? je suis une sous-douée, moi ! pas possible autrement ? et si non, je mets tout cela où ?

je sens que je vais en faire soupirer quelques uns... 😱

Bonsoir kyky, le forum

non non, personne ici ne soupire devant quelqu'un de débutant, je te rassure, on n'est tous passé par là.

en pièce jointe une démo de la macro que je t'ai donnée, avec des commentaires.

une solution par formules est possible me semble-t'il, je crois avoir déjà vu les ténors du forum le faire (enfin je crois)

sinon, si tu as une autre question n'hésites pas.

et accroche toi, tu va voir c'est super simple.

salut [file name=Classeur1_20060220214537.zip size=9235]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060220214537.zip[/file]