Macro Doublons

Bonjour,

si tu me confirmes , car je ne le savais pas , que les lignes que l'on colore en rouge dans "BO_XI" sont déjà regroupées dans la feuille "resultat Doublons" alors ne change rien ?

oui, je te confirme

mais il faut quand même ajouter la ligne de code citée dans mon message précédent.

Pour mettre à jour le code,

1) tu fais Alt+F11 pour afficher le code

2) tu efface tout

3) tu copie le nouveau code

Amicalement

Claude

Bonsoir Claude ,

je viens de tester la dernière version qui fonctionne très bien et ai constaté que tu as même corriger le nouveau code

je te renouvelle encore une fois toute ma sympathie et merci pour ton aide

bon week-end de Pâques

Ps : j'espère ne pas t'avoir trop ennuyé

Amicalement

Michel

bonsoir Claude ,

je reviens vers toi pour savoir si il était possible de rajouter deux colonnes ( début et fin de validité ) dans la feuille BO_XI et celle des résultats des doublons ?

Peux tu également me rajouter un astérix ou autres devant les doublons en rouge dans la feuille BO-XI , cela me permet de les regrouper rapidement à l'aide de filtre .

je sais que c'est un peu confus de l'autre côté de la lorgnette quand on essaie d'expliquer son besoin ......

Merci pour ton aide

amicalement

Michel

Bonsoir,

Tu pourrais faire un effort et modifier toi-même !

Tu ajoute 2 colonnes "E:F", donc tu remplace "d" par "f" dans les codes

exemple:

Columns("a:f").Clear 

f2.Range("a1:f" & lg)..... etc...

et pour le repère des communs, tu ajoute cette ligne à la fin

    f2.Range("g2:g" & lg).SpecialCells(xlCellTypeVisible) = "X"
    f2.ShowAllData
    On Error GoTo 0
End Sub

Claude

Bonsoir Claude,

je suis désolé de t'embêter et j'espère que ce serra la dernière ,

J'ai fait comme tu m'as dit pour modifier la macro , mais maintenant plus rien ne fonctionne .......

peux tu m'aider , en espérant que cela ne t'ennuies pas trop , j'ai essayé de mon côté mais sans succès

Cordialement

Michel

Bonsoir Michel, forum,

Si je te donne du "tout cuit", tu ne progresseras jamais !

recommence comme je t'ai dit, tu vas y arriver.

N'oublies pas de réaffecter la macro au bouton.

Si çà marche pas, tu envoie la macro modifiée,

on corrigera ensemble.

Confiance !

Amicalement

Claude

bonjour Claude,

je te renvoies le fichier corrigé ( j'ai sûrement oublié qq chose ) que je m'étais envoyé au bureau pour essais

mais comme en plus je ne sais pas affecté la macro au bouton ,forcément, çà ne risque pas de fonctionner

mais bon je veux comprendre pour progresser .......

Amicalement

Michel

Bonjour,

Manque 2 lignes où tu n'as pas remplacer "d" par "f"

f2.Range("a1:f" & lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("k1:k2"), Unique:=False

f2.Range("a1:f" & lg).SpecialCells(xlCellTypeVisible).Copy Destination:=Range("a1:f1")

----- Pour affecter une macro au bouton -----

1) clique droit sur le bouton

2) sélectionner "Affecter une macro"

3) sur cette fenêtre, choisir "Doublons" et OK

Amicalement

Claude

bonsoir Claude,

Et bien c'est fait , j'ai suivi tes instructions tout fonctionne à merveille

un grand merci pour ton aide

amicalement

Michel