Discussion :

[Marc-L]

Dans la feuille, la dernière colonne saisie est bien la 11 ème ?

Dans ce cas, encore une fois, c'est plus rapide via .CurrentRegion ! Voir aussi .UsedRange …

Maintenant pour copier les lignes d'une feuille si la donnée dans la première colonne n'existe pas
dans la feuille de destination, il faut tester ligne par ligne via une boucle …

[John Parker]

Oui je te confirmer que la dernière colonne est la 11ème à savoir la K.
En fait il n'y a pas énormément de lignes dans la feuille "ImportClient" étant donné qu'elle conserve uniquement les derniers clients pas encore importés (copiés). Cependant la feuille "FichierClient" à plus de 18 000 lignes.
Du coup, si j'ai bien compris, il faut faire une boucle FOR afin de tester chaque valeur de la colonne A de "ImportClient" et de la comparer aux valeurs de la colonne A de la feuille "FichierClient"

[Marc-L]

Oui c'est cela …

Y-a-t-il une ligne de titre ou pas ? Les données commencent en quelle n° de ligne ?


Sinon je viens de percuter - avant d'aller vers l'usine à gaz - qu'à partir de la version 2007
il y a la méthode Range.RemoveDuplicates existant aussi à partir du menu d'Excel.

Donc même pas besoin de VBA : un copier/coller puis suppression des doublons à partir du menu …

[John Parker]

Oui il y a une ligne de titre dans la feuille principale "FichierClient". En fait j'aimerai vraiment passer par macro afin que mon utilisateur n'ai qu'a faire un clique qui lance une macro appelant plusieurs procédures mais je t'avoue que je galère...

J'ai peut-être trouvé quelque chose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub SupprimeDoublons()
 
Worksheets("FichierClient").Range("A:K").RemoveDuplicates Columns:=1, Header:=xlYes
 
 
End Sub

Ca à l'air de me donner ce que je veux.
Est il possible de choisir quel sera la ligne doublon supprimée? Je m'explique, imaginons que la dernière ligne importée comporte plus d'information que la précédente (un numéro de téléphone en plus par exemple). Est-il possible de conserver celle la?

[Marc-L]

Il faudrait alors tenter un tri auparavant …

[John Parker]

Comment ça?

[Marc-L]

Les données vides d'une plage triée apparaissent après les non vides …

[John Parker]

Le problème est que je veux garder l'ordre du plus anciens client au plus récent

[Marc-L]

Direction l'usine à gaz …

Sauf s'il y a une date d'entrée dans les données …


Sinon boucle sur les lignes de l'import,
comparaison une à une avec l'autre feuille via la méthode Range.Find,
si le client existe, ne copier que les colonnes non vides …

[John Parker]

Oula, je ne sais même pas par ou commencer, j'ai vraiment beaucoup de mal en programmation

En fait c'est bon ne t'embête pas je vais rester avec le RemoveDuplicates.

En tout cas merci d'avoir pris le temps de m'aider!

[Marc-L]

En fait il n'y a pas énormément de lignes dans la feuille "ImportClient" étant donné qu'elle conserve uniquement les derniers clients pas encore importés (copiés). Cependant la feuille "FichierClient" à plus de 18 000 lignes.

Comme il n'y a pas beaucoup de lignes à importer,
la méthode Find étant assez véloce même sur des milliers de lignes,
si l'ordre des colonnes est le même et si l'ordinateur ne rame pas trop, ce serait acceptable …

Le code ne devrait pas être une usine, c'est plutôt la manière comparée à d'autres
mais dans ce cas je ne vois pas d'autre possibilité …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé


__________________________________________________________________________________________
Dieu créa le monde … Le reste c'est Made in China !