macro lancée par modification de cellules (feuilles différentes) Résolu/Fermé

Question

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:

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!

michel_m · Answer

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 ExplicitPrivate 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 WithEnd IfEnd Sub 
 
 Michel

Macro lancée par modification de cellules (feuilles différentes)

1 réponse

Discussions similaires