enregistrer une cellule

[stephane1394]

Bonjour
J'ai essayé d'utiliser une macro pour enregistrer la cellule mais je ne sais pas comment lorsque j'appuie sur le bouton "enregistrer" la cellule s'enregistre toujours au même endroit et je souhaiterai que cela passe à la ligne suivante. Si quelqu'un peut m'aider ce serait formidable.
Merci à tous

 

[stephane1394]

Re : enregistrer une cellule

Je suis désolé j'ai oublié de vous joindre le fichier pour que vous puissiez m'aider
Merci

 

[Robert]

Re : enregistrer une cellule

Bonjour Stéphane, bonjour le forum,

Essai comme ça :

Sub enregistrement_code()
Dim DEST As Range 'déclare la variable dest (cellule de DESTination)

'définit la cellule dest (première cellule vide dela colonne A)
Set DEST = Sheets("base de donnée code").Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
Range("B9").Copy DEST 'copie la cellule B9 dans la cellule de destination
End Sub

 

[Paritec]

Re : enregistrer une cellule

Bonjour Stéphane1394, le forum
met ce code dans le bouton
a+
Papou🙂

Sub enregistrement_code()
    Feuil1.Range("B9").Copy
    Feuil14.Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

EDIT : Bonjour Robert 🙂 j'avais pas mis à jour excuses a+

 

[stephane1394]

Re : enregistrer une cellule

Bonjour
Merci pour les 2 solutions cela marche super. Bonne journée A tous

 

[Robert]

Re : enregistrer une cellule

Bonjour le fil, bonjour le forum,

Oui Papou, j'avais vu la formule en B9 mais il y en une aussi à la première copie. J'ai vaguement regardé et j'ai vu qu'elle vérifiait l'étiquette. J'ai pensé qu'il manquait des $ pour bloquer... Je suis surpris que Stéphane dise que les deux marchent car moi j'avais une erreur... Soit il a rectifié sa formule en B9, soit... je sais pas ! je me suis dit : "oueïte ande scie" car je parle l'anglais aussi bien que je l'écris...

 

[stephane1394]

Re : enregistrer une cellule

Désolé robert
je suis allé un peu trop vite en besogne.Ta solution marche pour la première ligne mais après cela ne fonctionne plus après. donc j'ai pris la solution de PARITEC qui, elle fonctionne mieux. Je suis vraiment désolé , la prochaine fois, je ne m'emballerai pas.
Encore merci à tous pour les efforts que chacun d'entre vous fournisse.