VBA macro auto-activation
Résolu
JP
-
JP -
JP -
Bonjour,
j'ai créé cette macro
Sub couleur()
If Range("B34") <> "" Then
Range("C4:E5").Interior.color = RGB(0, 255, 0)
Else
Range("C4:E5").Interior.color = RGB(255, 0, 0)
End If
If Range("B34") = "" Then
Range("C6:E7").Interior.color = RGB(255, 0, 0)
End If
End Sub
j'aimerai quelle s'active toute seul
j'ai créé cette macro
Sub couleur()
If Range("B34") <> "" Then
Range("C4:E5").Interior.color = RGB(0, 255, 0)
Else
Range("C4:E5").Interior.color = RGB(255, 0, 0)
End If
If Range("B34") = "" Then
Range("C6:E7").Interior.color = RGB(255, 0, 0)
End If
End Sub
j'aimerai quelle s'active toute seul
A voir également:
- VBA macro auto-activation
- Clé d'activation windows 10 - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Clé activation office 2010 gratuit - Télécharger - Sécurité
- Mas activation - Accueil - Windows
- Jitbit macro recorder - Télécharger - Confidentialité
1 réponse
Bonjour,
Code a mettre dans le VBA de votre feuille.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Range("B34") <> "" Then
Range("C4:E5").Interior.Color = RGB(0, 255, 0)
Else
Range("C4:E5").Interior.Color = RGB(255, 0, 0)
Range("C6:E7").Interior.Color = RGB(255, 0, 0)
End If
End Sub
Bonne suite
Code a mettre dans le VBA de votre feuille.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Range("B34") <> "" Then
Range("C4:E5").Interior.Color = RGB(0, 255, 0)
Else
Range("C4:E5").Interior.Color = RGB(255, 0, 0)
Range("C6:E7").Interior.Color = RGB(255, 0, 0)
End If
End Sub
Bonne suite
Merci quant même