Vba-doublons bd

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 30 Janvier 2012

• #2

Re : Vba-doublons bd

Bonjour,

Voir PJ

Les doublons d'un même groupe ont une couleur identique.



http://boisgontierjacques.free.fr/fichiers/Cellules/Doublons2colonnes.xls

JB

 

Pièces jointes

• Doublons2colonnes.xls

  47.5 KB · Affichages: 162
• Doublons2colonnes.xls

  47.5 KB · Affichages: 109
• Doublons2colonnes.xls

  47.5 KB · Affichages: 171
• Copie de DoublonsBD.xls

  226.5 KB · Affichages: 55

Dernière édition: 30 Janvier 2012

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Janvier 2012

• #3

Re : Vba-doublons bd

Bonjour,
à tester :

Code:

Sub test()
Dim a, b, Lig, i&
a = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
b = Range("C2:C" & Range("B" & Rows.Count).End(xlUp).Row)
For i = LBound(a) To UBound(a)
    Lig = Application.Match(a(i, 1), b, 0)
    If Not IsError(Lig) And a(i, 1) <> "" Then Cells(i + 1, 4) = Lig + 1
Next i
End Sub

On peut éventuellement accélérer la vitesse de traitement en passant par un Array collectant les résultats qui sera ensuite copié dans la feuille.
A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Janvier 2012

• #4

Re : Vba-doublons bd

Bonjour Celeda (et bises)

Vois si cela te convient
Je pense que tu sauras adapter

Edit: Salut David 🙂

 

Pièces jointes

• DoublonsBD.xls

  213 KB · Affichages: 103
• DoublonsBD.xls

  213 KB · Affichages: 100
• DoublonsBD.xls

  213 KB · Affichages: 101

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 30 Janvier 2012

• #5

Re : Vba-doublons bd

Bonsoir,


Hola,

je rentre du dendiste et je reste épatée!!!! par vous !!
pas par le dendiste.


je regrette pas d'avoir demandé votre aide, BOISGONTIER, DAVID, PIERREJEAN,
je vous remercie sincèrement, vous me tirez de plusieurs heures de boulot
je suis toujours un peu confuse devant tout ceci car je ne peux pas vous rendre
la pareille mais si vous pouviez voir mes yeux, vous sauriez qu'ils ressemblent
à ceux d'un enfant à qui on a offert un merveilleux jouet.

Merci Merci Merci.

Et je vais adapter parce que même si je n'écris pas vos codes, j'essaie toujours
d'en tirer quelques lessons.

🙂

 

Vote positif 0 Vote négatif