Travail sur 2 feuille
Bonjour voici un petit défis , j ai dans un fichier exel sur la feuille 1 (tableau principale) un tableau avec des chiffre quand je entre un chiffre dans la ligne c-8 bien se numéro se colore en bleu et ainsi de suite. j aimerai pouvoir que a chaque fois que dans la ligne c-8 quand je entre le numéro et qui se colore va se colorier aussi ,
mais dans la feuille 2(rapport) dans la colonne A car cette feuille me sert pour envoyer un rapport au client.
Un Gros Merci c est parfait .
Désolé j ai une question si je ra joute un colonne j ajoute un lettre dans la ligne du range
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim rCel As Range, d%
'
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
'
If Not Intersect(Target, [C8]) Is Nothing And Target <> "" Then
Set rCel = Rows(11 & ":" & UsedRange.Rows.Count).Find(what:=Target, lookat:=xlWhole, LookIn:=xlValues)
If Not rCel Is Nothing Then
rCel.Interior.ColorIndex = WorksheetFunction.Max(0, rCel.Interior.ColorIndex - 36) + 37
d = WorksheetFunction.Match(Target, Sheets("Rapport").Range("A:A"), 0)
Sheets("Rapport").Range("A" & d).Interior.ColorIndex = 37
Else
MsgBox "''" & Target & "'' n'existe pas dans ce TRANSIT", 16
End If
[C8].Select
End If
'
On Error GoTo 0
Application.ScreenUpdating = True
Application.EnableEvents = True
'
End Sub
Sub Evenement()
Application.EnableEvents = True
End Sub
Re