copier des cellules sur condition

Question

Bonjour,
voila mon souci je colore mes cellules pour l'instant sela fonction trés bien mais je voudrais appliquer deux fonctions zaza si la case x est mise et popo si elle ne l'est pas je voudrais que la fonction s'active en meme temps que je coche ou pas voila mon code cela fonctionne mais sur une ligne pourriez vous m'aider? je suis sur excel 97

Private Sub Worksheet_Change(ByVal Target As range)
If Target.Column = 1 Then
    With range(Cells(Target.Row, 3), Cells(Target.Row, 36)).Interior
        Select Case Target.Value
       Case "x"
            .ColorIndex = 15
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
    Case Else
            .ColorIndex = xlNone
        End Select
    End With
Worksheets(1).range("zaza").Copy range("g8aj8")
End If


End Sub

merci de me répondre
 pat

patbl · Answer

modification conditionnelle

bonjour, je colore mes cellules pour l'instant sela fonction trés bien mais je voudrais appliquer la fonction zaza pour qu'elle s'execute en meme temps. je suis sur excel 2000 Code : PrivateSub Worksheet_Change(ByVal Target As range)If Target.Column = 1ThenWith range(Cells(Target.Row, 3), Cells(Target.Row, 36)).InteriorSelectCase Target.ValueCase"x" .ColorIndex = 15 .Pattern = xlSolid .PatternColorIndex = xlAutomatic CaseElse .ColorIndex = xlNone EndSelectEndWithEndIfEndSubPrivateSub Worksheet_Change(ByVal Target As Excel.range)If Target.Column 1ThenIf Target "x"ThenWith range(Cells(Target.Row, 7), Cells(Target.Row, 37)).Interior ThisWorkbook.Sheets("ne pas toucher").range("zaza").CopyEndWithEndIfEndSub là je suis un peu perdue pourriez vous m'aider merci d'avance pat pat

Copier des cellules sur condition

1 réponse

Votre réponse

Discussions similaires