XL 2016 resultat sans doublon

[lamho27]

Bonjour le forum
j'ai 12 colonnes de 12 mois avec des noms de personnes , je voudrais résumer dans colonne "nom" toutes les nom de 12 mois sans nom répétition ( sans doubler )
merci d'avance

 

[Paf]

Bonjour lamho27

un essai macro:

Sub Lamho27()
Dim Dico, i As Long, j As Byte
Set Dico = CreateObject("Scripting.Dictionary")

With Worksheets("Feuil1")
For j = 2 To 13 ' pour chaque colonne de B à M
  For i = 3 To .Cells(Cells.Rows.Count, j).End(xlUp).Row
  Dico(CStr(.Cells(i, j))) = ""
  Next
Next
.Cells(3, 14).Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End With

A+

 

[lamho27]

Bonjour Paf
Votre code a d'erreur
est ce qu'on peut faire en formule sans VBA ?

 

[BOISGONTIER]

Bonsoir,

Avec fonction perso

-maj auto si on modifie les noms
-code réutilisable

Sélectionner N3:N29
=sansdoublons(A3:M17)
valider avec maj+ctrl+entrée

ou

Sélectionner P329
=sansdoublonsTrié(A3:M17)
valider avec maj+ctrl+entrée

JB

 

[lamho27]

Bonjour Boisgontier
Merci beaucoup , très bien ta formule

 

[lamho27]

Bonjour Boisgontier
j'ai un doute quand je copie vers ma feuille , il ne peux pas donner résultat

 

[Chris401]

Bonsoir

Par formule uniquement

 

[lamho27]

Bonsoir Chris401
Quand je mets ta formule dans mon fichier , il y a d'erreur , il donne que la première nom
tu peux me corriger
merci

 

[Chris401]

Tu n'as pas modifié les cellules des plages nommées MOIS

Ecemple pour janvier, au lieu de :

=DECALER(Calendrier!$B$2;1;;NBVAL(Calendrier!$B:$B)-1)

Il faut :

=DECALER(Calendrier!$AQ$2;1;;NBVAL(Calendrier!$AQ:$AQ)-1)

Mais puisque tu as déjà des macros dans ton fichier, tu devrais utiliser la fonction personnalisée de JB
(Regarde les modules dans son fichier)

 

[lamho27]

bonsoir Chris401
je suis très bête , je ne sais pas ton code =DECALER(Calendrier!$AQ$2;1;;NBVAL(Calendrier!$AQ:$AQ)-1) tu mets dans quelle cellule ?

 

[DoubleZero]

Bonjour à toutes et à tous,

Bonjour Paf
Votre code a d'erreur...

Le code de Paf fonctionne parfaitement. Il suffit d'ajouter :

End Sub

juste après :

    End With

A bientôt

 

[Chris401]

Dans les noms définis

Pour le nom janvier, dans "Fait référence à"

 =DECALER(Calendrier!$AQ$2;1;;NBVAL(Calendrier!$AQ:$AQ)-1)

Idem pour les autres mois en modifiant les colonnes

Mais regarde avec le code de JB dans ton fichier (Module3) - Plus besoin des noms définis

 

[lamho27]

bonjour DoubleZero
ça marche bien , mais est ce qu'on peut faire automatique sans bouton clic ?
merci

 

[DoubleZero]

Re-bonjour,

... est ce qu'on peut faire automatique sans bouton clic ?...

Dans un module standard :

Option Explicit
Sub Code_de_Paf()
    Dim Dico, i As Long, j As Byte
    Set Dico = CreateObject("Scripting.Dictionary")
    With Worksheets("Feuil1")
        For j = 2 To 13    ' pour chaque colonne de B à M
            For i = 3 To .Cells(Cells.Rows.Count, j).End(xlUp).Row
                Dico(CStr(.Cells(i, j))) = ""
            Next
        Next
        .Cells(3, 14).Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
    End With
End Sub

Dans le module de l'onglet de travail :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = 0
    If Not Intersect(Target, Range("b3:m65000")) Is Nothing Then
        Range(Range("n3"), Range("n3").End(xlDown)) = ""
        Call Code_de_Paf
        Range("n2:n65000").Sort Range("n2"), xlAscending, Header:=xlYes ' trier
    End If
    Application.ScreenUpdating = -1
End Sub

A bientôt

 

[lamho27]

Bonjour DoubleZero
ton code ça marche bien, mais quand je crée dans mon tableau de colonnes AQ3:BB6500 au lieu de B3:m6500; il ne marche pas, pourquoi ?