VBA à la demande
Résolu
JANGO5
Messages postés
92
Date d'inscription
Statut
Membre
Dernière intervention
-
JANGO5 Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
JANGO5 Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai besoin que ma macro s'exécute à chaque fois que je renseigne une cellule, et seulement une fois que j'ai renseigné la cellule en question.
Merci pour vos réponses
Cordialement
J'ai besoin que ma macro s'exécute à chaque fois que je renseigne une cellule, et seulement une fois que j'ai renseigné la cellule en question.
Merci pour vos réponses
Cordialement
2 réponses
Re
petite modif
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tvar As String
Lig = Target.Row
If Target.Column = 2 Then
Range("D" & Lig & ":F" & Lig & ",J" & Lig).Interior.ColorIndex = xlNone
Tvar = Range("B" & Lig).Value
Select Case Tvar
Case "0"
Range("F" & Lig & ",J" & Lig).Interior.ColorIndex = 15
Case "1"
Range("D" & Lig & ":E" & Lig).Interior.ColorIndex = 15
End Select
End If
End Sub
ses mieux comme ca
A+
Maurice
petite modif
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tvar As String
Lig = Target.Row
If Target.Column = 2 Then
Range("D" & Lig & ":F" & Lig & ",J" & Lig).Interior.ColorIndex = xlNone
Tvar = Range("B" & Lig).Value
Select Case Tvar
Case "0"
Range("F" & Lig & ",J" & Lig).Interior.ColorIndex = 15
Case "1"
Range("D" & Lig & ":E" & Lig).Interior.ColorIndex = 15
End Select
End If
End Sub
ses mieux comme ca
A+
Maurice
Merci bcp !
Cependant j'aimerais comprendre la ligne 5 , pourquoi mettre ":F" et ",J" et non pas "F" et "J"
comment je fais pour changer les colonnes !
Cordialement
Merci