Déclencher une macro en renseignant une céllule

Boby71C · 16 Octobre 2006

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 · 16 Octobre 2006

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) :

Code:

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 · 16 Octobre 2006

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 :

Code:

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 · 16 Octobre 2006

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

@+

Déclencher une macro en renseignant une céllule

Boby71C

XLDnaute Impliqué

Pièces jointes

porcinet82

XLDnaute Barbatruc

porcinet82

XLDnaute Barbatruc

Boby71C

XLDnaute Impliqué

Discussions similaires

Déclencher une macro en renseignant une céllule

Boby71C

XLDnaute Impliqué

Pièces jointes

porcinet82

XLDnaute Barbatruc

porcinet82

XLDnaute Barbatruc

Boby71C

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency