Macro pour comparer

Version imprimable

Macro pour comparer

Bonjour à toutes et à tous,

Je voudrais me faciliter la vie en mettant une macro sur mon fichier excel pour comparer deux colonnes successives sur la même feuille. J'ai la première qui contient à peu près 7000 lignes et la seconde, en colonne B, qui en contient une partie des 7000 (+/- 2000).
Je voudrais réaliser une macro qui me compare le numéro présent dans chaque ligne de ma colonne B avec les numéros présents dans la colonne A, et une fois qui me l'a repéré, me la colorie en un fond d'une couleur (ou me supprime le numéro) dans la colonne A (celle qui les contient tous). L'idée est de pouvoir rapidement voir quels sont les numéros qui ne sont pas présents dans la deuxieme colonne.

Mes deux colonnes contiennent donc des nombres mais sont sous format texte (à cause de leur extraction depuis un logiciel sur internet).

Voila ce que j'ai fait:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Sub comparer_les_oppties_nb() Dim i As Long, j As Long, nb_lignesQTR As Long, nb_lignesPacing As Long, k As Long Workbooks("Dashboard-convertibility.xlsm").Sheets("Intermediate").Activate Range("A1").Select nb_lignesPacing = Range("A1", Selection.End(xlDown)).Cells.Count nb_lignesQTR = Range("B1", Selection.End(xlDown)).Cells.Count k = 2 For j = 2 To nb_lignesQTR 'petite colonne qui contient une partie des numéros For i = 2 To nb_lignesPacing 'grande colonne qui contient tous les numéros If Cells(i, 2) <> Cells(j, 1) Then Cells(i, 2).Interior.Color = RGB(255, 0, 0) End If Next Next End Sub
Mais ça ne fonctionne pas bien (très long temps d'execution en heures...) et pas vraiment juste (ça me colorie tout quand je ferme ma boucle sur les 10 premières valeurs).

Quelqu'un pourrait m'aider svp ? C'est juste horrible de comparer les numéros en ce moment !:'(

Merci à vous!

13/02/2017, 16h22
mercatog

Sans vba et avec une mise en forme conditionnelle (MFC).

Tu sélectionnes la plage de ta colonne A (Disons A2:A7000)
Onglet Accueil > MFC > Nouvelle règle > Utilise une formule...

Insère la formule suivante

Code:

=NB.SI($B:$B;$A2)>0

Dans format (de la MFC), choisi la couleur de remplissage.
13/02/2017, 16h39
woegan093

merci à toi
mais je cherche à automatiser mon process. En fait, c'est deux colonnes sont le résultat d'une macro qui me les copie dans un autre workbook. Après avoir utilisé une macro qui me donne juste mes nombres qui sont présents que dans la première colonne, je vais pouvoir faire une macro qui me recupere des données dans d'autres workbooks.

Le but pour moi est que les gens de mon équipe puissent utiliser mon fichier excel et avoir leurs données juste "en cliquant sur des boutons" de macro. J'ai déjà pu le faire pour pleins de petits trucs pour leur faciliter la vie mais sur celui la c'est un bon coup de main sur mon code vba qu'il me faudrait! ^^"
13/02/2017, 16h54
mercatog

Rien ne t'empêche de faire la MFC par macro.

Utilise d'abord l'enregistreur de macro et tu auras un code que tu peux optimiser

Exemple

Code:

Worksheets("Feuil2").Range("A2:A7000").FormatConditions.Add(Type:=xlExpression, Formula1:="=NB.SI($B:$B;$A2)>0").Interior.Color = 192
13/02/2017, 17h14
BENNASR

Bonsoir à tous
Pour le rapprochement entre la colonne A & B tu peut utiliser la formule suivante (en colonne C) :

Citation:

RAPPROCHEMENT ENTRE DEUX COLONNES
SI(NB.SI($A$1:$A1;A1)>NB.SI($B$1:$B$6;A1);A1;"")

l'automatisation et le copiage vers le bas se fait avec enregistreur auto
bonne continuation
13/02/2017, 17h48
Menhir

D'accord avec mercatog :ccool: : la solution par MFC est bien plus pratique et plus rapide, à tous points de vue.

Citation:

En fait, c'est deux colonnes sont le résultat d'une macro qui me les copie dans un autre workbook. Après avoir utilisé une macro qui me donne juste mes nombres qui sont présents que dans la première colonne, je vais pouvoir faire une macro qui me recupere des données dans d'autres workbooks.

J'ai un peu de mal à suivre ton explication sur ce qui est copier dans quoi, mais si tu ne veux pas que la MFC soit copiée ailleurs (ou écrasée par la copie de quelque chose venant d'ailleurs), il suffit de copier uniquement les valeurs et non la case entière.

Citation:

Le but pour moi est que les gens de mon équipe puissent utiliser mon fichier excel et avoir leurs données juste "en cliquant sur des boutons" de macro.

Avec une MFC est pareil, le "clique sur un bouton" en moins. :mrgreen:
En somme, il n'y a rien à faire, ça se met à jour tout seul.

1 pièce(s) jointe(s)

en vba ...

voici un code un code corrigé qui fonctionne, je l'ai un peu compliqué en indiçant la ligne de début de zone, ce sera plus facile à adapter en fonction de la zone à traiter.
J'ai utilisé un tableau pour plus de rapidité.
Pièce jointe 244313

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub comparer_les_oppties_nb()
 
 
Dim i As Long, j As Long
Dim T() As Variant
Dim util As Range
Dim trouve As Boolean
 
'Workbooks("Dashboard-convertibility.xlsm").Sheets("Intermediate").Activate
 
fin_a = Range("A8000").End(xlUp).Row
fin_b = Range("B8000").End(xlUp).Row
l = 2 'ligne de début
 
Set util = Range(Cells(l, 1), Cells(fin_a, 2)) 'zone à traiter
 
ReDim T(util.Rows.Count, 2) 'tableau des valeurs à comparer
 
 
T = util 'mise en tableau
 
 
For i = 1 To fin_b - l + 1 'grande colonne qui contient tous les numéros
   j = 1 'ligne courante de colonne A
   trouve = False
   While Not trouve And j <= fin_a - l + 1
     trouve = T(i, 2) = T(j, 1) 'est-ce trouvé?
     If Not trouve Then j = j + 1
   Wend
   If Not trouve Then Cells(i + l - 1, 2).Interior.Color = RGB(255, 0, 0)
Next
 
End Sub

Ce devrait être assez rapide, j' arrête la recherche lorsqu'elle est trouvée.
Cordialement
geogeo

c'est bon ça marche !!! Merci à vous tous! :)

Petite question sous-jacente, maintenant je suis en train de faire une macro qui dit "si la cellule est de telle couleur alors on va copier la ligne du rapport A dans le Rapport B"
j'ai fait ceci, ça me parait bon mais du coup je crois qu'il ne reconnait pas ma condition en if:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Columns("A:B").Select Selection.FormatConditions.AddUniqueValues Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority Selection.FormatConditions(1).DupeUnique = xlUnique With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = RGB(0, 255, 0) .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False i=2 j=2 While Cells(i, 1) <> "" If Cells(i, 1).Interior.Color = RGB(0, 255, 0) Then Workbooks("PS Total Opportunities for Pacing-GB.xlsm").Sheets("PS Total Opportunities for Paci").Rows("i:i").Select Selection.Copy Workbooks("Dashboard-convertibility.xlsm").Sheets("Missing Oppties").Rows("j:j").Select Selection.PasteSpecial j = j + 1 End If i = i + 1 Wend
si vous pouvez me dire ce qui est à modifier pour qu'il reconnaisse ma condition sur la cellule colorée vraie, merci.
(quand je fais F8 pour voir ce qu'il se passe step by step je vois qu'il passe directement de ma condition if à end if).

edit: en regardant de plus près, quand je regarde le format de ma cellule colorée en vert, il me dit que dans "remplissage" (fill) la" couleur de fond" = no color. Mais elle est bien en vert (du fait de la condition).

14/02/2017, 11h33
Menhir

Si la couleur de la cellule est issue d'une mise en forme conditionnelle, la propriété Interior.Color ne la reconnaitra pas.

D'une manière générale, c'est une très mauvaise idée, dans Excel (y compris en VBA), d'utiliser la couleur comme donnée d'entrée.
Mais c'est encore nettement pire (pour ne pas dire quasiment impossible) de le faire quand cette couleur est issue d'une MFC.

Les couleurs d'une MFC ne sont pas captées par code

Sinon, revois la condition initiale
Code:

1 2 3 4 5 6 7 While Cells(i, 1) <> "" If WorksheetFunction.CountIf(Range("B:B"), Cells(i, 1)) > 0 Then Workbooks("PS Total Opportunities for Pacing-GB.xlsm").Sheets("PS Total Opportunities for Paci").Rows(i).Copy Workbooks("Dashboard-convertibility.xlsm").Sheets("Missing Oppties").Range("A" & j) j = j + 1 End If i = i + 1 Wend
PS. Attention aux Range et Cells où on n'indique pas les feuilles et classeurs parents. Surement tu auras des surprises désagréables

:plusser: Menhir

14/02/2017, 13h21
Marc-L

Bonjour,

déjà je m'arrête là :

Citation:

Envoyé par woegan093

Mes deux colonnes contiennent donc des nombres mais sont sous format texte (à cause de leur extraction depuis un logiciel sur internet).

Aucun rapport avec l'extraction ‼ C'est juste l'importation devant donc être corrigée … :roll:

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …