RESOLU Supprimer les valeurs identiques sur la ligne

JCGL

XLDnaute Barbatruc

• 9 Février 2013

• #2

Re : Supprimer les valeurs identiques sur la ligne

Bonjour à tous,

Peux-tu essayer ceci dans le code la feuille :

VB:

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row <> 6 Then Exit Sub
    If Application.WorksheetFunction.CountIf(Range("B6:Z6"), Target.Value) > 1 Then Target = ""
End Sub

A + à tous

 

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 9 Février 2013

• #3

Re : Supprimer les valeurs identiques sur la ligne

Bonjour JCGL et merci pour ta réponse

Je viens de tester ta proposition qui fonctionne mais partiellement.
Lorsque je saisis une valeur déjà connue sur la ligne rien ne se passe.
Par contre lorsque je reviens sur une des cellules où se situe le doublon, la valeur s'efface.
Ce que je voulais c'était effacer les mêmes valeurs au moment de la validation de la cellule (et conserver la valeur qui vient d'être saisie).

Merci

 

Pièces jointes

• test_supprime_doublon.xls

  20 KB · Affichages: 28
• test_supprime_doublon.xls

  20 KB · Affichages: 29
• test_supprime_doublon.xls

  20 KB · Affichages: 25

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 9 Février 2013

• #4

Re : RESOLU Supprimer les valeurs identiques sur la ligne

Bonjour, chris6999, JCGL , le Forum,

Peut-être en remplaçant cette ligne :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

par celle-ci :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Double bise, JCGL

A bientôt

 

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 9 Février 2013

• #5

Re : RESOLU Supprimer les valeurs identiques sur la ligne

Bonjour

J'avais déjà essayé mais au lieu d'effacer la valeur en doublon i supprime la valeur qui vient d'être saisie...

Merci quand même
Cordialement

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Février 2013

• #6

Re : RESOLU Supprimer les valeurs identiques sur la ligne

Bonjour à tous,

un essai en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xls

  32 KB · Affichages: 43
• 111.xls

  32 KB · Affichages: 56
• 111.xls

  32 KB · Affichages: 52

Vote positif 0 Vote négatif

chris6999

XLDnaute Impliqué

• 9 Février 2013

• #7

Re : RESOLU Supprimer les valeurs identiques sur la ligne

Merci Philippe cela fonctionne nickel.

Et encore bravo pour tes réalisations! Du vrai travail d'artiste!

Cordialement

 

Vote positif 0 Vote négatif