enregistrer une cellule

S

stephane1394

Guest

• 11 Juillet 2011

• #2

Re : enregistrer une cellule

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

 

Pièces jointes

• Codification_ test2.zip

  64 KB · Affichages: 36

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Juillet 2011

• #3

Re : enregistrer une cellule

Bonjour Stéphane, bonjour le forum,

Essai comme ça :

Code:

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 11 Juillet 2011

• #4

Re : enregistrer une cellule

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

Code:

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+

 

Dernière édition: 11 Juillet 2011

Vote positif 0 Vote négatif

S

stephane1394

Guest

• 11 Juillet 2011

• #5

Re : enregistrer une cellule

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Juillet 2011

• #6

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...

 

Vote positif 0 Vote négatif

S

stephane1394

Guest

• 11 Juillet 2011

• #7

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.

 

Vote positif 0 Vote négatif