XL 2019 Validation de Données sur plusieurs colonnes

[Caninge]

Bonjour à tous,

Je n'arrive pas à trouver la solution.
Je viens donc vous demander naturellement la réponse.
Dans mon vrai tableau j'ai plusieurs colonnes de produits : Colonne B : AQ. Les colonnes ne sont pas identiques en nombre de lignes.
Dans mon exemple seulement 3.
Le but est de réunir ces 3 colonnes dans une seul colonne et dans l'ordre alphabétique.
Ensuite nommer la plage pour l'utiliser avec Validation de Données.
Mais voilà je coince. Pouvez-vous m'aider ?
Merci
CANINGE

 

[Dan]

Bonjour

Oui je l'avais mise en plus en cas de rajout d'un produit. On peut la nommer X par exemple en AQ 24 si cela rend la tâche plus simple.

Voici ce que vous devez modifier
- Dans la feuille Produits, ajoutez un nom en AQ24 (ex: Liste)
- Allez dans la formule Produits
- Remplacez la formule par ceci :--> =DECALER(Produits!$AQ$25;;;NBVAL(Produits!$AQ:$AQ)-1)
- Allez ensuite dans l'éditeur VBA
- Dans le module collez le code ci-dessous
- Pour l'exécuter, cliquez sur Maj puis appuyez sur la touche F5 (ou FN + F5)

Sub Maj()
Dim i As Byte
Dim tablo()
Dim dlg As Integer
Dim plage As Range

With Sheets("Produits")
    dcol = .Cells(25, Columns.Count).End(xlToLeft).Column
    Set plage = .Range(.Cells(25, dcol), .Cells(.Cells(Rows.Count, dcol).End(xlUp).Row, dcol))
    plage.ClearContents
  
    For i = 2 To dcol - 1
        On Error Resume Next
        tablo = .Range(.Cells(25, i), .Cells(.Cells(Rows.Count, i).End(xlUp).Row, i)).Value
        dlg = .Cells(Rows.Count, dcol).End(xlUp).Row + 1
        If dlg < 25 Then dlg = 25
             
        If Err > 0 Then
            .Cells(dlg, dcol) = .Cells(25, i).Value
        Else: .Cells(dlg, dcol).Resize(UBound(tablo)) = tablo
        End If
    Next i
    Set plage = .Range(.Cells(24, dcol), .Cells(.Cells(Rows.Count, dcol).End(xlUp).Row, dcol))
    plage.Sort Key1:=.Cells(25, dcol), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub

 

[Caninge]

Bonjour à tous,
la proposition de Oguruma me parait un peu compliqué pour moi mais sans nul doute intéressante .
Je me suis plutôt penché sur celle de Dan.
Je crois avoir bien installé la macro, les formules mais cela ne fonctionne pas correctement.
Par exemple dans la colonne AN j'ai ajouté Vitpris 1 et Vitpris 2 mais ces deux valeurs n'apparaissent pas dans la colonne AP. j'ai du oublier quelque chose en route.
J'envoie le fichier.
A plus

 

[Dan]

Par exemple dans la colonne AN j'ai ajouté Vitpris 1 et Vitpris 2 mais ces deux valeurs n'apparaissent pas dans la colonne AP. j'ai du oublier quelque chose en route.

Si elles apparaissent mais si vous modifiez l'existant vous devez relancer le code bien entendu.

NB : vous pouvez supprimer les 3 codes qui se trouve au dessus du code Maj. Ils ne servent plus.

 

[Caninge]

Pourtant j'ai relancé. J'ai mis un bouton dans la feuille OBSERVATION

 

[Dan]

Ah ok. je comprends
En fait vous avez copié le code que j'avais placé ce matin. Mais là je l'ai modifié vers 13H et vous aviez déjà repris la version de ce matin
Donc supprimez celui dans le fichier et remplacez-le.
Vous verrez que j'ai ajouté un With sheets("Porduits").....
Désolé....

 

[Caninge]

J'ai copié le code de 10H41 mais je ne vois pas le deuxième.

 

[Dan]

J'ai copié le code de 10H41 mais je ne vois pas le deuxième.

Vous ne m'avez pas compris.
Il n'y a pas de deuxième code, je vous ai écrit que j'ai remplacé le code que j'avais mis à 10h41
Donc oubliez ce que vous avez copié dans le fichier et recopiez à nouveau ce code placé dans le post et associez-le à nouveau à votre bouton.

 

[Caninge]

j'y suis arrivé. une seule petite chose :
La plage de tous les produits se positionne dans la colonne AP et donc une colonne avant.
Il faudrait que la liste se déroule dans la plage nommé Plage_X.
J'ai essayé de modifié les codes. Rien à faire!

 

[Caninge]

Je dirais bien que la solution est dans cette ligne For i = 2 To dcol - 1

 

[Dan]

La plage de tous les produits se positionne dans la colonne AP et donc une colonne avant.

Oui exact. Je vous remets tout le code dans lequel j'ai modifié quelques lignes

Sub Maj()
Dim i As Byte
Dim tablo()
Dim dlg As Integer
Dim plage As Range

With Sheets("Produits")
    dcol = .Cells(24, Columns.Count).End(xlToLeft).Column
    dlg = .Cells(Rows.Count, dcol).End(xlUp).Row
    If dlg < 25 Then dlg = 25
    .Range(.Cells(25, dcol), .Cells(dlg, dcol)).ClearContents
 
    For i = 2 To dcol - 1
        On Error Resume Next
        tablo = .Range(.Cells(25, i), .Cells(.Cells(Rows.Count, i).End(xlUp).Row, i)).Value
        dlg = .Cells(Rows.Count, dcol).End(xlUp).Row + 1
        If dlg < 25 Then dlg = 25
           
        If Err > 0 Then
            .Cells(dlg, dcol) = .Cells(25, i).Value
        Else: .Cells(dlg, dcol).Resize(UBound(tablo)) = tablo
        End If
    Next i
    Set plage = .Range(.Cells(25, dcol), .Cells(.Cells(Rows.Count, dcol).End(xlUp).Row, dcol))
    plage.Sort Key1:=.Cells(25, dcol), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub

Rem : Oubliez pas le titre à mettre en AQ24 comme écrit ici --> https://excel-downloads.com/threads...sur-plusieurs-colonnes.20080140/post-20620884
Dans votre fichier l'info est manquante

Désolé pour les petites erreurs

 

[Caninge]

Oui exact. Je vous remets tout le code dans lequel j'ai modifié quelques lignes

Sub Maj()
Dim i As Byte
Dim tablo()
Dim dlg As Integer
Dim plage As Range

With Sheets("Produits")
    dcol = .Cells(24, Columns.Count).End(xlToLeft).Column
    dlg = .Cells(Rows.Count, dcol).End(xlUp).Row
    If dlg < 25 Then dlg = 25
    .Range(.Cells(25, dcol), .Cells(dlg, dcol)).ClearContents
 
    For i = 2 To dcol - 1
        On Error Resume Next
        tablo = .Range(.Cells(25, i), .Cells(.Cells(Rows.Count, i).End(xlUp).Row, i)).Value
        dlg = .Cells(Rows.Count, dcol).End(xlUp).Row + 1
        If dlg < 25 Then dlg = 25
          
        If Err > 0 Then
            .Cells(dlg, dcol) = .Cells(25, i).Value
        Else: .Cells(dlg, dcol).Resize(UBound(tablo)) = tablo
        End If
    Next i
    Set plage = .Range(.Cells(25, dcol), .Cells(.Cells(Rows.Count, dcol).End(xlUp).Row, dcol))
    plage.Sort Key1:=.Cells(25, dcol), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub

Rem : Oubliez pas le titre à mettre en AQ24 comme écrit ici --> https://excel-downloads.com/threads...sur-plusieurs-colonnes.20080140/post-20620884
Dans votre fichier l'info est manquante

Désolé pour les petites erreurs

 

[Caninge]

Bonjour à tous, bonjour Dan,
apparemment tout fonctionne bien maintenant.
Dan il ne faut pas être désolé quand même. C'est plutôt moi qui devrait être désolé de vous
demander à chaque fois ce qui ne vas pas.
Dans tous les cas merci Dan sans oublier les autres également.
A La prochaine.