Communication entre feuilles

Bonjour Wulfran,

Voici un exemple : Suppose que tu entres en feuil1 des données dans les cellules de la colonne A:3:A300 et qu'à chaque
fois tu entres une valeur tu veux inscrire dans la feuil2 , 5 lignes plus bas et 3 colonnes plus à droite que la cellule
source de la feuil1, le triple de la valeur de la cellule initiale si cette dernière est numérique ....

Copie ce code dans la feuille module Feuil1 et entre des données dans A3:A300 et observe ce qui se passe dans la feuil2

'-------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range, Ok As Boolean
Set Rg = Intersect(Target, Range("A3:A100"))
If Not Rg Is Nothing Then
For Each c In Rg
If IsNumeric(c) Then
Worksheets("Feuil2").Range(c.Address).Offset(5, 3) = c * 5
Else
Worksheets("Feuil2").Range(c.Address).Offset(5, 3) = c
End If
Next
End If

End Sub
'-------------------


Salutations!



"Wulfran" <wulfran01@free.fr> a écrit dans le message de news:40a7c83d$0$22934$636a15ce@news.free.fr...
Bonjour,
J'aimerais lorsque j'entre une valeur dans une cellule d'une colonne
donnée, pouvoir dynamiquement modifier la contenu d'une cellule (sans
intervention manuelle) se trouvant sur une autre page (idealement créée
automatiquement lors de la saisie dans la premiere feuille).

Cela est il possible en utilisant uniquement les formules (ie pas de VB)?

Merci