Comparaison cellules adjacentes supérieures et traitement (Nouveau Evénement) | ||
---|---|---|
Inscription: 15/07/2014
Messages:
1
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 15-07-2014 14h35
Bonjour,
Dans le fichier ci-joint, j'essaye de faire un traitement pour afficher des nouveaux événements (EX passage de 0 à 1 ou de 1 à 0). Je sais le faire en traitement formule conditionnelle mais je préfererai le faire en MACRO. Je souhaite afficher en couleur le moment ou un nouvel événement survient.
Il y a déjà un bout de code existant. Parfois, cela fonctionne mais dans d'autres cas, impossible de comprendre pourquoi.
Merci de votre aide |
|
|
Re: Comparaison cellules adjacentes supérieures et traitement (Nouveau Evénement) | ||
---|---|---|
Inscription: 09/01/2008
De Montréal, Québec
Messages:
463
Système d'exploitation: PC Version Excel utilisée: 97 à 2016 |
Posté le : 15-07-2014 22h20
Bonjour james59 et bienvenue à ce forum,
Tu peux tester le petit bout de code suivant dans le code de ThisWorkbook : Option Explicit Private Sub Workbook_SheetChange(ByVal Feuille As Object, ByVal Target As Range) If Feuille Is Feuil1 Then Target.Interior.Color = IIf(Target.Value = 1, vbYellow, vbWhite) End If End Sub Lorsque la valeur d'une cellule quelconque de la feuille Feuil1 est modifiée, la couleur de fond passe au jaune si cette valeur est 1 et au blanc pour toutes les autres valeurs.
À noter que Option Explicit doit être au tout début du module.
Cordialement,
Guy |
|
|