Eviter ou alerter les doublons dans un colonne

[Gwendoline]

Bonjour à toutes et à tous,

Je vous sollicite parce que j'ai beau cherché, mais je suis pas douée! je crois

Je veux faire un tableau et dans une des colonne (N° Remise par exemple), je voudrais qu'il m'alerte quand un n° Remise est déjà utilisée, qu'il me dise dans une petite fenêtre que :

"Le n° Remise existe déjà :
Ligne : ##
N° Remise : ########
Date Remise : ##/##/##
Montant : €€€€€
Restaurant : Excel Restaurant

Sincèrement, celui ou celle qui trouve, sera mon sauveur.

 

[pierrejean]

Re : Eviter ou alerter les doublons dans un colonne

bonjour Gwendoline

En attendant les formulistes

Une version Vba

 

[Tibo]

Re : Eviter ou alerter les doublons dans un colonne

Bonjour,

à la demande de Pierre-Jean , une solution formule basée sur une formule =CELLULE("ligne")

Voir fichier joint

@+

 

[Gwendoline]

Re : Eviter ou alerter les doublons dans un colonne

Bonjour Messieurs,

Et bien merci avant tout, ce que vous avez fait me touche beaucoup.

Mais j'ai testé les deux solutions et il y a un paramètre qui est gênant. C'est lorsque la valeur est 0, il applique la VBA sur toutes les cellules ou le n° de remise est 0. Sachant que mon tableau est super long, je suis emmerdée.

Quelqu'un peut me dire comment je dois faire. Vosu serez adorablee et merci par avance!

 

[BOISGONTIER]

Re : Eviter ou alerter les doublons dans un colonne

Bonjour,

Données/Validation/Pesonnalisé:

=NB.SI(A$2:A$100;A2)=1

Données/Validation

JB
Formation Excel VBA JB

 

[pierrejean]

Re : Eviter ou alerter les doublons dans un colonne

Re

Salut JB

En supposant que j'aie compris !
Teste cette version

 

[BOISGONTIER]

Re : Eviter ou alerter les doublons dans un colonne

Bonjour PierreJean

Je n'avais pas lu l'énoncé complétement.
Mais si tu modifie un code déjà saisi , il me semble qu'il n'est pas détecté.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("monchamp"), Target) Is Nothing And Target.Count = 1 Then
    For Each c In Range("monchamp")
       If UCase(c.Value) = UCase(Target.Value) And c.Row <> Target.Row And c.Value <> Empty Then
         MsgBox "Doublon en :" & c.Address & Chr$(10) _
           & "Date remise:" & c.Offset(0, 1) & Chr$(10) _
            & "Montant:" & c.Offset(0, 1)
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            Target.Select
          End If
      Next c
    End If
End Sub

JB

 

[Gwendoline]

Re : Eviter ou alerter les doublons dans un colonne

Merci, merci mille fois

 

[Gwendoline]

Re : Eviter ou alerter les doublons dans un colonne

Bonjour,

J'ai tenté d'appliquer cela à la réalité mais cela ne fonctionne pas.
J'ai modifié la formule afin de prendre en compte les vraies colonnes.

Mais il ne les reconnaît pas.

Il est possible que vous me dites, où est l'erreur.

Je vous joint également le fichier réel.

Merci par avance!

Je suis nulle

 

[MJ13]

Re : Eviter ou alerter les doublons dans un colonne

Bonjour à tous

Gwendoline: Ok mais c'est quoi le but du jeu!
Ah j'ai compris!

Essaies avec NB.SI
en cellule O2:
=NB.SI(M:M;M2), tu recopies vers le bas et si tu vois Sup à 1 c'est qu'il y en a plus qu'un.

 

[BOISGONTIER]

Re : Eviter ou alerter les doublons dans un colonne

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("monchamp"), Target) Is Nothing And Target.Count = 1 Then
    For Each c In Range("monchamp")
       If UCase(c.Value) = UCase(Target.Value) And c.Row <> Target.Row And c.Value <> Empty Then
         MsgBox "Doublon en :" & c.Address & Chr$(10) _
           & "Date remise:" & c.Offset(0, -12) & Chr$(10) _
            & "Montant:" & c.Offset(0, -6)
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            Target.Select
          End If
      Next c
    End If
End Sub

JB

 

[pierrejean]

Re : Eviter ou alerter les doublons dans un colonne

Re

ma version

Tiens compte de la remarque de JB (et du fait que notre Gwendoline melange le texte et les chiffres)

 

[Gwendoline]

Re : Eviter ou alerter les doublons dans un colonne

Bonjour,

Avant tout, je tiens à dire que je ne m'attendais pas à des aides monstrueuses comme celles là!

GRAND MERCI, je suis extrêmement touchée.

J'ai appliqué la VBA de monsieur PierreJean à mon fichier.

Il y a une erreur de compilation. Je suis certaine que l'erreur ne vient pas de vous PierreJean mais je doute sur la modification que j'ai apportée.

On peut voir cela ensemble?
Je joins le fichier.

 

[pierrejean]

Re : Eviter ou alerter les doublons dans un colonne

Re

Pas de ceremonie Gwendoline , ici le tutoiement est la coutume

voici la version adaptée
(debut en ligne 4 et traduction en format long et non entier)

mes amitiés a K. Mahmoud

 

[Gwendoline]

Re : Eviter ou alerter les doublons dans un colonne

Re PierreJean,

Sensationnel ça marche. Mais je ne comprends pas? Comment as-TU fais ?

J'ai tout de même cherché mais je ne trouvais pas l'erreur.

si tu peux m'expliquer?

Merci merci