Microsoft 365 Remplissage automatique d'une colonne

gregguadebois à dit:

Bonjour à tous,

J'ai besoin de votre aide.
Je recherche comment faire pour copier une colonne d'une autre feuille à partir d'un autre colonne sans doublons.

J'ai une colonne E (dans feuille "JANVIER") Composée de nom de client (avec doublons),
Je souhaite que lorsque je remplis cette colonne, automatiquement la colonne de la feuille "clients" se remplisse automatiquement sans doublons et si possible par ordre alphabétique.

Est-ce possible?

Cdlt
Greg.

Cliquez pour agrandir...

=TRIER(UNIQUE(DECALER(JANVIER!$E$2;0;0;NBVAL(JANVIER!E:E);1));1;1;0)

sylvanu à dit:

Un petit fichier test serait le bienvenu, cela éviterait inévitablement plusieurs allers retours.

Cliquez pour agrandir...

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [E:E]) Is Nothing Then
         Application.ScreenUpdating = False
         DL = [E65500].End(xlUp).Row
         With Sheets("CLIENTS")
            .Range("A1:A" & DL) = Range("E1:E" & DL).Value                              ' Copie
            .Range("A1:A" & DL).RemoveDuplicates Columns:=1, Header:=xlYes              ' Supprime doublon
            .Range("A1:A" & DL).Sort key1:=.[A1], order1:=xlAscending, Header:=xlYes    ' Tri alpha
         End With
    End If
Fin:
End Sub

sylvanu à dit:

Bonsoir gregguadebois,

C'est effectivement mieux.
En PJ un essai avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [E:E]) Is Nothing Then
         Application.ScreenUpdating = False
         DL = [E65500].End(xlUp).Row
         With Sheets("CLIENTS")
            .Range("A1:A" & DL) = Range("E1:E" & DL).Value                              ' Copie
            .Range("A1:A" & DL).RemoveDuplicates Columns:=1, Header:=xlYes              ' Supprime doublon
            .Range("A1:A" & DL).Sort key1:=.[A1], order1:=xlAscending, Header:=xlYes    ' Tri alpha
         End With
    End If
Fin:
End Sub

Quand on ajoute un client en page Janvier alors la liste de client est reconstituée en feuille Clients, sans doublon, et en ordre alpha.
A noter que si vous avez ensuite des feuilles Février, Mars ... il faut recopier cette macro dans chaque nouvelle feuille. ( ou alors dupliquer la feuille Janvier, la macro suivra )

Cliquez pour agrandir...

sylvanu à dit:

Re,
Voir PJ.
La liste déroulante est constituée par :

VB:

=DECALER(Liste0;0;0;NB.SI(Liste;"<>"))

et il faut dans Alerte d'erreur décocher Quand les données non valides sont tapées.
Car quand vous entrez un nouveau client, évidemment cette donnée n'est pas dans la liste.

Cliquez pour agrandir...

sylvanu à dit:

Re,
Voir PJ.
La liste déroulante est constituée par :

VB:

=DECALER(Liste0;0;0;NB.SI(Liste;"<>"))

et il faut dans Alerte d'erreur décocher Quand les données non valides sont tapées.
Car quand vous entrez un nouveau client, évidemment cette donnée n'est pas dans la liste.

Cliquez pour agrandir...

gregguadebois à dit:

Je souhaiterais vraiment que la liste se mette à jour par ordre alphabétique et sans doublons de janvier à décembre.

Cliquez pour agrandir...

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Or Target = "" Then Exit Sub
    Select Case Target.Column
        Case 6:     TriClients Target
        Case 7:     TriMachines Target
        Case 10:    TriTaches Target
        Case 11:    TriAutres Target
    End Select
Fin:
End Sub

' 4 modules quasi identiques pour chacune des 4 listes
' Le paramètre passé est le contenu de la cellule validée qui est ajoutée à la liste correspondante.
Sub TriClients(Chaine)
    Application.ScreenUpdating = False
    With Sheets("CLIENTS")
        DL = 1 + .[A65500].End(xlUp).Row                                           ' Première ligne vide
        .Cells(DL, "A") = Chaine                                                    ' Insertion nouvelle donnée
        .Range("A1:A" & DL).RemoveDuplicates Columns:=1, Header:=xlYes              ' Supprime doublon
        .Range("A1:A" & DL).Sort key1:=.[A1], order1:=xlAscending, Header:=xlYes    ' Tri alpha
    End With
End Sub

Clients :
=DECALER(Liste0;0;0;NB.SI(Liste;"<>"))
Machines :
=DECALER(Liste00;0;0;NB.SI(Liste2;"<>"))
Taches :
=DECALER(Tache10;0;0;NB.SI(TACHES1;"<>"))
Autres :
=DECALER(Tache20;0;0;NB.SI(TACHES2;"<>"))

sylvanu à dit:

Bonjour gregguadebois,
On est assez loin de la demande du post #1.
En fait vous voulez qu'à chaque fois qu'on entre une nouvelle valeur dans une des 4 colonnes, la liste se remette à jour et triée sans doublons ?
En PJ un essai, j'ai pas mal simplifié.
Dans toutes les feuilles de Mois, il y a cette simple macro :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Or Target = "" Then Exit Sub
    Select Case Target.Column
        Case 6:     TriClients Target
        Case 7:     TriMachines Target
        Case 10:    TriTaches Target
        Case 11:    TriAutres Target
    End Select
Fin:
End Sub

Qui appelle une des 4 macros de tri du genre :

Code:

' 4 modules quasi identiques pour chacune des 4 listes
' Le paramètre passé est le contenu de la cellule validée qui est ajoutée à la liste correspondante.
Sub TriClients(Chaine)
    Application.ScreenUpdating = False
    With Sheets("CLIENTS")
        DL = 1 + .[A65500].End(xlUp).Row                                           ' Première ligne vide
        .Cells(DL, "A") = Chaine                                                    ' Insertion nouvelle donnée
        .Range("A1:A" & DL).RemoveDuplicates Columns:=1, Header:=xlYes              ' Supprime doublon
        .Range("A1:A" & DL).Sort key1:=.[A1], order1:=xlAscending, Header:=xlYes    ' Tri alpha
    End With
End Sub

Pour les listes Clients, Machines, Taches et Autres taches.
Les listes déroulantes dans les feuilles Mois sont alors :

Code:

Clients :
=DECALER(Liste0;0;0;NB.SI(Liste;"<>"))
Machines :
=DECALER(Liste00;0;0;NB.SI(Liste2;"<>"))
Taches :
=DECALER(Tache10;0;0;NB.SI(TACHES1;"<>"))
Autres :
=DECALER(Tache20;0;0;NB.SI(TACHES2;"<>"))

Dans la PJ j'ai remis à jours toutes les macros dans les feuilles, mais remis à jour les listes déroulantes que dans la feuille Janvier, "YaPuKa" faire pareil sur les 11 autres mois.
Faites un retour s'il y a un quelconque problème.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour gregguadebois,
Je ne comprends pas bien la question qui peux avoir deux lectures :
1- Dans la feuille MACHINES vous changez AA par ABCD et dans les listes déroulantes vous verrez apparaitre ABCD au lieu de AA.
2- Le changement de nom doit aussi se faire dans toutes les feuilles où elles sont déjà inscrites, alors là, oui, c'est plus complexe, il faut faire un changement sur toutes les feuilles.

Cliquez pour agrandir...