Discussion :

[fouinette13]

Bonjour,

Le programme que je veux faire sert à savoir si les cellules de la colonnes B sont présentes dans la colonne A et colorier la cellule le cas échéant.

Voici le code :

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
 
Sub compare()
   Dim Wb As Workbook
   Dim Ws As Worksheet
   Dim Cell1 As Range
   Dim Cell2 As Range
   Dim Plage As Range
   Dim Plage2 As Range
   Dim Cont1 As String
   Dim Cont2 As String
 
   Set Wb = Workbooks("Classeur2.xlsx")
    For Each Ws In Wb.Worksheets
       Set Plage = Ws.Columns(2)
       Set Plage2 = Ws.Columns(1)
       For Each Cell1 In Plage
           Set Cont1 = Cell1.Text
            For Each Cell2 In Plage2
               Set Cont2 = Cell2.Text
               If InStr(Cont2, Cont1) > 0 Then Cell2.Interior.ColorIndex = 28
           Next Cell2
       Next Cell1
   Next
End Sub

Cela me retourne une erreur : Erreur de compilation : Objet requis sur l'expression "Cont1 =".

Avez-vous une idée de ce qui bloque ?

Merci à vous !

[Pierre Fauconnier]

bonjour,

La première réponse que j'ai envie de donner, c'est : "Y-a-t-il vraiment besoin de VBA?"

Si non, la mise en forme conditionnelle peut s'avérer une solution très intéressante... http://fauconnier.developpez.com/tut...onditionnelle/

[anasecu]

Bonjour,

Dim Cont1 As String et puis Set Cont1 = Cell1.Text


Cela me retourne une erreur :
Normal, il faut regarder l'aide sur set qui n'a rien à faire avec un string.

[Pierre Fauconnier]

Si tu veux le faire par VBA, tu peux adapter le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
  Dim RangeB As Range
  Dim RangeA As Range
  Dim Target As Range
 
  Set RangeB = Range("b1:b5")
  Set RangeA = Range("a1:a3")
  For Each Target In RangeB
    If Application.WorksheetFunction.CountIfs(RangeA, Target) <> 0 Then Target.Interior.Color = vbRed
  Next Target
End Sub

Dans ton code, tu as vraiment intérêt à baliser tes plages. Dans un fichier xlsm, avec ton code, tu vas balayer un million de fois un million de cellules pour chaque feuille de calcul de ton classeur. Je penses que tu ne te rends pas compte de ce que cela va demander comme temps...

[fouinette13]

Bonjour,

Merci !

J'ai finalement trouvé une autre méthode (voir ci-dessous) qui calcule plus rapidement qu'un CountIfs.

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
 
Sub ServiceAnalyse()
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Dim CellB As Range
    Dim RangeB As Range
    Dim RangeA As Range
    Dim Target As Range
 
    Set Wb = Workbooks("Classeur2.xlsx")
 
    For Each Ws In Wb.Worksheets
	Set RangeB = Range("B1:B110")
        Set RangeA = Range("A1:A4395")
        For Each CellB In RangeB
            For Each Target In RangeA
                If CellB Like "*" & Target & "*" Then Target.Interior.Color = vbGreen
            Next Target
        Next CellB
Next
End Sub

Par contre, je veux pouvoir colorier les cellules de la colonne A qui "contiennent" les mots des cellules de la colonne B.

Avec ce code cela ne marche pas, j'ai bien mes cellules coloriées mais uniquement celles qui sont totalement égales, pourtant sur internet les personnes avaient l'air de dire que ça marche avec les "*".

Code :

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

If CellB Like "*" & Target & "*" Then Target.Interior.Color = vbGreen

Une idée ?

Merci

[joe.levrai]

Bonjour,

essaye de spécifier la propriété souhaitée, en l'occurrence .Value (voir .Text), peut être que ça vient de là ?

Code :

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

If CellB.Value Like "*" & Target.Value & "*" Then Target.Interior.Color = vbGreen

[fouinette13]

Bonjour,

Non, même résultat (ni avec Value ni avec Text) ... :/

[Pierre Fauconnier]

Je pense que tu as inversé tes colonnes de tests

Code :

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

1
2
 
If Target Like "*" & CellB & "*" Then Target.Interior.Color = vbGreen