Comment trouver sur une colonnes plusieurs produits identiques
mylord6666
Messages postés
53
Date d'inscription
Statut
Membre
Dernière intervention
-
mylord6666 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
mylord6666 Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai réussi a trouver deux produits identiques mais je pense que cela s'arrête à deux comment faire pour en trouver 4
voici une copie de mon code
Private Sub CommandButton2_Click()
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
For Each q In Range([e3], [e65000].End(xlUp))
If d1.exists(q.Value) Then d2(q.Value) = ""
d1(q.Value) = ""
Next q
If d1.Count > 0 Then [q2].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
End Sub
j'ai réussi a trouver deux produits identiques mais je pense que cela s'arrête à deux comment faire pour en trouver 4
voici une copie de mon code
Private Sub CommandButton2_Click()
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
For Each q In Range([e3], [e65000].End(xlUp))
If d1.exists(q.Value) Then d2(q.Value) = ""
d1(q.Value) = ""
Next q
If d1.Count > 0 Then [q2].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
End Sub
A voir également:
- Comment trouver sur une colonnes plusieurs produits identiques
- Ryanair produits interdits en cabine - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Comment faire des colonnes sur word - Guide
- Trouver adresse mac - Guide