aller a la ligne pour nouvel enregistrement

[pascal]

bonjour ,

je suis novice dans les macros excel , je me suis crée une macro pour copier et coller les valeurs d un formulaire'feuil1'vers une autre feuille'feuil2' en ligne, mais je sais pas comment faire pour que lorsque je réexecute ma macro apres avoir modifié mon formulaire me permettre d avoir une nouvelle ligne sur 'feuil2' sans écraser l'enregistrement précédent , j 'ai parcouru , je pense, presque tous les sujets du forum mais je n'ai pas touvé mon bonheur.

je vous joint mon fichier au cas ou je ne sois pas trop clair dans mes explications

merci d avance

 

[Minick]

Salut,

Sheets('Feuil2').Range('A65536').End(Xlup).Row

te donne la derniere ligne utilisée de la colonne A

donc

Sheets('Feuil2').Range('A65536').End(Xlup).Row +1

te donnera la 1ere ligne vide dans la colonne A

@+

Message édité par: Minick, à: 18/08/2005 14:21

 

[pascal]

merci minick pour ta reponse

mais le problème c est que j ai crée ma macro manuellement et je n y connait pas grand chose et je ne sais pas ou faut il mettre cette ligne dans ma macro

merci

 

[Minick]

re

eh ben mais moi ta macro en ligne ou ton fichier en pj je regarderai
(fichier zippé, 50ko maxi, pasde caractere speciaux ni espace)

@+

 

[pascal]

merci de m accorder un peu de temps ,
je vous joint mon petit fichier il est tout simple c est pour que je comprenne avant de me lancer dans du complexe

 

[Minick]

re,

La pj n'est pas passé mais je te joins un exemple simple

@+ [file name=Pascal.zip size=7253]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pascal.zip[/file]

 

[pascal]

je vous joint mon fichier
merci

 

[pascal]

je refait un essai pour l envoi de ma pièce jointe [file name=transfert_20050818174505.zip size=8798]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/transfert_20050818174505.zip[/file]

 

[Minick]

Re,

Tu trouveras en piece jointe 2 methodes pour arriver à ce que tu veux
à toi de choisir

@+ [file name=transfert_20050818180655.zip size=10724]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/transfert_20050818180655.zip[/file]

 

[pascal]

franchement c est royal,

je pense m' en sortir maintenant et attaquer plus complexe

merci Minick de m'avoir accordé de ton temps

c'est cool

@+

 

[Minick]

Salut,

Comme tu sembles motivé, je te mets une 3eme methode
avec une boucle For... Next qui est bien pratique parfois

@+

 

[pascal]

Salut,

j ai hate de voir

 

[Minick]

ooops, excuse moi j'avais oublié la piece,jointe

@+ [file name=transfert_20050818184322.zip size=10725]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/transfert_20050818184322.zip[/file]

 

[pascal]

en effet

mais je peux utiliser combien de fois for et next

 

[Minick]

Salut,

Je suis pas sur d'avoir compri ta question, mais tu peux imbriquer les For... Next sans probleme

Sub ForImbrique()
   Dim CptLig as Byte, CptCol as Byte

   For CptLig = 1 to 10
      For CptCol = 1 to 15
         Cells(CptLig, CptCol)='A'
      Next
   Next
End Sub

Cet exemple remplira un tableau de 10 lignes sur 15 colonnes avec des A

@+

Message édité par: Minick, à: 18/08/2005 19:22