Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = 3 End If End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les caractères en rouge.
Merci
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1
Then
Target.Interior.ColorIndex = 3
End If
End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les
caractères en rouge.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = 3 End If End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les caractères en rouge.
Merci
Érico
Comment je fais pour spécifier seulement dans les plages de cellules suivantes: B17 à I58 (zone1) et B106 à I126 (zone2)
S'il y a protection, est-ce que ça va fonctionné?
Un gros merci
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = 3 End If End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les caractères en rouge.
Merci
Comment je fais pour spécifier seulement dans les plages de cellules
suivantes:
B17 à I58 (zone1) et B106 à I126 (zone2)
S'il y a protection, est-ce que ça va fonctionné?
Un gros merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1149526263.651201.213390@c74g2000cwc.googlegroups.com...
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1
Then
Target.Interior.ColorIndex = 3
End If
End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les
caractères en rouge.
Comment je fais pour spécifier seulement dans les plages de cellules suivantes: B17 à I58 (zone1) et B106 à I126 (zone2)
S'il y a protection, est-ce que ça va fonctionné?
Un gros merci
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = 3 End If End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les caractères en rouge.
Merci
JB
Adapter les champs B2:B10,D2:D10 (B17:I58,B106:I126)
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10,D2:D10], Target) Is Nothing And Target.Count = 1 Then ActiveSheet.Unprotect Password:="moi" Target.Interior.ColorIndex = 3 ActiveSheet.Protect Password:="moi" End If End Sub
JB
Comment je fais pour spécifier seulement dans les plages de cellules suivantes: B17 à I58 (zone1) et B106 à I126 (zone2)
S'il y a protection, est-ce que ça va fonctionné?
Un gros merci
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = 3 End If End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les caractères en rouge.
Merci
Adapter les champs B2:B10,D2:D10 (B17:I58,B106:I126)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B10,D2:D10], Target) Is Nothing And Target.Count
= 1 Then
ActiveSheet.Unprotect Password:="moi"
Target.Interior.ColorIndex = 3
ActiveSheet.Protect Password:="moi"
End If
End Sub
JB
Comment je fais pour spécifier seulement dans les plages de cellules
suivantes:
B17 à I58 (zone1) et B106 à I126 (zone2)
S'il y a protection, est-ce que ça va fonctionné?
Un gros merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1149526263.651201.213390@c74g2000cwc.googlegroups.com...
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1
Then
Target.Interior.ColorIndex = 3
End If
End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les
caractères en rouge.
Adapter les champs B2:B10,D2:D10 (B17:I58,B106:I126)
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10,D2:D10], Target) Is Nothing And Target.Count = 1 Then ActiveSheet.Unprotect Password:="moi" Target.Interior.ColorIndex = 3 ActiveSheet.Protect Password:="moi" End If End Sub
JB
Comment je fais pour spécifier seulement dans les plages de cellules suivantes: B17 à I58 (zone1) et B106 à I126 (zone2)
S'il y a protection, est-ce que ça va fonctionné?
Un gros merci
"JB" a écrit dans le message de news:
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then Target.Interior.ColorIndex = 3 End If End Sub
JB
Bonjour,
Est-ce possible de faire une macro suivante:
Dès que quelqu'un change une donnée dans une cellule, de mettre les caractères en rouge.