Discussion :

[woegan093]

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 :

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

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!

[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 :

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

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

Dans format (de la MFC), choisi la couleur de remplissage.

[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! ^^"

[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 :

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

Worksheets("Feuil2").Range("A2:A7000").FormatConditions.Add(Type:=xlExpression, Formula1:="=NB.SI($B:$B;$A2)>0").Interior.Color = 192

[BENNASR]

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

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

[woegan093]

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 :

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

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).

[Menhir]

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

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.

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.
En somme, il n'y a rien à faire, ça se met à jour tout seul.

[geogeo70]

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é.

Code :

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

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

[Marc-L]

Bonjour,

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

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 …

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