DOUBLONS

Bonjour à tous,

Je vous souhaite UNE BONNE et HEUREUSE année 2011.

Fichier en PJ.

Ca fait 2 jours que je cherche comment gérer mes doublons dans le fichier que je fais en ce moment.

J'ai essayé plusieurs formules mais rien n'y fait.

NB.SI

le VBA

Je vous demande un peu d'aide, merci

Doliprane

Bonsoir,

Une solution parmi d'autres

en O2 à tirer vers le bas

=NB.SI(B:B;B2)

ensuite tu peux filtrer ou trier la colonne O

et voir pour supprimer les lignes ayant une valeur >1

Amicalement

Claude

Re,

Ben je connais cette soluce mais, quant un agent entre un nouveau véhicule dans la feuille Nouveau Véhicule, s' il tape une immatriculation qui existe déja, un message l'averti que le véhicule se trouve déja en feuille BD véhicule.

merci

re,

en début de macro "Nouveau_Véhicule", ajoute un contrôle

Dim x%
    x = Application.CountIf(Sheets(1).Range("b:b"), Range("c5"))
    If x > 1 Then
        MsgBox ("Existe déjà !")
        Exit Sub
    End If
'--- suite macro ---

Claude

re

Merci de te pencher sur mon problème.

Il y a une erreur de procédure je pense que la ligne ou il y a RANGE("b:b"), il faut mattre RANGE([BD Véhicule]"b:b)

tu en pense quoi?

car la recherche doit se faire en feuille BD Véhicule pour savoir si le véhicule existe déja, car les lignes 1 et 2 dans la feuille NOUVEAU Véhicule ne sert qu'à recopier les infos en BD véhicule +1

DOLI

remplace

x = Application.CountIf(Sheets(1).Range("b:b"), Range("c5"))

par

    x = Application.CountIf(Sheets("BD Véhicules").Range("b:b"), Range("c5"))

re

je viens de faire le changement,

Il inscrit toujours l'immatriculation en double dans la cellule B de la feuille BD Véhicules.

re,

simple logique, il faut mettre 0 au lieu de 1

    If x > 0 Then

Claude

re,

CA marche il détecte le doublon, mais il l'inscrit quand même en feuille BD .

Je suis pas loin de te faire une bise lol

pas possible puisqu'avec Exit Sub, on sort de la macro !

envoie ici le code complet

Claude

re

Voici le code que j'ai mis

Merci encore.

PJ fichier Word

Doli

tu as oublier le Exit Sub avant le End If

Dim x%
    x = Application.CountIf(Sheets(1).Range("b:b"), Range("c5"))
    If x > 0 Then
        MsgBox ("Existe déjà !")
        Exit Sub
    End If
'--- suite macro ---

re,

CA MARCHE,

SSSSSMAAAAAAAACCCC !!!!

Tu es mon sauveur, ca fait 2 jours que je suis dessus, et toi tu me fais ca en 2 minutes.

MILLES merci de ton aide. Puis je me permettre de te soliciter si je rencontre d'autre problèmes?

MERCI encore de ta patience.

DOLIPRANE. et que mes meilleurs voeux t'accompagne pour cette nouvelle année.

DOLIPRANE amitiées