Je souhaite déclencher une action lorsque la cellule A1 est modifiée:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$A$1") Then
Action
End If
End Sub
Mon problème est que l'action est déclenchée uniquement lorsque A1 est
modifiée
manuellement. Comment faire pour que l'action soit exécutée
lorsque la valeur de A1 est modifiée en fonction d'une autre cellule.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JF
1)Ajoute-toi une feuille à ton classeur ex: "xxx" que tu pourras masquer si tu veux 2)Met le code si-dessous dans l'évenement calculate
Private Sub Worksheet_Calculate() If Cells(1, 1).Value <> Sheets("xxx").Cells(1, 1).Value Then Action Sheets("xxx").Cells(1, 1).Value = Cells(1, 1).Value End If End Sub
-----Message d'origine----- Je souhaite déclencher une action lorsque la cellule A1 est modifiée:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = ("$A$1") Then Action End If End Sub
Mon problème est que l'action est déclenchée uniquement lorsque A1 est
modifiée manuellement. Comment faire pour que l'action soit exécutée
lorsque la valeur de A1 est modifiée en fonction d'une autre cellule.
.
1)Ajoute-toi une feuille à ton classeur ex: "xxx" que tu
pourras masquer si tu veux
2)Met le code si-dessous dans l'évenement calculate
Private Sub Worksheet_Calculate()
If Cells(1, 1).Value <> Sheets("xxx").Cells(1, 1).Value
Then
Action
Sheets("xxx").Cells(1, 1).Value = Cells(1, 1).Value
End If
End Sub
-----Message d'origine-----
Je souhaite déclencher une action lorsque la cellule A1
est modifiée:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$A$1") Then
Action
End If
End Sub
Mon problème est que l'action est déclenchée uniquement
lorsque A1 est
modifiée
manuellement. Comment faire pour que l'action soit
exécutée
lorsque la valeur de A1 est modifiée en fonction d'une
autre cellule.
1)Ajoute-toi une feuille à ton classeur ex: "xxx" que tu pourras masquer si tu veux 2)Met le code si-dessous dans l'évenement calculate
Private Sub Worksheet_Calculate() If Cells(1, 1).Value <> Sheets("xxx").Cells(1, 1).Value Then Action Sheets("xxx").Cells(1, 1).Value = Cells(1, 1).Value End If End Sub
-----Message d'origine----- Je souhaite déclencher une action lorsque la cellule A1 est modifiée:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = ("$A$1") Then Action End If End Sub
Mon problème est que l'action est déclenchée uniquement lorsque A1 est
modifiée manuellement. Comment faire pour que l'action soit exécutée
lorsque la valeur de A1 est modifiée en fonction d'une autre cellule.
