Entrer des donnees successives

bonjour

j aurai besoin d un coup de main svp

j aimerai que lorsque que l on rentre une donnée dans la case B2 celle ci vient se copier dans la case E2

Si ensuite je rentre une nouvelle donnée dans la case B2 celle ci vient se copier dans la case E3 et ainsi de suite

merci d avance pour votre aide

Bonjour, voici un petit coup de main dans le fichier joint en retour

bonsoir

c est exactement ce que je voulais merci beaucoup

par contre ca ne fonctionne pas dans mon fichier parce qui y a deja une commande avec le mm nom

j ai essayé de l integrer a la commande existante mais sans resultat

un dernier coup de pouce svp

merci

Bonjour, essayez simplement de coller

If Target.Address = "$B$2" Then
 Cells(Rows.Count, 5).End(xlUp).Offset(1, 0) = Target
End If

dans votre Private Sub Worksheet_Change(ByVal Target As Range) déjà existant

bonjour

oui c est ce que j avais fait hier soir mais ca ne marchait pas et la ce matin je ne sais par quel miracle ca marche

par contre je n arrive pas a l adapter pour les cellules T10 a T18

Adapter quoi ? Pardonnez moi mais c'est très vague comme explication...

ah desolé

je m explique alors:

lorsque l on rempli la case b2 les infos viennentse recopier en case T10

puis a nouveau lorsque l on change la valeur dans la case b2 celle ci vient se copier en case T11

de la mme facon losque l on change encore la valeur dans la case b2 celle ci vient se copier en case T12

Bon alors dans se cas...Avec se code cela fonctionne mais peut-être qu'il faut le perfectionner.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim plage As Range, c As Range
  Set plage = [T10:T18]
  If Target.Address = "$B$2" Then
    For Each c In plage
      If c = "" Then
        c = Target
        Exit For
      Else
        If c.Row = 17 Then
          MsgBox "Vous ne pouvez plus entrer de données"
        End If
      End If
    Next
  End If
End Sub

bonjour

desolé de pas avoir repondu avant j etais parti a l etranger

je viens de voir le code que vous m avez posté et ca marche bien

j ai seulement pas fait attention que j avais d autres conditions a prendre en compte

pouvez vous m aider une derniere fois svp ?

si J4="horizontal" et si la valeur inscrite dans e4 est < a 4672 alors la valeur inscrite en e4 viens se reporter en t10 et ainsi de suite jusqua t18

si J4="horizontal" et si la valeur inscrite dans e4 est > a 4672 alors la valeur inscrite en e4 viens se reporter en U37 et la suivante en U38

si j4="on ground" alors les valeurs inscrites en e4 viennent se copier l une apres l autre en u26 jusqu a u33

j espere etre assez clair je vous ai reposté un fichier avec un debut de code

merci d avance