Gérer les doublons avec un caractère fixe à la fin
Bonjour,
Pourriez-vous m’aider à trouver une macro pour gérer les valeurs en double
Je veux que sur la feuille 1 pour toutes les colónes A1 les valeurs qui seront saisies ou collées mais ils existent deja
un caractère comme « .bis » sera ajouter systématiquement au dernier valeurs ajoutées
Exemple :
1234
9876
1234.bis
Merci d’avance pour l’aide
Bonjour,
Sans répondre strictement à votre demande, un bon compromis serait de mettre le résultat sur une autre colonne avec cet événement :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NbValeurs As Integer
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
NbValeurs = WorksheetFunction.CountIf(Columns("A:A"), Target)
If WorksheetFunction.CountIf(Columns("A:A"), Target) > 1 Then
Target.Offset(0, 1) = Target & "-" & WorksheetFunction.CountIf(Columns("A:A"), Target)
End If
End If
End Sub
bonjour,
Merci Eric, oui c’est presque ce que je veux
Je vais le rapprocher a mon besoin
Bonjour Niba, Eric Kergresse, le forum,
Un autre essai....
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Columns("A:A"), Target) > 1 Then
If Target <> "" Then Target = Split(LTrim(Target), ".")(0) & ".bis"
End If
End If
End Sub
Cordialement,
Re,
Autre essai en me basant sur la proposition d'Eric,
Option Explicit
Dim nb%, cancel As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Columns("A:A"), Target) > 1 Then
cancel = True
If Target <> "" Then
nb = WorksheetFunction.CountIf(Columns("A:A"), Target & "(*)") + 2
Target = Split(LTrim(Target), "(")(0) & "(" & nb & ")"
End If
End If
End If
End Sub
Cordialement,
bonjour xorsankukai et gmb
Merci pour votre générosités