macro doublons

[chinel]

Salut tout le monde !


je recherche à faire une liste de nom de la cellule "A6" à la cellule "M36" dans ma feuille
si je mets le même nom peu importe dans les cellules entre "A6" et "M36" il faudrait q'un message m'indique que se nom est déjà utilisé et ou

exemple :

P09-P10 (en A6) et Manu D (en B6) et si je remets Manu D (en C6) un message me dit "Attention Manu D déjà utilisé sur P09-P10 !)


merci de votre aide !!!🙂

 

[kiki29]

Re : macro doublons

à adapter

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Inter As Variant
    Set Inter = Application.Intersect(Cible, ActiveSheet.Range("A6:M36"))
    If Inter Is Nothing Then Exit Sub
    
    Cible.Value = Trim(Cible.Value)
    If Len(Cible.Value) > 0 Then
        If Application.CountIf(Range("A6:M36"), Cible) > 1 Then
            Cible.Value = ""
            Cible.Select
        End If
    End If
End Sub

 

[JCGL]

Re : macro doublons

Bonjour,

Un essai avec Mise en Forme Conditionnelle

Après avoir sélectionné A6:M36

Condition1 :

=ET(A6<>"";NB.SI($A$6:$M$36;A6)>1)

et tu choisis ton format

A+

 

[jeanpierre]

Re : macro doublons

Bonsoir chinel,





Peux-tu




Expliciter





plus






doucement



Car, à lire et à relire.... un simple extrait...

"A6" à la cellule "M36" dans ma feuille

dans les cellules entre "A6" et "M36" il faudrait P09-P10 (en A6) et Manu D (en B6) et si je remets Manu D (en C6) un message me dit

Aurais-tu un Excel frelaté ????

Moi, le mien est bon, normalement déclaré.... ou vais-je devoir me rendre à l'abattoir.... Pfff.

Jean-Pierre

 

[jeanpierre]

Re : macro doublons

Re,

et pour rester très hospitalier...... JC y minerve..... lui... des fois....😱 😀
worarffff

 

[chinel]

Re : macro doublons

Merci JCGL !!!

et merci à tout le monde de votre aide !!!