Ajouter un suffixe aus doublons

[KyFranRD]

Bonjour

Je désire savoir comment détecter les doublons dans une colonne lors de la saisie, par exemple dans la colonne B des lignes 10 à 20. Que cette recherche de doublons se fasse à chaque saisie. Donc dans cette exemple à B2, puis B3,B4,B5,B6,B7,B8,B9 et B10.

Et que lorsqu'un doublons est détecté, cela ajoute un suffixe.

Donc si je saisie 100 en B7, et que ce chiffre existe déjà en B5, que cela inscrive 100* en B5 et 100 en B7.

Je ne pense pas qu'un fichier soit nécessaire mais si besoin.....

Merci à l'avance

 

[Staple1600]

Re : Ajouter un suffixe aus doublons

Bonsoir à tous

KyFranRD
Tu peux aussi utiliser une MFC pour détecter les doublons.
Voir les détails ici par exemple

EDITION: Bonsoir Victor21

 

[Victor21]

Re : Ajouter un suffixe aus doublons

BonjourKyFranRD, Staple1600, le forum.

Pour rajouter l'étoile, il va falloir passer par une procédure événementielle et Countif en VBA.

 

[KyFranRD]

Re : Ajouter un suffixe aus doublons

Bonjour et merci bien à vous deux

Je teste cela dés que possible

@++

 

[job75]

Re : Ajouter un suffixe aus doublons

Bonjour KyFranRD, Jean-Marie, Patrick,

Pour rajouter l'étoile, il va falloir passer par une procédure événementielle et Countif en VBA.

C'est vrai sur Excel 2003 et versions antérieures.

Mais sur Excel 2010 une MFC peut le faire, voir fichier joint.

Je ne sais pas sur Excel 2007.

A+

 

[job75]

Re : Ajouter un suffixe aus doublons

Re,

Ah oui, seule la 1ère cellule doublon de la colonne doit être modifiée.

Formule de la MFC sur la colonne B :

=ET(NB.SI($B:$B;$B1)>1;LIGNE()=EQUIV($B1;$B:$B;0))

Fichier (2).

A+

 

[job75]

Re : Ajouter un suffixe aus doublons

Re,

Voici l'équivalent en VBA pour toutes versions Excel.

Dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:B]) Is Nothing Then
  Etoile [B:B], "General", "General"" *"""
ElseIf Not Intersect(Target, [D:D]) Is Nothing Then
  Etoile [D:D], "General", "@"" *"""
End If
End Sub

Sub Etoile(plage As Range, format1$, format2$)
Set plage = Intersect(plage, plage.Parent.UsedRange)
If plage Is Nothing Then Exit Sub
Dim cel As Range, test As Boolean, r As Range
For Each cel In plage
  If cel <> "" Then
    test = Application.CountIf(plage, cel) > 1 And _
    cel.Row = plage.Row - 1 + Application.Match(cel, plage, 0)
    If test Then Set r = Union(cel, IIf(r Is Nothing, cel, r))
  End If
Next
plage.NumberFormat = format1
If Not r Is Nothing Then r.NumberFormat = format2
End Sub

Fichier joint.

A+

 

[Victor21]

Re : Ajouter un suffixe aus doublons

Bonsoir le fil, job75.

Je signale pour info un comportement erratique du filtre automatique :
Exemple : 100, 101 et 101 * dans la liste.
En sélectionnant 100, 101 et 101 *, 3 lignes s'affichent Normal
En sélectionnant 101 et 101*, seule la ligne contenant 101 s'affiche Surprenant, puisque ce n'est qu'un format
En sélectionnant 101, la ligne contenant 101 s'affiche Normal
En sélectionnant 101 * aucune ligne ne s'affiche Normal, mais surprenant que le filtre ait détecté cette valeur.

 

[job75]

Re : Ajouter un suffixe aus doublons

Re Patrick,

Oui le filtre automatique ne fonctionne pas correctement sur les nombres (ou les textes) formatés.

Avec le filtre avancé (élaboré) il n'y a pas ce problème, mais le format n'est bien sûr pas reconnu.

A+

 

[KyFranRD]

Re : Ajouter un suffixe aus doublons

Bonjour à tous

Désolé pour le temps de réponse. Je n'étais pas dispo.

Merci à vous. Je teste cela de suite

 

[KyFranRD]

Re : Ajouter un suffixe aus doublons

Merci job75

Cela fonctionne, à part 2 petits soucis.

1 >>> Peux-tu faire en sorte que l'étoile apparaisse sur tous les doublons d'un nombre sauf le dernier saisi?

2 >>> J'ai dans mon fichier, par commodité, fait un renvoi des cellules lignes B en G. Comment se fait-il que le renvoi m'indique 100 en G et 100 * en B????

Merci

 

[david84]

Re : Ajouter un suffixe aus doublons

Bonsoir,
ne connaissant pas la version 2003, je ne puis dire si ce qui est proposé ici fonctionne, mais à tester au cas où.
A+

 

[job75]

Re : Ajouter un suffixe aus doublons

Bonsoir KyFranRD, salut David,

Annulé, j'essayerai de voir ce nouveau problème demain.

A+

 

[KyFranRD]

Re : Ajouter un suffixe aus doublons

Bonjour Job75, salut David

Je te remercie Job75 et merci de me venir en aide.

David j'ai visionné le site veriti V 3, mais ne vois pas trés bien comment l'adapter à mon cas??

 

[david84]

Re : Ajouter un suffixe aus doublons

Re

David j'ai visionné le site veriti V 3, mais ne vois pas trés bien comment l'adapter à mon cas??

L'idée est de tester si tu as la possibilité d'insérer l'étoile dans ta MFC lorsque tu accèdes à la boîte de dialogue Format de cellule (Format>Nombre). Si l'étoile ne t'es pas proposée dans la version 2003, tu peux peut-être l'insérer en suivant les explications fournies.
A+