Discussion :

[NEC14]

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 :

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

[ucfoutu]

Bonjour,

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

Code :

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

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

[Godzestla]

Salut Ucfoutu,

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 :

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

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

mais bien

Code :

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

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

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

[Invité]

Bonjour,

Code :

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

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 :

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

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 ?

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

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

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

tout fonctionne bien chez moi.

Que contiennent vos cellules B1 à B5 ?

[NEC14]

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 :

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

For I = 6 To DerL - 1

Merci pour cette info