Discussion :

[Callimea]

Bonjour,

J'ai une variable "num" pour laquelle je voudrais "si elle change" qu'un code s'execute.
Je connaissais "If Application.Intersect(Range("V1"), Target) Is Nothing Then..."
utilisée lorsque la valeur d'une cellule (ici V1) change mais si je mets ma variable j'obtiens "incompatibilité de type" de même que si je fais "If num is Change"....

Pouvez vous m'indiquer pourquoi j'obtiens cette erreur? Merci d'avance pour votre aide

[Kimy_Ire]

Simplement car ta variable "num" n'est pas un type "Range". En effet, lorsque tu passes en paramètre Application.Intersect(Range("V1"), Target) des variables qui ne sont pas des "Range" la fonction retournera une incompatibilité de type.

Il faudrait que tu nous en dise d'avantage pour que nous puissions t'aider !

[Callimea]

Voilà mon 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
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Num As Long, n As Long
Num = 0
n = Target.Row
For x = 1 To 17
 
If Cells(n, 4) = "canceled" And Cells(n, 17) = "Validé" Then
Cells(n, x).Interior.ColorIndex = 41
End If
If Cells(n, 4) = "canceled" And Cells(n, 17) = "Validé" Then
Num = Cells(n, 6)
End If
If Num Is Change Then    'A ce niveau j'obtiens= incompatibilité de type
    For A = 9 To 100
    For b = 1 To 17
    If Cells(A, 6) = Num Then
    Cells(A, b).Interior.ColorIndex = 41
    End If
    Next b '
    Next A '
End If
Next x '
End Sub

Je sais qu'il attent un Range avec "Application.Intersect(Range("V1"), Target) Is Nothing Then", mais , sauf si je me trompe, je peux aussi utilisé "Is nothing" et "is change" avec une variable. Du coup je ne comprends pas l'erreur.

Au début je l'initialise à 0, puis SI elle j'ai des conditions "canceled" et "validé" alors elle change. Du coup, SI elle change (la ou ça bug) une ligne donnée change de couleur...

Est ce que c'est plus clair ? (peut-etre encore moins?)

[Kimy_Ire]

Où as-tu vu une fonction/méthode "Change" ?!

[gFZT82]

Bonjour,

Voici ce que je comprends de ton code :
Lorsqu’une cellule de la feuille est modifiée,
sur la ligne modifiée, s’il y a "canceled" en colonne D et "Validé" en colonne Q, alors la plage de A à Q est colorée en bleu.
Ensuite, on compare la valeur en colonne F de la ligne modifiée avec les valeurs en colonne F des lignes 9 à 100. Si les valeurs sont identiques, la plage de A à Q est colorée en bleu.
Si cela correspond bien à ce que tu souhaites faire, le code ci-dessous doit suffire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
    n = Target.Row
    If Cells(n, 4) = "canceled" And Cells(n, 17) = "Validé" Then
        Range(Cells(n, 1), Cells(n, 17)).Interior.ColorIndex = 41
        For A = 9 To 100
            If Cells(A, 6) = Cells(n, 6) Then
                Range(Cells(A, 1), Cells(A, 17)).Interior.ColorIndex = 41
            End If
        Next A
    End If
End Sub

Cordialement.