RESOLU Supprimer les valeurs identiques sur la ligne

[chris6999]

Bonjour

Sur la ligne 6 de mon fichier, je souhaiterais, lorqu'une valeur est saisie dans l'une des colonnes, que les valeurs identiques déjà présentes sur la ligne disparaissent.

Le déclenchement se ferait sur un worksheet_change par exemple

Si vous avez une idée, je mets un fichier test en pièce jointe

Cordialement

 

[JCGL]

Re : Supprimer les valeurs identiques sur la ligne

Bonjour à tous,

Peux-tu essayer ceci dans le code la feuille :

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

 

[chris6999]

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

 

[DoubleZero]

Re : RESOLU Supprimer les valeurs identiques sur la ligne

Bonjour, chris6999, JCGL 🙂, le Forum,

Peut-être en remplaçant cette ligne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

par celle-ci :

Private Sub Worksheet_Change(ByVal Target As Range)

Double bise, JCGL 😀😀

A bientôt 🙂

 

[chris6999]

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

 

[phlaurent55]

Re : RESOLU Supprimer les valeurs identiques sur la ligne

Bonjour à tous,

un essai en pièce jointe

à+
Philippe

 

[chris6999]

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