Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2016liste sans doublon non triée avec 2 conditions (VBA)
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 !
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