Bonjour le forum,
J'ai crée un code qui me permet:
- de colorier une cellule en orange si elle se trouve à l'intersection d'une ligne et d'une colonne contenant la même valeur
- si ce n'est pas le cas, la case reste en blanc.
Malheureusement ce code est beaucoup trop long à s'exécuter malgré les screenupdating.
Pouvez-vous me donner des pistes pour que j'optimise ce code?
Merci beaucoup
Voici le code:
Private Sub Worksheet_Change(ByVal Target As Range)
ScreenUpdating = False
Dim i As Long
Dim j As Long
For i = 11 To 252
For j = 29 To 500
If Cells(j, 256) = Cells(19, i) Then
Cells(j, i).Interior.Color = RGB(255, 127, 0)
Else: Cells(j, i).Interior.Color = RGB(255, 255, 255)
End If
Next j
Next i
ScreenUpdating = True
End Sub
Yoyobat
PS: je n'arrives pas à mettre en PJ le fichier car il me marque "marque de sécurité manquante"
J'ai crée un code qui me permet:
- de colorier une cellule en orange si elle se trouve à l'intersection d'une ligne et d'une colonne contenant la même valeur
- si ce n'est pas le cas, la case reste en blanc.
Malheureusement ce code est beaucoup trop long à s'exécuter malgré les screenupdating.
Pouvez-vous me donner des pistes pour que j'optimise ce code?
Merci beaucoup
Voici le code:
Private Sub Worksheet_Change(ByVal Target As Range)
ScreenUpdating = False
Dim i As Long
Dim j As Long
For i = 11 To 252
For j = 29 To 500
If Cells(j, 256) = Cells(19, i) Then
Cells(j, i).Interior.Color = RGB(255, 127, 0)
Else: Cells(j, i).Interior.Color = RGB(255, 255, 255)
End If
Next j
Next i
ScreenUpdating = True
End Sub
Yoyobat
PS: je n'arrives pas à mettre en PJ le fichier car il me marque "marque de sécurité manquante"