sauvegarder valeurs de cellule sous forme de colonne

lacarce

XLDnaute Nouveau
Bonjour nouveau sur ce forum je m'appelle claude lacarce utilisateur d'excel pour mes tableaux de compta et jeux je suis nul en VBA qui me semble souvent indispensable.
Mon problème actuel est dans le titre, je souhaite mémoriser sous forme de colonne les différentes valeurs que j’inscris manuellement dans une cellule ceci dans la meme feuille de calcul plusieurs cellules étant concerne par cette manip
Je doute pas que vous me proposiez une solution
merci
 

job75

XLDnaute Barbatruc
Bonjour lacarce, bienvenue sur XLD,

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = [G2:L2] 'plage à adapter
Application.EnableEvents = False 'désactive les évènements
If FilterMode Then ShowAllData 'si la feuille est filtrée
For Each r In r
    If TypeName(Evaluate(r.Value)) = "Range" Then _
        If Not Intersect(Target, Range(r)) Is Nothing Then _
            Cells(Rows.Count, r.Column).End(xlUp)(2) = Range(r).Cells(1)
Next
Application.EnableEvents = True 'réactive les évènements
End Sub
Entrez des valeurs dans les cellules jaunes.

A+
 

Fichiers joints

lacarce

XLDnaute Nouveau
Plus précisément le fichier n'est pas trouvé


Oops : nous avons rencontré des problèmes.





La page demandée n'a pu être trouvée.
 
Dernière édition:

job75

XLDnaute Barbatruc
Quelqu'un aurait-il l'obligeance de dire s'il rencontre un problème à l'ouverture du fichier ?
 

Roblochon

XLDnaute Barbatruc
Bonjour,

Pas de problème pour ouvrir ce classeur celui du post #2.
Par contre je crois que le "Ooops..." est un message d'erreur du serveur du forum.
@lacarce essayez de le retélécharger de nouveau.

Bon week-end
 

lacarce

XLDnaute Nouveau
Je reprends ce dossier aprés quelques jours d'absence et je vous remercie tous de votre contribution, d'autant plus que j'ai pu ouvrir ce fichier qui correspond exactement à ma demande et QUI MARCHE il ne me reste plus qu'à l'installer
Merci encore et cordialement

Sujet Résolu
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas