Msgx box pour info doublon sur cellules discontinues

[soffy]

Bonsoir

Je reviens vers vous pour de l'aide. Je souhaite afficher un message lors de la saisie si présence d'un doublon.

Comment puis-je après saisie d'une ligne verifier :

quand a c e g i il n'ya pas de doublon
puis quand b d f h j il n'ya pas de doublon non plus

Si vous avez des idées

Merci
Sophie

 

[ERIC S]

Re : Msgx box pour info doublon sur cellules discontinues

Bonjour

à essayer exemple pour 2 colonnes

sélectionnes A et C et A1 avec touche ctrl
format mise en forme conditionnelle

la formule est
=(NB.SI($A:$A;A1)+NB.SI($C:$C;A1)>1)
format
motif rouge

 

[Cousinhub]

Re : Msgx box pour info doublon sur cellules discontinues

Bonjour, essaie ceci : (à insérer dans le code de ta feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
Set plage = Range(Cells(Target.Row, 1), Cells(Target.Row, 10)) 'de la colonne A à J
If Not Intersect(plage, Target) Is Nothing And Target.Count = 1 Then
For Each c In plage
If UCase(c.Value) = UCase(Target.Value) And c.Column <> Target.Column _
And c.Value <> Empty And c.Column Mod 2 = Target.Column Mod 2 Then
MsgBox "Doublon"
Target.Value = Empty
Target.Select
Exit Sub
End If
Next c
End If
End Sub