XL 2016 liste sans doublon non triée avec 2 conditions (VBA)

  • Initiateur de la discussion Initiateur de la discussion GOLE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

GOLE

XLDnaute Nouveau
Bonjour le forum,
Ci-joint un fichier où il faudrait obtenir une liste sans doublon non triée avec conditions particulières
Merci par avance
 

Pièces jointes

bonjour tout les deux
si vba vous tient
sans dico
'module de la feuille
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
  'Range("D1:D601").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("CF1"), Unique:=True
  If Target.Column = 4 Then
    Call report2(Target.Value)
  End If
End Sub

'module standard
VB:
 report2(valeur)
    If valeur <> "" Then
        With Sheets("Feuil1")
            Set plage = .Range("G2:G" & .Cells(Rows.Count, "G").End(xlUp).Row)
            dispoline = .Cells(Rows.Count, "G").End(xlUp).Offset(1).Row
            If WorksheetFunction.CountIf(plage, valeur) = 0 Then .Cells(dispoline, "G") = valeur
        End With
    End If
End Sub
 
Merci pour sans dico, je reste sur la première version qui va trés bien
par contre si tu pouvais me trouver le code qui mettrait le résultat non pas sur colonne CF de la feuille saisie mais sur la colonne E d'une autre feuille "résultat" par exemple...toujours en utilisant le code avec dico
dur ou pas dur ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
199
Réponses
9
Affichages
233
Réponses
9
Affichages
387
Réponses
17
Affichages
413
Réponses
4
Affichages
476
Réponses
1
Affichages
166
Retour