Copier, synthèse et Max

[Raphael57]

Bonjour à tous
Je vous soumet un point bloquant pour moi et pour lequel je souhaite conseils et aide.

Dans un classeur, j'ai un nombre variable de feuilles.
Toutes les feuilles ont la meme structure.

1ere question :
Comment puis je copier les colonnes A B et C (de la ligne 1 à la lignes 1500 non vide) de toutes mes feuilles (sauf les feuilles Clients et Pièces) les une à la suite de autres sur ma feuille synthèse.

2eme question :
Au final, dans la colonne A de la feuille Synthèse, j'aurai ceci :
Peugeot01
Peugeot02
Peugeot03
Audi01
Audi02
Audi03
Audi04
Audi05
Nissan01
Nissan02
Nissan03
Nissan04
Mercedes01
Renault01
Renault02
Renault03
Etc...

Est il possible dans une colonne (E par exemple) D'avoir le Max de chaque Marque:
Ici, ce serait:
Peugeot03
Audi05
Nissan04
Mercedes01
Renault03

Merci pour vos conseils
Raphael

 

[skoobi]

Re : Copier, synthèse et Max

Bonjour,
est-ce que les lignes vides peuvent être supprimés?

Comment puis je copier les colonnes A B et C (de la ligne 1 à la lignes 1500 non vide)

A te relire

 

[skoobi]

Re : Copier, synthèse et Max

Re,
en tenant compte de ce que j'ai dit avant test ceci:

Sub essai()
Dim champs As Range, Destination As Range
nbre_feuille = ThisWorkbook.Sheets.Count
For i = 1 To nbre_feuille
    If Sheets(i).Name <> "Clients" And Sheets(i).Name <> "Pièces" And Sheets(i).Name <> "synthèse" Then
        With Sheets(i)
            For ligne = 1500 To 1 Step -1
                If .Cells(ligne, 1) = "" Then
                    .Cells(ligne, 1).EntireRow.Delete
                End If
            Next
            Set champs = .Range(Sheets(i).Cells(1, 1), Sheets(i).Cells(1500, 3))
        End With
        Set Destination = Sheets("synthèse").Range("a65536").End(xlUp).Offset(1, 0)
        champs.Copy Destination
    End If
Next
End Sub

 

[Raphael57]

Re : Copier, synthèse et Max

Bonjour skoobi
Tout d'abord, merci de ta réponse.

C'est vrai que sur le coup la, je me suis mal exprimé.
En fait, il n'y a pas de ligne vide (entre deux lignes non vides par exemple).

En fait, 1500, c'est le nombre max de ligne que je veux copier.
Le nombre de ligne est variable suivant la feuille, mais ne dépasse pas 1500.

J'espère avoir été plus clair ,
et encore merci