XL 2016 Recherche de dates identiques

submarine22 · 12 Juin 2021

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

herve62 · 12 Juin 2021

Bonjour
Encore une fois ...... comprenez qu'avec juste du code en texte ici c'est pas évident .
Pour avoir des réponses > JOINDRE un fichier !!

Wayki · 12 Juin 2021

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

submarine22 · 17 Juin 2021

Bonsoir,
Merci pour cette réponse, je vais tester cela.
Bonne soirée.

ChTi160 · 18 Juin 2021

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 · 18 Juin 2021

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

XL 2016 Recherche de dates identiques

submarine22

XLDnaute Junior

herve62

XLDnaute Barbatruc

Wayki

XLDnaute Impliqué

submarine22

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Discussions similaires