Macro lancée par modification de cellules (feuilles différentes)
Résolu
paulrouldug
Messages postés
2
Statut
Membre
-
paulrouldug Messages postés 2 Statut Membre -
paulrouldug Messages postés 2 Statut Membre -
Bonjour à tous,
J'ai une question sur une macro vba qui me pose problème. J'essaye de lancer une macro sur une feuille 2 a partir d'une modification d'une plage de cellules sur une feuille 1. Voici ma macro que j'ai incorporé sur le code de la feuille 1:
Malheureusement j'ai un message d'erreur sur la ligne :
cashflow.Range("AW41").GoalSeek Goal:=0, ChangingCell:=Range("D8")
Si j'incorpore cette même macro sur le code de ma feuille "cashflow", la macro se lance parfaitement. Elle ne fonctionne pas uniquement parce que je veux la lancer à partir d'une autre feuille.
Quelqu'un peut-il m'aider?
Merci mille fois!
J'ai une question sur une macro vba qui me pose problème. J'essaye de lancer une macro sur une feuille 2 a partir d'une modification d'une plage de cellules sur une feuille 1. Voici ma macro que j'ai incorporé sur le code de la feuille 1:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cashflow As Worksheet
Set cashflow = Sheets("Cash Flow")
If Not Application.Intersect(Target, Range("A1:AD73")) Is Nothing Then
cashflow.Activate
cashflow.Range("AW41").GoalSeek Goal:=0, ChangingCell:=Range("D8")
End If
End Sub
Malheureusement j'ai un message d'erreur sur la ligne :
cashflow.Range("AW41").GoalSeek Goal:=0, ChangingCell:=Range("D8")
Si j'incorpore cette même macro sur le code de ma feuille "cashflow", la macro se lance parfaitement. Elle ne fonctionne pas uniquement parce que je veux la lancer à partir d'une autre feuille.
Quelqu'un peut-il m'aider?
Merci mille fois!
1 réponse
-
Bonjour
un exemple à adapter à ton contexte
la macro recopie la valeur de la cellule modifiée de A1:AD73 en E2 de la feuille2 et écrit en rouge
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:AD73")) Is Nothing Then
With Sheets(2).Range("E2")
.Value = Target
.Font.ColorIndex = 3
End With
End If
End Sub
Michel
