Envoyer une valeur en bout d'une colonne d'une autre feuille

Bonsoir,

Je suis un utilisateur basique du logiciel, je trouve habituellement mes infos sur le net, mais cette fois ci google ne m'a rien trouvé.

Je m'exprime surement mal dans ma demande...

Je viens souvent trouver des solutions ici d'ailleurs, alors cette fois je m'inscrit et demande de l'aide en personne.

Je possede une feuille "LISTE" dans laquelle j'ai une liste de produits (un produit par ligne)

En bout de ligne je veux pouvoir entrer une date dans une case vide et que cette date aille gentillement se ranger dans une feuille "TOTO" au bout d'une colonne contenant dèja des dates passés. Puis pouvoir a nouveau entrer une date etc etc...

Est ce que ceci est possible sans macro? (je voudrais juster pouvoir faire "Entrée" après avoir rempli ma valeur)

Mais si ce n'est pas possible, alors je me résignerai a faire une macro ( ce qui sort largement de mes faibles compétences)

Voilà, j'espere avoir été suffisement clair, si ce n'est pas le cas, je ne suis jamais loin

Merci de votre aide !

Raph

Bonjour. bienvenue sur le Forum

Tu adapteras les colonnes si besoin

Code de Feuille LISTE

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
Call Transfert
End If
End Sub

Code Module

Sub Transfert()
Sheets("LISTE").Select
Range("D1").End(xlDown).Select
i = ActiveCell.Value
Sheets("TOTO").Select
Range("E1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = i
End Sub

Exemple joint

Cordialement

Bonsoir Amadeus et merci d'avoir prit le temps de réfléchir a mon problème.

Avec ton classeur d'exemple c'est parlant et mieux que des lignes d'explications, merci vraiment!

Je me rend compte du coup que je ne dois pas bien exprimer ma demande car même si ta solution se rapproche beaucoup, elle ne convient pas a mon besoin. (il y a surement peu de chose a changer, mais je n'ai pas le niveau )

je met en pièce jointe un exemple, espérant que ce soit compréhensible.

Merci de ton (votre) aide

raph

Bonjour

Code de Feuille LISTE

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2:B4")) Is Nothing Then
i = Target.Value
j = Target.Row
Sheets("PRODUIT " & j - 1).Select
ActiveSheet.Range("A2").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = i
End If
End Sub

Cordialement

Bonjour,

Ça correspond exactement a ce que je voulais faire.

Je suis en train de l'adapter a mon document, je pense pouvoir arriver a ajuster. (faut bien que je fasse travailler mes neurones aussi)

Je ne manquerai pas de revenir si je bloque.

Merci Amadéus

Raph