Discussion :

[docjo]

Bonjour

Je voudrai que lorsque je change la valeur d'une cellule dans une feuille cela se répercute sur la feuille suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private sub worksheet_change (byval target as range)
if ActiveSheet.index > 4 and Target= range("I2") then
Activesheet.next.range("A5") = activesheet.range("I2")
end if

mais ce code ne fonctionne pas. Je tourne en rond et aimerai un petit conseil
Merci par avance

[fring]

Bonjour,

Une macro n'est pas vraiment nécessaire, tu pourrais simplement mettre dans la cellule de destination A5 la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LaFeuilleSource!I2

Sinon pour le code, tu peux faire ceci (code à mettre dans l'évènement SheetChange de ThisWorkbook)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Index > 4 And Target.Address = "$I$2" Then
    ActiveSheet.Next.Range("A5") = Target.Value
End If
End Sub

[docjo]

J'ai effectivement retenu la première solution car la 2ième ne marche pas pour la raison que les données sont modifiées sur des listes de validation. Et il parait que c'est un bug (ou une insuffisance) connu dans excel.
Merci encore