VBA à la demande
Résolu
JANGO5
Messages postés
98
Statut
Membre
-
JANGO5 Messages postés 98 Statut Membre -
JANGO5 Messages postés 98 Statut Membre -
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
A voir également:
- VBA à la demande
- Excel compter cellule couleur sans vba - Guide
- Vba sleep ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
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