Worksheet_Change(ByVal Target As Range)

-
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#
Afficher la suite 

2 réponses

Messages postés
59613
Date d'inscription
mardi 8 janvier 2008
Statut
Modérateur
Dernière intervention
19 novembre 2019
4975
0
Merci
Bonjour,

Pense à attribuer à ton code la couleur syntaxique et la forme correcte avec le bouton
<>
.
Commenter la réponse de Chris 94
Messages postés
14862
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 novembre 2019
1190
0
Merci
Bonjour,

F5 ne peut été utilisee sur toutes les procedures evenementielles Worksheet.

Votre procedure s'active seulement sur changement de valeur dans une cellule de la feuille ou vous avez mis ce code.
Commenter la réponse de f894009