Déclencher une macro en renseignant une céllule

[Boby71C]

Bonjour

Connaissez-vous une solution pour le déroulement suivant:

Au renseignement de la cellule P ( 1 date )
Déclenchement de la macro qui doit faire:
La cellule P devient Jaune.
La céllule I de la ligne concernnée passe à OUI
La ligne concérnnée, les cellules A à O passent en fond Jaune.

Merci pour votre aide
@+

 

[porcinet82]

Re : Déclencher une macro en renseignant une céllule

Salut Boby,

Code a mettre dans le module de la feuille concernée (dans ton fichier la Feuil1) :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("P1:P65536")) Is Nothing Then
        Target.Interior.ColorIndex = 6
        Cells(Target.Row, 9).Value = "Oui"
        Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 36
    End If
End Sub

@+

 

[porcinet82]

Re : Déclencher une macro en renseignant une céllule

re,

Si tu veux vérifier en plus que c'est bien une date qui est rentrée, tu peux mettre ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("P1:P65536")) Is Nothing Then
        [COLOR=blue]If IsDate(Target) = True Then
[/COLOR]            Target.Interior.ColorIndex = 6
            Cells(Target.Row, 9).Value = "Oui"
            Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 36
        [COLOR=blue]End If
[/COLOR]    End If
End Sub

@+

 

[Boby71C]

Re : Déclencher une macro en renseignant une céllule

Bonjour
Génial
Merci beaucoup Romain, encore 1 X, tu me sorts une épine du pieds

@+