Worksheet_Change(ByVal Target As Range)

Fermé
StayInPeace - Modifié le 5 nov. 2019 à 15:41
f894009 Messages postés 17204 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 12 octobre 2024 - 5 nov. 2019 à 16:26
Bonjour à tous,
je suis novice sur VBA, j'ai des difficultés à utiliser les macros evenementielles. En fait, je ne comprends pas pourquoi lorsque je définis ma macro comme celle ci-dessous, j'active F5 et la boite de dialogue de création de la mùacro apparaît.
Aidez moi SVP!

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    Set KeyCells = Range("a1")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

            If (Target.Value = "Complete" Or Target.Value = "On Hold") Then
                ActiveCell.EntireRow.Copy
                Worksheets("Sheet2").Activate
                i = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
                Worksheets("Sheet2").Cells(i + 1, 1).Select
                ActiveSheet.Paste
                Worksheets("Sheet1").Activate
                ActiveCell.EntireRow.Delete
            End If

    End If
End Sub


#StayInPeace#

2 réponses

Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 7 334
5 nov. 2019 à 15:41
Bonjour,

Pense à attribuer à ton code la couleur syntaxique et la forme correcte avec le bouton
<>
.
0