Problème avec un code VBA

Version imprimable

Bonjour à tous,

Le code ci-dessous me permet de colorer des cellules lorsqu'un doublon est signalé. Ce que je ne comprends pas, c'est que les cellules b1:b4, ce colorent en rouge dès que je saisie des données dans n'importe quelle cellule.
Pouvez-vous m'aider à comprendre ou me montrer mon erreur ?
Je vous en remercie par avance

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
Private Sub Worksheet_change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
Test
End Sub
 
Sub Test()
Dim I As Integer, J As Integer, X As Byte, C As Range, DerL As Integer
    Application.ScreenUpdating = False
        Range("B6:B3000").Interior.ColorIndex = xlNone
    X = 3
        DerL = Cells(Rows.Count, 2).End(xlUp).Row
    For I = 1 To DerL - 1
        If Cells(I, 2).Interior.ColorIndex = xlNone Then
            If X < 57 Then
                X = X
            Else
                X = 3
            End If
        For J = I + 1 To DerL
            If Cells(J, 2) = Cells(I, 2) Then
                Cells(I, 2).Interior.ColorIndex = X
                Cells(J, 2).Interior.ColorIndex = X
            End If
        Next
        End If
        X = X + 1
    Next
Application.ScreenUpdating = True
End Sub

08/08/2008, 09h56
ucfoutu

Bonjour,

déjà, j'ai des difficultés à comprendre ceci :

Code:

If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub

quelle que soit la valeur de target.Count, donc ... (car par exemple 0 est < 1 mais est bien différent de 2 !!! et ... OR veut dire ou... Il en va de même de 2 car 2 rentre dans le cas admis par Or de > 1 ...)
08/08/2008, 10h12
Godzestla
Salut Ucfoutu,

Citation:

quelle que soit la valeur de target.Count, donc ... (car par exemple 0 est < 1 mais est bien différent de 2 !!! et ... OR veut dire ou... Il en va de même de 2 car 2 rentre dans le cas admis par Or de > 1 ...)

Je ne te suis pas bien dans ton raisonnement car le test n'est pas
Code:

1 2 If Target.Count > 1 Or Target.Count <> 2 Then Exit Sub
mais bien
Code:

1 2 If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
08/08/2008, 10h13
NEC14

Bonjour ucfoutu,

J'ai trouvé ce code dans le forum, je l'ai appliqué et il fonctionne.
Je ne comprends pas tout non plus, alors je ne saurai t'expliquer cette ligne. Si un expert peu le faire cela pourrait éclairer notre lanterne.

De plus, je viens de m'apercevoir, qu'à chaque nouvelle saisie, les lignes dèjà colorées changent à nouveau de couleur, elles ne sont pas stables ?????????
08/08/2008, 12h34
Invité
Bonjour,
Code:

1 2 3 4 Private Sub Worksheet_change(ByVal Target As Range) If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub Test End Sub
Je comprends très bien que cette procédure fonctionne puisque "Target.Count" ne peut être inférieur à 1 (il faut bien qu'une cellule soit modifiée pour que la procédure soit lancée).

Sachant cela, si plusieurs cellules sont sélectionnées quelle que soit la colonne ou si une seule cellule est sélectionnée dans une autre colonne que la 2, la procédure "Test" ne se lance pas et tout va bien.

Par contre ce que je ne comprends pas très bien c'est pourquoi dans la procédure "Test" vous sélectionnez la plage "B6:B3000" puis dans la boucle vous démarrez avec une valeur de "I" = 1 ?

Ne devrait-elle pas démarrer à :

Code:

For I = 6 To DerL - 1

et d'autre part pourquoi "DerL - 1" ?

il est certain que le contenu de l'avant-dernière ligne ne peut pas être égal au contenu de la dernière ?
08/08/2008, 13h45
Invité

Finalement j'ai testé votre code.

En dehors du cas que j'évoquais qui fait que sur les lignes 1 à 5 certaines ont été colorées et que la couleur n'est pas modifiée du fait que vous avez :

Code:

Range("B6:B3000").Interior.ColorIndex = xlNone

tout fonctionne bien chez moi.

Que contiennent vos cellules B1 à B5 ?
08/08/2008, 13h57
NEC14

Citation:

Envoyé par jacques_jean

Que contiennent vos cellules B1 à B5 ?

Deux boutons (Faire un choix et Fermer)

Bonjour JacquesJean,

Effectivement j'ai remplacé 1 par 6 et je ne rencontre plus ce problème.

Code:

For I = 6 To DerL - 1

Merci pour cette info