Supprimer les Doublons Fermé

Question

Bonjour à tous, 

je viens vers vous car je suis bloqué !!!

j'ai une fonction macro :


Sub Ajouter()Dim Lig As Byte, Col As Byte, zone()Dim Ligvide As IntegerWith Sheets("Gestion").Range("A2:C13")     Lig = .Rows.Count     Col = .Columns.Count     zone = .ValueEnd WithWith Sheets("Table de données")     Ligvide = .Columns("A").Find("*", , , , , xlPrevious).Row + 1     .Unprotect     .Cells(Ligvide, "A").Resize(Lig, Col) = zone     .ProtectEnd WithEnd Sub

Avec cette fonction j'ajoute les données dans une tableau sur un autre feuillet.
le problème est que je peux avoir plusieurs donnée en double , 
j'aimerai que lors de l'ajout cela vérifie qu'il n'y est pas déjà la donnée et que si elle existe , la remplace !
 
merci de votre aide


Configuration: Windows 7 / Mozilla 11.0

Souafeur · Answer

Salut,

Même si il doit exister une méthode plus directe ou plus rapide, voici comment je ferais :

Créer une fonction, renvoyant un booléen (initialisé à FALSE), qui parcours ton tableau (final) à la recherche de la donnée que tu veux ajouter. Si la donnée est trouvée dans ton tableau alors le booléen prend la valeur TRUE, sinon il reste à FALSE.

Ensuite, si le résultat de la fonction est FALSE, alors on rempli le tableau (car la données est inédite) et si le résultat est TRUE alors on passe à la donnée suivante sans rien écrire dans le tableau.

Voila, en espérant que ça t'aideras :)

lamouette · Answer

Merci de votre réponse 

mais étant novice je ne sais comment faire !! 

pourriez vous me montrer ? 

merci par avance

michel_m · Answer

Bonjour,

Quel est le type des données texte, nombre, date... 

j'aimerai que lors de l'ajout cela vérifie qu'il n'y est pas déjà la donnée et que si elle existe , la remplace ! 

La remplace par quoi ?

lamouette · Answer

bonjour, les données sont :

Date	 - Prénom	- Fonction

j'ai un formulaire dans le feuillet "gestion" et un bouton "Ajouter" avec la macro plus haute.

je rentre mes données date prénom fonction ça ajoute dans le feuillet "table de données" quand je clique sur le bouton.

ce que j'aimerai c'est que si j'ajoute une autre donnée avec par exemple la même date et la même personne mais que la fonction diffère cela remplace la donnée existante avec la même date et la même personne.

je sais pas si je suis assez clair c'est pas évident d'expliquer! 

merci

Supprimer les Doublons

4 réponses

Discussions similaires