Discussion :

[PiliSql]

Bonjour,

Voilà VBA c'est nouveau pour moi, je travaille sur un petit projet et je rencontre des difficultés:

1- j'ai deux colonnes dans une feuille Excel colonne B et C ou il y a des infos

dans une autre feuille, j'ai une colonne A où les infos contenues dans B et C figurent plus d'autres infos.

Mon problème -----> je voudrais par le biais d'une macro comparer le contenu de chaque cellule de A avec le contenu de B et C s'il trouve une correspondance il me colorie la cellule avec du jaune si la correspondance est dans B ou il me colorie en Bleu si dans C

sinon il fait rien et il passe à la cellule suivante et ainsi de suite jusqu'à la fin.




D'avance MERCI

[Mimosa777]

Salut PiliSql,

voila une macro que j'ai créé qui devrait faire ton bonheur !

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
 
Sub Comparer_Click()
With Worksheets("Sheet1").Range("b:b")
            For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            mavar = ActiveWorkbook.Sheets("Sheet2").Range("a" & n)
            Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole)
          ' eviter une erreur si c.row ne retourne pas de valeur
            If Not c Is Nothing Then
            ligne = c.Row
            End If
            If ActiveWorkbook.Sheets("Sheet2").Range("a" & n).Value = Worksheets("Sheet1").Range("b" & ligne) Then
            Sheet2.Range("a" & n).Interior.ColorIndex = 6
            End If
            Next
End With
With Worksheets("Sheet1").Range("c:c")
            For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            mavar = ActiveWorkbook.Sheets("Sheet2").Range("a" & n)
            Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole)
          ' eviter une erreur si c.row ne retourne pas de valeur
            If Not c Is Nothing Then
            ligne = c.Row
            End If
            If ActiveWorkbook.Sheets("Sheet2").Range("a" & n).Value = Worksheets("Sheet1").Range("c" & ligne) Then
            Sheet2.Range("a" & n).Interior.ColorIndex = 5
            End If
            Next
End With
End Sub

J'ai donc pris en consideration tes 2 feuilles (Sheet1 et Sheet2). Sheet1 est la feuille contenant les colonnes B et C et Sheet2 la colonne A a comparer. Voir le fichier joint pour tester...

Dis moi si ca te conviens.

P.S : pour les experts, je débute en VBA, alors s'il ya un code plus simple, faites le moi savoir

A+

[fring]

Bonjour,

Ci-dessous une solution éventuelle

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
Sub test()
Dim i As Integer
 
With Sheets(1)
    For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
        Set c = Sheets(2).Range("B:C").Find(.Cells(i, 1), , , xlWhole)
        If Not c Is Nothing Then
            If c.Column = 2 Then
                .Cells(i, 1).Interior.ColorIndex = 6
            Else
                .Cells(i, 1).Interior.ColorIndex = 5
            End If
        End If
    Next
End With
 
End Sub

Il faut adapter les noms des deux feuilles :
Sheets(1) = Sheets("nom de la feuille colonne A")
Sheets(2) = Sheets("nom de la feuille colonnes B et C")

[Mimosa777]

EH oui.. Fring, t'as solution est beaucoup mieux que la mienne.

Tu es mon maitre

[fring]

EH oui.. Fring, t'as solution est beaucoup mieux que la mienne.

L'idée est la même juste que...comme je suis un peu fainéant , je fais la recherche sur les deux colonnes dans la même boucle.

Juste pour info concernant ActiveWorkbook, il n'est pas besoin de le préciser, il n'ira pas chercher ailleurs, par défaut il s'exécutera dans le classeur actif.

[PiliSql]

Merci Bcp.