Reporter le contenu d'une cellule, à la suite dans une collonne

[Papy 100]

Bonjour à tout le monde et au Forum

Déjà GRANDS MERCIS pour l'aide que vous nous apportez :
Mon problème est le suivant;
Je souhaiterai que le contenu d'une cellule où je rentre des données régulièrement se mette automatiquement à la suite, dans une colonne et qu'elle y reste après que la cellule "donnée" soit effacée
Je vous joins un fichier qui sera je pense plus explicite qu'un long discours.

Je vous remercie grandement pour votre aide Patrick

 

[JBARBE]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

Bonsoir à tous,

Peut-être ceci lors de la saisie en cellule K7 !

bonne soirée

 

[Papy 100]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

JBARBE bonsoir et je te remercie pour ta réponse qui me convient tout à fait

Grâce à toi je vais gagner du temps et ne plus commettre de petites erreurs

Encore GRANDS MERCIS Patrick

 

[Papy 100]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

Bonjour le Forum et tout le monde : Merci pour l'aide apportée à tout à chacun
vous êtes vraiment sympa....

Je vous joins la suite de mon premier fichier afin de m'aider sur mon problème.
Je n'arrive pas à transformer la macro
MERCI d'avance Patrick

 

[Jack2]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

Bonjour Papy 100, JBARBE et le Forum,

Pour que la procédure donnée par JBARBE s'applique avec ta modif, il faut mettre le nouveau if et then sur la même ligne

Remplacer :

 If Cells(i, 22) = "" Then
 Cells(i, 22) = Range("K11")

par

 If Cells(i, 22) = "" Then Cells(i, 22) = Range("K11")

ou par

 If Cells(i, 22) = "" Then
 Cells(i, 22) = Range("K11")
 End If

Ca fonctionne chez moi
A+ Jack2

 

[JBARBE]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

Bonjour à tous,

SANS L'utilisation d'une boucle et en plus simple :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$K$7" Then
  Sheets("Feuil1").Range("T2").End(xlDown).Offset(1, 0).Select
   ActiveCell = Range("K7")
   ActiveCell.Offset(0, 1) = Date
   ActiveCell.Offset(0, 2) = Range("K11")
 End If
End Sub

bonne journée

 

[Papy 100]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

Merci à vous JBARBE et JACK2 pour l'aide apportée - C'est tout à fait ce que je souhaitais.
Comme précédemment dit, cela va me faire gagner du temps et plus de risque d'erreur

GRANDS MERCIS à vous, vous êtes géniaux Patrick

 

[JBARBE]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

Petit problème avec la sélection en ligne 2 résolu ici :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$K$7" Then
  Range("T65536").End(xlUp).Offset(1).Select
   ActiveCell = Range("K7")
   ActiveCell.Offset(0, 1) = Date
   ActiveCell.Offset(0, 2) = Range("K11")
 End If
End Sub

bonne soirée

 

[Jack2]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

Bonsoir à tous,
Content pour Papy 100 et merci à JBARBE pour le sens du raccourci (ligne 2 que je découvre).
A+ Jack2

 

[Papy 100]

Re : Reporter le contenu d'une cellule, à la suite dans une collonne

Bonjour le forum et à Toi JBARBE que je remercie avec un peu de retard (la famille) pour le temps que tu m'as consacré

Le fichier fonctionne comme je le souhaitais encore MERCI Patrick