Macro pour Extraire doublons depuis plusieurs colonnes.

Question

Bonjour,

Je dispose de deux feuilles sur Excel :

  - La premiere comporte des informations sur les clients (Nom, prénom, adresse, Numéro de facture, montant en devise et montant en dollars) et elle constitue la base de données de base.

  - La deuxième comporte également ce type de données pour les mauvais payeurs client (Nom, prénom, adresse, Numéro de facture, montant en devise seulement)

Je vouderai une macro sur excel qui me permetterai d'extraire tout les clients qui figure sur la 2ème feuille et qui ont le même montant en devises que celui figurant SOIT en devises SOIT en dollar sur la preière feuille et qu'il puisse les afficher avec l'ensemble de leur données (adresse, numéro de factures) sur une 3ème feuille !!!!!

Merci d'avance

mortalino · Answer

salut,

il faut boucler sur tes deux feuilles.

dim i as integer, j as integer
dim NomTemp as string

for i = 1 to Sheets(2).Range("a1").End(xlDown).Row
    NomTemp = cells(i, 1).Value
    for j = 1 to Sheets(1).Range("a1").End(xlDown).Row
        If cells(j, 1).Value = NomTemp then
            ' action a faire si le nom correspond
        end if
    next j
next i

Voilà déjà un indice, fait différent tests 
(adpate les valeurs des feuilles (sheets(?)) et des cellules (cells(i, ?))

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_ziip2 · Answer

Merci pour ta réponse mais j'oublié de te signaler un truc : c'est que je ne suis encore qu'un débutant sur VB !!!  est ce que tu pourrai "vulgariser un peu l explication" loll !!!! J'ai pas saisi le passage :  

il faut boucler sur tes deux feuilles.

dim i as integer, j as integer
dim NomTemp as string

et aussi les i et les j est ce que je dois aussi les remplacer ? 

Merci d'avance

mortalino · Answer

non, je commente mes lignes : for i = 1 to Sheets(2).Range("a1").End(xlDown).Row ' là la boucle sert à faire donner comme valeur à la variable 'i' _ 1, puis 2, puis 3, etc.. jusqu'à la derniere ligne utilisée de _ la seconde feuille. NomTemp = Sheets(2).cells(i, 1).Value ' ici, quand i vaut 1, NomTemp = ce qu'il y a dans la cellule A1 de _ la seconde feuille (au passage, je viens de corriger une erreur^) for j = 1 to Sheets(1).Range("a1").End(xlDown).Row ' là la boucle sert à faire donner comme valeur à la variable 'j' _ 1, puis 2, puis 3, etc.. jusqu'à la derniere ligne utilisée de _ la premiere feuille. If cells(j, 1).Value = NomTemp then ' Si la valeur de A1, puis A2, puis A3, etc.. = ce qui est contenu _ dans la variable NomTemp, alors faire.. ' action a faire si le nom correspond end if next j next i ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA

mortalino · Answer

Le mieux c'est que tu test en mode pas à pas (avec F8 dans le VBE), ça execute le code ligne par ligne. Et quand tu survoles les variables avec la souris, tu as leurs valeurs au moment de l'exécution en cours (donc regarde i, j et NomTemp)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Phiphi41 · Answer

Bonjour

Tu auras aussi des informations dans la gestion des doublons dans ce tutorail : http://silkyroad.developpez.com/excel/doublons/

cs_ziip2 · Answer

merci les gars !!! c est vraiment sympa !!! je vous tienderai au courant !!!

Macro pour Extraire doublons depuis plusieurs colonnes.

6 réponses

Votre réponse

Discussions similaires