Créer une liste

[Hulk]

Hello,

J'ai encore un petit soucis avec des boucles et des listes grr.

J'ai en colonne A à D, quatre listes de noms (ou plus si nécessaire) et je souhaiterais par exemple en colonne G (ou autre) en faire qu'une seule comme expliqué dans le fichier joint.

Désolé, mais je dois filer maintenant, je répondrai sans doute demain matin !

Par avance je vous en remercie !

 

[BOISGONTIER]

Re : Créer une liste

Bonsoir,


Voir PJ

Fonction perso matricielle:
-Sélectionner le champ
=SansDoublons(champ)
-Valider avecmaj+ctl+entrée

Il y a maj automatique de la liste si les listes d'origine sont modifiées

Fonction perso matricielle avec tri:

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/FusionListesTriee.xls

Macro (si les listes d'origine ne sont pas modifiées):

Sub AjoutListes()
  [J2:J1000].ClearContents
  Set champ = [A2].CurrentRegion.Offset(1)
  For i = 1 To champ.Columns.Count
    Range("J65000").End(xlUp).Offset(1).Resize(champ.Rows.Count) = Application.Index(champ.Value, , i)
 Next
End Sub

JB

 

[Guest]

Re : Créer une liste

Bonsoir Hulk🙂

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim Valeurs As Variant
    For i = 1 To 4
        Valeurs = Range(Cells(2, i), Cells(Rows.Count, i).End(xlUp)).Value
        Range("G" & Rows.Count).End(xlUp)(2).Resize(UBound(Valeurs)).Value = Valeurs
    Next
End Sub

A+

 

[Hulk]

Re : Créer une liste

Slt Forum, Boisgontier, Hasco 🙂

Impec je garde les deux !

J'y serais jamais arrivé sans vous...

Merci encore et bon dimanche !