Eviter ou alerter les doublons dans un colonne

Gwendoline

XLDnaute Junior
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.
 

Pièces jointes

  • N° Remise.xls
    19 KB · Affichages: 96

pierrejean

XLDnaute Barbatruc
Re : Eviter ou alerter les doublons dans un colonne

bonjour Gwendoline

En attendant les formulistes

Une version Vba
 

Pièces jointes

  • N° Remise.zip
    8.3 KB · Affichages: 67
  • N° Remise.zip
    8.3 KB · Affichages: 68
  • N° Remise.zip
    8.3 KB · Affichages: 73

Tibo

XLDnaute Barbatruc
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

@+
 

Pièces jointes

  • alerte_doublons.zip
    2.7 KB · Affichages: 91

Gwendoline

XLDnaute Junior
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!
 

pierrejean

XLDnaute Barbatruc
Re : Eviter ou alerter les doublons dans un colonne

Re

Salut JB :)

En supposant que j'aie compris !
Teste cette version
 

Pièces jointes

  • N° Remise.zip
    8.4 KB · Affichages: 43
  • N° Remise.zip
    8.4 KB · Affichages: 44
  • N° Remise.zip
    8.4 KB · Affichages: 43

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
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é.

Code:
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
 

Pièces jointes

  • WorkSheetChangeDoublons.xls
    28 KB · Affichages: 87
Dernière édition:

Gwendoline

XLDnaute Junior
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 :(
 

Pièces jointes

  • Classeur 4.xls
    17 KB · Affichages: 75
  • Classeur 4.xls
    17 KB · Affichages: 76
  • Classeur 4.xls
    17 KB · Affichages: 73

MJ13

XLDnaute Barbatruc
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.
 
Dernière édition:

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Eviter ou alerter les doublons dans un colonne

Bonjour,

Code:
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
 

Pièces jointes

  • Classeur4.xls
    26.5 KB · Affichages: 86
  • Classeur4.xls
    26.5 KB · Affichages: 88
  • Classeur4.xls
    26.5 KB · Affichages: 73

pierrejean

XLDnaute Barbatruc
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)
 

Pièces jointes

  • Classeur 4.zip
    8.7 KB · Affichages: 43
  • Classeur 4.zip
    8.7 KB · Affichages: 42
  • Classeur 4.zip
    8.7 KB · Affichages: 44

Gwendoline

XLDnaute Junior
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.

:)
 

Pièces jointes

  • BDRAP 2008 KFC.zip
    31.1 KB · Affichages: 33
  • BDRAP 2008 KFC.zip
    31.1 KB · Affichages: 46
  • BDRAP 2008 KFC.zip
    31.1 KB · Affichages: 43

pierrejean

XLDnaute Barbatruc
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
 

Pièces jointes

  • BDRAP 2008 KFC.zip
    29.8 KB · Affichages: 65
  • BDRAP 2008 KFC.zip
    29.8 KB · Affichages: 72
  • BDRAP 2008 KFC.zip
    29.8 KB · Affichages: 68

Discussions similaires

Statistiques des forums

Discussions
312 801
Messages
2 092 245
Membres
105 314
dernier inscrit
SABER ABD