Récupération de donnés d'une colonne entiere sans vides ni doublons

bonjour tout le monde,

j'ai vraiment besoin de votre aide svp.

je suis nouvelle dans le forum.

je débute en vba , je suis autodidacte , mais je rencontre un soucis,

j'ai deux fichiers excel ADD1 et ADD2 chacun a plusieurs feuilles avec plusieurs colonnes, j'aimerai pouvoir récupérer toutes les cellules de la colonne E de la feuille 2 du fichier ADD1 vers la colonne H de la feuille4 du fichier ADD2.

le problème est que je dois créer un bouton pour récupérer une à une les cellules en supprimant les vides et les doublons.

on me suggère d'utiliser des boucles mais mon code ne marche pas.

j'ai regardé bcp de suggestions de code dans le forum, mais c'est soit pour supprimer les doublons seulement soit pour éliminer les vides seulement. moi je faire les deux à la fois

PS: je ne peux pas joindre le fichier mon employeur me l'interdit.

merci d'avance pour toute réponse.

Bonjour,

Ben tu joins une copie avec juste les colonnes des feuilles qui nous intéressent...

(Et ton code qui ne marche pas...)

A+

Bonjour galopin, merci pour votre réponse.

Au fait j'aimerais bien vous envoyer la feuille avec les colonnes mais je risque d'avoir des problèmes.

j'ai réussi à éliminer les vides avec le code que j'ai utilisé mais je dois y insérer une autre boucle pour pouvoir aussi éliminer les doublons en meme temps.

vous trouverez ci joint mon code pour éliminer les vide. ( en capture d'écran)

Hum... Tu sais que dans le ruban > Données tu as une commande (Supprimer les doublons) qui te fait ça très bien !

Salut coumbiss,

Si tu veux supprimer les doublons via VBA, j'ai ce bout de code utilisé dans l'un de mes projets que tu pourrais intégrer :

Dim DerLig as Long
Dim DerCol as Long

DerLig = Workbooks("NOMDETONFICHIER+EXTENSION").Sheets("NOMDETAFEUILLE").Cells(Rows.Count, 1).End(xlUp).Row
DerCol = Workbooks("NOMDETONFICHIER+EXTENSION").Sheets("NOMDETAFEUILLE").Cells(1, Columns.Count).End(xlToLeft).Column
' Supprimer les doublons
ActiveSheet.Range((Cells(1, 1)), (Cells(DerLig, DerCol))).RemoveDuplicates Columns:=2, Header:=xlYes '2 étant le numéro de la colonne dans laquelle supprimer les doublons

Ce code peut peut-être être simplifié selon ton cas.

Sinon, pour pouvoir t'aider au mieux, tu pourrais essayer de censurer ton fichier et nous l'envoyer?

Modifie toutes les données sensibles en données bidons .

Ok ok très bien .

Bon courage pour la suite!

Merci