Macro - enregistrement de résultats

[fleurdasie]

Bonjour,

J'aimerais savoir s'il est possible de créer une macro qui permettrait de copier des résultats de plusieurs cellules dans une autre feuille Excel (du même fichier) et les mettre à la suite automatiquement en sorte qu'à chaque fois que l'on appuie sur la macro, on rajoute à la ligne les résultats dans la liste obtenue.

Je ne sais pas si j'ai été assez claire, n'hésitez pas à me demander de reformuler.

Merci pour votre aide,

[carcharodon-carcharias]

bonsoir

fichier à tester

[fleurdasie]

Bonjour Carcharo,

Merci pour ton aide,
J'ai ouvert le fichier test, oui, c'est bien ce que je voudrais faire, insérer le résultat de la cellule à la suite de la feuille 2 à chaque fois que j'appuierai sur le bouton,

Ci joint l'exemple.

Existe-il une macro pour ça?

Merci bien,

[carcharodon-carcharias]

bonjour

à tester

clic droit sur le bouton puis affecter une macro

[fleurdasie]

Oh c'est tout à fait ce qu'il me fallait!!!

Merci infiniment!

Bonne journée!

[fleurdasie]

Bonjour,

Je reviens encore demander de l'aide pour le même problème car après quelques heures de tentatives, je suis toujours bloquée par mon problème voulant rajouter d'autres critères dans la macro...

J'aimerai pouvoir rajouter plusieurs résultats de cellules à partir de la feuille 1 sur les colonnes de la feuille 2,

Je pensais pouvoir dupliquer ce même code à la suite du premier, mais en vain, je n'arrive pas

Voici l'exemple ci -joint.

Merci beaucoup à l'avance,

[fleurdasie]

Avec le fichier cette fois ci !

[fleurdasie]

Quelqu'un pourrait m'aider SVP? c'est assez urgent, please!

Merci beaucoup !!

[carcharodon-carcharias]

bonsoir

pour ajouter a ta liste la valeur de la sélection changer la macro par ceci

Dim derl As String, LaVal As Variant, L As Integer
    LaVal = Selection.Value
    If LaVal = "" Then Exit Sub
    derl = Feuil2.Range("A65536").End(xlUp).Row + 1
    '____________________________________________________
    For L = 1 To derl - 1                                 '
        If Feuil2.Range("A" & L) = LaVal Then Exit Sub     '"" lignes à sup si nécécité de garder les doublons
    Next L                                                '
    '____________________________________________________
    Feuil2.Range("A" & derl) = LaVal

[Staple1600]

Bonsoir à tous

Quelqu'un pourrait m'aider SVP? c'est assez urgent, please!

Rien n'est urgent sur ce forum.

Nous sommes tous bénévoles, alors nous avons le temps.

EDITION: une autre approche

Sub a()
Dim t
t = Feuil1.Range([B3], [B65536].End(xlUp)).Value
With Feuil2
    .[A1].Resize(, UBound(t)) = Application.Transpose(t)
    .Columns("B:C").Delete
End With
End Sub

[fleurdasie]

Bonsoir,

Merci pour votre aide, désolée d'avoir été impatiente...
vous faites un super boulot pour le bonheur de tous !

Carcharo,

malheureusement, je n'arrive toujours pas.. je suis un peu bête ou trop exigeante. J'ai collé la macro, mais cela ne marche pas. Pourrais-tu regarder ce fichier joint?

Mille merci !!!

Cdt,

[carcharodon-carcharias]

re
autre essai avec transfert de la valeur sélectionnée uniquement si la sélection est en colonne B

[Staple1600]

Re

Entre temps tu as a changé la disposition de tes cellules !
Donc ce code n'est plus adéquat

Sub a()
Dim t
t = Feuil1.Range([B3], [B65536].End(xlUp)).Value
With Feuil2
    .[A1].Resize(, UBound(t)) = Application.Transpose(t)
    .Columns("B:C").Delete
End With
End Sub

[Staple1600]

Re


Mais celui-ci oui

Sub Macro1()
Rows("3:3").SpecialCells(2).Copy Sheets("Feuil2").[A1]
End Sub

[fleurdasie]

re,

désolée d'avoir changé de disposition entre temps, je pensais qu'en ayant un code, je pouvais le dupliquer... et donc m'en sortir seule.. mais ce n'était pas si facile que ca.

Staple, ta derniere macro1 est presque celle que je recherche sauf que j'aimerai garder l'enregistrement des derniers résultats, et pouvoir ainsi avoir à la ligne les nouvelles données à chaque fois qu'on appuiera sur le bouton.

Carcharo, désolée, je n'ai pas réussi ta méthode, je n'ai pas très bien compris.

Merci !