XL 2016 Recherche de dates identiques

submarine22

XLDnaute Junior
Bonjour à tous ;)
est ce que quelqu'un pourrait m'aider, s'il vous plait.
j ais trouver ce petit code qui pourrait bien m'être très utile, mais je n'arrive pas à l'adapter au format date:

Option Explicit
Dim DicMC As Dictionary

Private Sub Userform_Initialize()
Sheets("BDD").Activate
[BDD].EntireRow.Hidden = False 'RAZ
Set DicMC = DicoMotsClés([BDD].Columns("I"))
Me.ComboBox1.List = DicMC.Keys
End Sub

Private Sub ComboBox1_Change()
Dim N As Long, TLgn() As Long
If Me.ComboBox1.ListIndex < 0 Then Exit Sub
Application.ScreenUpdating = False
TLgn = DicMC.Items(ComboBox1.ListIndex)
[BDD].EntireRow.Hidden = True 'RAZ
For N = 1 To UBound(TLgn): [BDD].Rows(TLgn(N)).EntireRow.Hidden = False: Next N
Application.ScreenUpdating = True
End Sub

et en plus je souhaiterais que les résultats s'affichent dans un userform.
Merci Par avance de vos lumières:rolleyes::rolleyes:
 

Wayki

XLDnaute Impliqué
Essaye ça :
VB:
Sub testdoublon()
Dim ws As Worksheet, cellule As Variant
Set ws = Worksheets(1)
    For i = 1 To 10
        For Each cellule In ws.Range("A" & i, "B" & i)
            If cellule.Value = Cells.Find(what:=cellule.Value) And cellule.Value <> "" Then
            MsgBox cellule.Address()
            
            End If
        Next
    Next
    
End Sub
Affiche dans des msgbox l'emplacement des doublons
A adapter à ta feuille et à ce que tu veux réellement
 

ChTi160

XLDnaute Barbatruc
Bonjour submarine22
Bonjour le Fil ,le Forum
éternel problème des demandes sans fichier !
il faut aussi que l'on imagine et recrée ce que fait la procédure "DicoMotsClés" qui manque !
je ne l'ai pas fait lol
Bonne journée
jean marie
 

soan

XLDnaute Barbatruc
Inactif
Bonjour jean marie, le fil,

il faut excuser submarine : si elle n'a pas pu joindre son fichier, c'est car Maître Capello n'a pas voulu rentrer dedans, et même si, le fichier aurait dépassé la limite de taille fatidique de 1 Mo ! 😭

tiens, c'est marrant : ça m'rappelle les débuts de l'informatique des années 80, avec la barrière des 640 Ko de la RAM des premiers PC. 😁 (ainsi que les 1 Mo de mémoire conventionnelle)

soan
 
Dernière édition:

Discussions similaires

Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal