position dans cell

[patgravure35]

Bonjour à tous et a toutes

Je voudrais savoir si il est possible dans une feuille de calcule
D’inscrire des chiffre dans une cellule d'une colonne et que ses données s'inscrive dans une autre colonne

Je m'explique

Par exemple je veux entrer tous mes chiffres dans A1 et qu’il ce place dans la colonne B
Merci d'avance et bonne journée a tous

À bientôt

 

[Pierrot93]

Re : position dans cell

Bonjour,

regarde ceci, à utiliser dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then _
    Target.Offset(0, 1) = Target
End Sub

bonne journée
@+

 

[phlaurent55]

Re : position dans cell

Bonjour patgravure,

en B1 tu mets: =A1
et tu tires la formule vers le bas

........... ou alors par macro

à+
Philippe

Edit: Bonjour Pierrot

 

[patgravure35]

Re : position dans cell

merci pour vos reponce mais je cherche a entrée plusieur code dans A1 et qu'il ce range dans la colonne B

merci de votre aide

 

[Pierrot93]

Re : position dans cell

Re,

tu veux dire conserver une trace de toutes les saisies succesives dans la cellule A1, et ce dans la première cellule vide de la colonne B ??

 

[patgravure35]

Re : position dans cell

oui tout a fait et que je reste fixe sur ma cell A1 pour que je puisse entrée tout mes code

merci de ton aide

 

[Pierrot93]

Re : position dans cell

Re,

modifie comme suit :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then _
    Cells(Rows.Count, 2).End(xlUp)(2) = Target
End Sub

 

[Pierrot93]

Re : position dans cell

Re,

pour rester en A1 :

Option Explicit
Dim f As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then _
    Cells(Rows.Count, 2).End(xlUp)(2) = Target: f = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If f Then f = False: Range("A1").Select
End Sub

 

[patgravure35]

Re : position dans cell

cool je vais tester cela

merci encore et a bientôt