Surligner en jaune une valeur déjà présente

Version imprimable

20/06/2017, 10h27
vbapakal

1 pièce(s) jointe(s)

Surligner en jaune une valeur déjà présente

Bonjour,
Je débute en VBA et je n’arrive pas à trouver le code qui me permette de surligner la valeur d’une cellule en jaune (Feuil2°) si elle se trouve dans la Feuil1. Voici un exemple en PJ de ce que je souhaite faire, je vous remercie pour votre aide.
20/06/2017, 11h04
Jean-Philippe André

Bonjour,

bienvenue sur DVP :salut:

nous n'incitons pas les membres a poster des fichiers, pour des raisons evidentes de securite.

Pourrais-tu nous en dire plus, sans passer par ce fichier ?

Quelle cellule ou plage de cellule ? Quel code as-tu deja tente sans succes ?

As-tu essaye les mises en forme conditionnelles dans Excel (sans VBA donc) ?
20/06/2017, 11h18
Menhir

Citation:

Envoyé par vbapakal

Voici un exemple en PJ de ce que je souhaite faire, je vous remercie pour votre aide.

Beaucoup de participants à ce forum n'ouvrent pas les pièces jointes, entre autre pour les raisons expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/

Citation:

Je débute en VBA et je n’arrive pas à trouver le code qui me permette de surligner la valeur d’une cellule en jaune (Feuil2°) si elle se trouve dans la Feuil1. Voici un exemple en PJ de ce que je souhaite faire, je vous remercie pour votre aide.

Pour savoir si ta valeur se trouve dans une autre feuille, utilise la méthode Find de l'objet Range.
https://msdn.microsoft.com/fr-fr/library/ff839746.aspx
Que tu mets dans un test :
https://msdn.microsoft.com/en-us/vba...else-statement
Pour passer la cellule en fond jaune, utilise la propriété Interior de Range :
https://msdn.microsoft.com/fr-fr/library/ff196598.aspx

Mais, à mon avis, pas besoin de VBA pour faire ça.
Ca peut se faire plus vite et plus facilement avec une mise en forme conditionnelle.

Bonjour
je propose ce-ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Option Explicit
Sub test()
Dim Plage As Range, C As Range, plage1 As Range, i As Long, j As Long
With Sheets("feuil1")
i = .Range("J" & Rows.Count).End(xlUp).Row
Set plage1 = .Range("j2:j" & i)
End With
 
    With Worksheets("Feuil2")
    j = .Range("E" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("E2:E" & j)
        For Each C In Plage
            If C <> "" Then
                If Application.CountIf(plage1, C) > 0 Then C.Interior.ColorIndex = 3
            End If
        Next C
    End With
End Sub

Bonne continuation

20/06/2017, 11h57
riaolle

1 pièce(s) jointe(s)

Bonjour,
Avec une MFC :
Pièce jointe 287195
Tu peux masquer la colonne B, si tu ne veux pas la voir.

Bonjour
j'ai ajouter juste ptit chose : supprimer le fond de la cellule avant de faire la comparaison

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
Sub test()
Dim Plage As Range, C As Range, plage1 As Range, i As Long, j As Long
With Sheets("feuil1")
i = .Range("J" & Rows.Count).End(xlUp).Row
Set plage1 = .Range("j2:j" & i)
End With
 
    With Worksheets("Feuil2")
    j = .Range("E" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("E2:E" & j)
        For Each C In Plage
             C.Interior.ColorIndex = 0
            If C <> "" Then
                If Application.CountIf(plage1, C) > 0 Then C.Interior.ColorIndex = 3
            End If
        Next C
    End With
End Sub

20/06/2017, 21h11
vbapakal

Bonsoir,
Merci beaucoup pour ce code qui répond parfaitement à mes attentes.