Worksheet_Change(ByVal Target As Range)

Fermé

StayInPeace - Modifié le 5 nov. 2019 à 15:41
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 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#

A voir également:

Private sub worksheet_change(byval target as range)
Worksheet_change sur une cellule ✓ - Forum Excel
Worksheet_change ne se déclenche pas - Forum Excel
Pb private sub worksheet_selectionchange ✓ - Forum Programmation
Macro Liée au changement de la valeur d une cellule ✓ - Forum VB / VBA
VBA Excel... sub Worksheet_change ✓ - Forum Excel

2 réponses

Réponse 1 / 2

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

Bonjour,

Pense à attribuer à ton code la couleur syntaxique et la forme correcte avec le bouton

<>

▼

Discussions similaires

pb private sub worksheet_selectionchange

Plusieurs Worksheet_Change dans un classeur ?

impossible de lancer les jeux vidéos

Samsung bloqué sur downloading

samsung bloqué: downloading ... do not turn off target

message d'erreur ? " downloading... do not turn off target "

Discussions similaires

Newsletters