Liste d'articles

YOYO · 2 Octobre 2005

Bonjour,

voila mon probleme...
J'ai dans un fichier excel qui contient un nombre variable de feuilles (1 à 10 suivant le fichier), chaque feuille contenant des références d'articles (toujours dans la même colonne).

Je souhaite créer une nouvelle feuille au début de mon fichier excel contenant la liste sans doublons de tous les articles contenus dans les feuilles existantes.

Merci pour votre aide.

YOYO

Hervé · 2 Octobre 2005

Bonjour yoyo

Je te renvoi vers ce fil ou j'ai laissé une macro à Sdc, qui voulait faire la meme chose que toi.

Il te faudra surement adapter le code bien sur.

Lien supprimé

salut

Hervé · 2 Octobre 2005

re yoyo

sinon vite faite :

Ce type de code crée une feuille Bilan en début de classeur, scanne toutes les feuilles (sauf bilan) crée une collection des valeurs de la colonne A (de chaque feuille).

Puis renvoi cette collection en colonne A de la célèbre feuille Bilan.

Bien sur, si la feuille Bilan existe déjà un message te préviens et la macro s'arrete.

salut

Option Explicit
Sub Bouton1_QuandClic()
Dim ws As Worksheet, feuille As Worksheet
Dim data As Collection
Dim i As Integer
Dim c As Range

Set data = New Collection

Set feuille = Sheets.Add

On Error GoTo fin:
With feuille
    .Name = 'Bilan'
    .Move before:=Sheets(1)
End With

For Each ws In Worksheets
    If ws.Name <> feuille.Name Then
        With ws
            For Each c In .Range('a1:a' & .Range('a65536').End(xlUp).Row)
                On Error Resume Next
                data.Add CStr(c), CStr(c)
                On Error GoTo 0
            Next c
        End With
    End If
Next ws

With feuille
    For i = 1 To data.Count
        .Cells(i, 1) = data(i)
    Next i
End With
Exit Sub

fin:
MsgBox 'la feuille Bilan existe déjà.'
With Application
    .DisplayAlerts = False
        ActiveSheet.Delete
    .DisplayAlerts = True
End With

End Sub

Liste d'articles

YOYO

XLDnaute Nouveau

Hervé

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Discussions similaires