doublon

[chantal]

je recherche le moyen de localiser dans une colonne la saisie de doublon et le moyen d'en faire une extraction de façon automatique c'est à dire sans avoir a trier puis à repérer moi même les intrus.Si vous avez connaissance d'une fonction ou si vous détenez la macro miracle, merci de me la faire connaitre.

 

[Dugenou]

Salut Chantal, le forum

Sur ce Lien supprimé tu trouveras en fin de post un fichier à télécharger de l'excellent MDF.

Si tu fais une recherche dans l'espace téléchargement tu devrais même trouver une mise à jour de cet extracteur automatique de doublons.

Sinon, tu peux aussi trouver un magnifique travail de Monique et Celeda (toujours dans l'espace téléchargement

Cordialement

Message édité par: Dugenou, à: 12/06/2006 18:28

 

[Gorfael]

chantal écrit:

je recherche le moyen de localiser dans une colonne la saisie de doublon et le moyen d'en faire une extraction de façon automatique c'est à dire sans avoir a trier puis à repérer moi même les intrus.Si vous avez connaissance d'une fonction ou si vous détenez la macro miracle, merci de me la faire connaitre.

salut
Dans le module de classe lié à ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Integer
Dim Lig As Long

If Target.Column = 1 Then
If IsEmpty(Target) Then Exit Sub
For Lig = Range('A65535').End(xlUp).Row To 1 Step -1
If Lig = Target.Row Then
'on fait rien
Else
If Target = Cells(Lig, 1) Then
Range('A' & Lig).Interior.Color = RGB(255, 0, 0)
Target.Interior.Color = RGB(255, 0, 0)
Exit For
End If
End If
Next

End If
End Sub
comme ici, le signe 'est différent' donne des petits problème, j'ai tout mis en =, et utilisé le Else. la correction est facile
Cette macro colorie en rouge la cellule de la colonne A, ainsi que la dernière cellule de la ligne A qui vient d'être modifiée, créant un doublon
A+