Aide Excel

Forum d'aide et d'entraide sur Excel : cours, astuces, tutoriaux...
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 un coup de pouce pour ma macro

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
DOOBLEMIXTE
Membre


Nombre de messages : 3
Date d'inscription : 25/10/2009

MessageSujet: un coup de pouce pour ma macro   Dim 25 Oct à 22:20

Dans ma Macro j'aimerais pouvoir inclure un N° automatique et surtout que l'enregistrement ce place sur la dernière ligne vide.
Merci de votre concours

Sub CopieFactures()
'
' Position derniere ligne avant la copie
' Numéro de Facture Auto

' Copie les cellules dans la Feuille Etat

Sheets("Etat").Select
Sheets("Etat").Cells(2, 1) = Sheets("Facture").[G19]
Sheets("Etat").Cells(2, 2) = Sheets("Facture").[H19]
Sheets("Etat").Cells(2, 3) = Sheets("Facture").[I19]
Sheets("Etat").Cells(2, 4) = Sheets("Facture").[J19]
Sheets("Etat").Cells(2, 5) = Sheets("Facture").[K19]
Sheets("Etat").Cells(2, 6) = Sheets("Facture").[G21]
Sheets("Etat").Cells(2, 7) = Sheets("Facture").[H21]
Sheets("Etat").Cells(2, Cool = Sheets("Facture").[I21]
Sheets("Etat").Cells(2, 9) = Sheets("Facture").[J21]
Sheets("Etat").Cells(2, 10) = Sheets("Facture").[k21]
Sheets("Etat").Cells(2, 11) = Sheets("Facture").[G23]
Sheets("Etat").Cells(2, 12) = Sheets("Facture").[H23]
Sheets("Etat").Cells(2, 13) = Sheets("Facture").[I23]
Sheets("Etat").Cells(2, 14) = Sheets("Facture").[J23]
Sheets("Etat").Cells(2, 15) = Sheets("Facture").[H25]
Sheets("Etat").Cells(2, 16) = Sheets("Facture").[I25]
Sheets("Etat").Cells(2, 17) = Sheets("Facture").[J25]

Cells.Select
Selection.Columns.AutoFit
Selection.Rows.AutoFit
Sheets("Facture").Select
End Sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
dachevid
Membre


Nombre de messages : 275
Date d'inscription : 05/09/2005

MessageSujet: Re: un coup de pouce pour ma macro   Lun 26 Oct à 17:03

Bonjour aussi,

Il faudrait un peu plus de précision, par exemple où se trouve le numéro à incrémenter.

S'il est en G19 sur la feuille Facture alors il suffit de mettre à la fin de la macro (après Sheets("Facture").Select) :
Range("G19")= Range("G19").value +1

Ainsi lors de la prochaine saisie sur la feuille Facture le numéro est déjà incrémenté.

Concernant la dernière ligne, c'est la dernière ligne vide sur quelle feuille ?

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
DOOBLEMIXTE
Membre


Nombre de messages : 3
Date d'inscription : 25/10/2009

MessageSujet: Re: un coup de pouce pour ma macro   Lun 26 Oct à 19:43

Merci DACHEVID pour la réponse

Les cellules qui doivent être copiées viennent de la feuille "facture" pour être enregistré sur la Feuille "Etat"
Cela Fonctionne bien, mais il me faut un N° d'enregistrement avant la réf G19
Et bien sur que l'enregistrement ce fasse sur la dernière ligne vide de la feuille "Etat"

Merci par avance de ta réponse
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
DOOBLEMIXTE
Membre


Nombre de messages : 3
Date d'inscription : 25/10/2009

MessageSujet: Re: un coup de pouce pour ma macro   Mar 27 Oct à 8:50

le problème ne semble pas venir de la dernière ligne mais

Dans le fichier ci-dessous le principe fonctionne mais le problème est que je ne sais pas comment faire pour que l'enregistrement ne reste pas sur la même ligne puisque je crois qu'il faut faire incrémenter un comptage sur Cells(2>, 1)

Avez vous une Idée Svp

Sub CopieFactures()

' Copie les cellules de la Feuil "Facture"
' Dans la Feuille Etat

Sheets("Etat").Select

Range("A65536").End(xlUp).Offset(1, 0).Select

' Positionne sur la dernière ligne avant la copie
Sheets("Etat").Cells(2, 1) = Sheets("Facture").[G19]
Sheets("Etat").Cells(2, 2) = Sheets("Facture").[H19]
Sheets("Etat").Cells(2, 3) = Sheets("Facture").[I19]
Sheets("Etat").Cells(2, 4) = Sheets("Facture").[J19]
Sheets("Etat").Cells(2, 5) = Sheets("Facture").[K19]
Sheets("Etat").Cells(2, 6) = Sheets("Facture").[G21]
Sheets("Etat").Cells(2, 7) = Sheets("Facture").[H21]
Sheets("Etat").Cells(2, Cool = Sheets("Facture").[I21]
Sheets("Etat").Cells(2, 9) = Sheets("Facture").[J21]
Sheets("Etat").Cells(2, 10) = Sheets("Facture").[k21]
Sheets("Etat").Cells(2, 11) = Sheets("Facture").[G23]
Sheets("Etat").Cells(2, 12) = Sheets("Facture").[H23]
Sheets("Etat").Cells(2, 13) = Sheets("Facture").[I23]
Sheets("Etat").Cells(2, 14) = Sheets("Facture").[J23]
Sheets("Etat").Cells(2, 15) = Sheets("Facture").[H25]
Sheets("Etat").Cells(2, 16) = Sheets("Facture").[I25]
Sheets("Etat").Cells(2, 17) = Sheets("Facture").[J25]

' Il faut pouvoir faire augmenter Cells 2
' pour ne pas rester sur la dernière ligne enregistré
'
Cells.Select
Selection.Columns.AutoFit
Selection.Rows.AutoFit
' Sheets("Facture").Select
End Sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: un coup de pouce pour ma macro   

Revenir en haut Aller en bas
 
un coup de pouce pour ma macro
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Aide Excel :: Entraide & apprentissage :: A l'aide...-
Sauter vers: