highlander
XLDnaute Nouveau
bonjour,
J'ai créer une macro qui met en couleur un nom si je l'écrit d'une certaine manière : M. Nom
J'ai mis à la suite une macro qui, si on écrit : nom, reprend la macro précédente et l'écrit correctement.
Private Sub Workbook_Sheetchange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("C4:AC42")) Is Nothing Then
For Each cell In Target
If Range("A74") = cell.Value Then
cell.Interior.ColorIndex = 53
ElseIf Range("A73") = cell.Value Then
cell.Interior.ColorIndex = xlNone
ElseIf Range("A75") = cell.Value Then
cell.Interior.ColorIndex = 4
ElseIf Range("A76") = cell.Value Then
cell.Interior.ColorIndex = 34
End If
Next
End If
If Not Intersect(Target, Range("C4:AC42")) Is Nothing Then
For Each cell In Target
If Target = Range("B74") Then Target = Range("A74")
Cells.Replace What:=("B74"), Replacement:=("a74"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If Target = Range("B75") Then Target = Range("A75")
Cells.Replace What:=("B75"), Replacement:=("a75"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If Target = Range("B76") Then Target = Range("A76")
Cells.Replace What:=("B76"), Replacement:=("a76"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End If
End Sub
Tout cela marche sans soucis. mais quand je veux supprimer ce qu'il y a dans une case il me met erreur d'execution 13
je met debogage et il me souligne ce qui est en rouge
si quelqu'un a une idée, je suis preneur
merci
J'ai créer une macro qui met en couleur un nom si je l'écrit d'une certaine manière : M. Nom
J'ai mis à la suite une macro qui, si on écrit : nom, reprend la macro précédente et l'écrit correctement.
Private Sub Workbook_Sheetchange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("C4:AC42")) Is Nothing Then
For Each cell In Target
If Range("A74") = cell.Value Then
cell.Interior.ColorIndex = 53
ElseIf Range("A73") = cell.Value Then
cell.Interior.ColorIndex = xlNone
ElseIf Range("A75") = cell.Value Then
cell.Interior.ColorIndex = 4
ElseIf Range("A76") = cell.Value Then
cell.Interior.ColorIndex = 34
End If
Next
End If
If Not Intersect(Target, Range("C4:AC42")) Is Nothing Then
For Each cell In Target
If Target = Range("B74") Then Target = Range("A74")
Cells.Replace What:=("B74"), Replacement:=("a74"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If Target = Range("B75") Then Target = Range("A75")
Cells.Replace What:=("B75"), Replacement:=("a75"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
If Target = Range("B76") Then Target = Range("A76")
Cells.Replace What:=("B76"), Replacement:=("a76"), LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End If
End Sub
Tout cela marche sans soucis. mais quand je veux supprimer ce qu'il y a dans une case il me met erreur d'execution 13
je met debogage et il me souligne ce qui est en rouge
si quelqu'un a une idée, je suis preneur
merci