S
serge
Guest
Dans la version précédente (début semaine) Michel.Béziers nous avait communiqué la macro qui va bien pour "empiler" dans une colonne les données saisies dans une cellule (voir "chemin forcé"). Voici la modif Bitéroise pour que cette saisie se mette en place sur une même ligne (lgn 20 dans l'ex.) alors que la saisie se fait en A5.
A signaler dans la version Excel97 "Exel.Range" au lieu de "Range" dans la version 2000, mais les deux cas fonctionnent sous les deux versions!
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim n°col As Long
If Intersect(Target, Range("A5")) Is Nothing Then: End
n°col = Rows(20).Find("", [IV20], , , xlByColumns).Column
Cells(20, n°col) = Range("A5")
End Sub
et... merci Michel.
A signaler dans la version Excel97 "Exel.Range" au lieu de "Range" dans la version 2000, mais les deux cas fonctionnent sous les deux versions!
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim n°col As Long
If Intersect(Target, Range("A5")) Is Nothing Then: End
n°col = Rows(20).Find("", [IV20], , , xlByColumns).Column
Cells(20, n°col) = Range("A5")
End Sub
et... merci Michel.