Incrementation

Bonjour,

tout d'abord je vous présente mes meilleurs vœux pour cette nouvelle année.

j'aimerai pouvoir créer une liste de dispositif par catégorie et que cette dernière les feuilles concernées.

Exemple : si je tape dans la feuille liste contenant les pelables (jaune) j'aimerai que les informations s'incrémentent automatiquement dans la feuille pelables.

Merci par avance

Bien cordialement

Mango19

Bonjour,

Pas sur d'avoir tout compris de la demande.

Cdlt.

Private Sub Workbook_SheetActivate(ByVal sh As Object)
    If sh.Name <> "Liste" Then
        With Worksheets("Liste").Cells(1).CurrentRegion
            .AutoFilter 1, sh.Name
            .Offset(1, 1).Copy sh.Cells(4, 1)
            .AutoFilter
        End With
    End If
End Sub

Bonjour Jean Eric,

un très grand merci c'est exactement ce que je recherchais.

Question : existe t-il une méthode pour éviter les doublons ?

Merci par avance

Amicalement

Mango19