Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1024 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Exel problème copie feuille

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA Exel problème copie feuille

n°2115000
pacou62
Posté le 05-12-2011 à 18:57:08  profilanswer
 

Bonjour,
Un peu débutant sur VBA j'ai ce code qui devrais me permettre de taper une facture, de l'enregistrer sur un fichier et de l'imprimer
 
Sub imprimefacture()
 
    Sheets("facture" ).Range("A1:F55" ).Copy Destination:=Sheets("recafacture" ).Cells(Sheets("recafacture" ).Range("b65536" ).End(xlUp).Row + 1, 1)
    ActiveSheet.PrintOut Copies:=1
    Range("E4" ).Value = Range("E4" ).Value + 1
    Range("B15:B18" ).ClearContents
    Range("A21:C42" ).ClearContents
    Range("F21:F42" ).ClearContents
     
End Sub
 
Seul souci, quand j'enregistre la 2eme facture dans ma feuille "recafacture" elle grignote quelques lignes de la précédente
 
Merci de votre aide
Pascal  

mood
Publicité
Posté le 05-12-2011 à 18:57:08  profilanswer
 

n°2115027
pacou62
Posté le 05-12-2011 à 22:55:17  profilanswer
 

Bon j'ai trouvé,
dans ma feuille "facture" la  cellule b de la dernière ligne était vide seul la cellule A était complété , ça reprenais donc un peu plus haut.
j'ai simplement transformé en:
 
  Sub imprimefacture()
 
    Sheets("facture" ).Range("A1:F55" ).Copy Destination:=Sheets("recafacture" ).Cells(Sheets("recafacture" ).Range("a65536" ).End(xlUp).Row + 1, 1)
    ActiveSheet.PrintOut Copies:=1
    Range("E4" ).Value = Range("E4" ).Value + 1
    Range("B15:B18" ).ClearContents
    Range("A21:C42" ).ClearContents
    Range("F21:F42" ).ClearContents
     
End Sub  
 
Et ça marche, c'est magique;;; encore quelques petites améliorations, histoire de s'amuser un peu
 
merci quand même


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA Exel problème copie feuille

 

Sujets relatifs
Select Case en VBA : question de débutantProblème-écriture-image-GIF
Problème-écriture-image-GIFCalcul de la valeur actuelle avec VBA
Calcul financiers avec VBA excelBluegriffon - probleme de code
probleme importation .CSV vers MySQL[VBA Outlook] Est-ce possible ? Creer une "application" outlook
probleme 3D openglGros problème en Visual Basic...
Plus de sujets relatifs à : VBA Exel problème copie feuille


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR