Probleme

Papou-net

XLDnaute Barbatruc

• 23 Octobre 2008

• #2

Re : Probleme

Bonjour jeremyy,

Je t'ai rédigé 2 macros de copie selon tes désirs.
L'avantage de la 1ère est d'être plus rapide, l'avantage de la seconde est qu'elle se déroule quelle que soit la feuille affichée à l'écran.

Code:

Sub Copie()
Sheets(1).Activate
For Lg = 5 To Sheets(2).Range("A65536").End(xlUp).Row
  Sheets(2).Rows(Lg).EntireRow.Copy
  ActiveSheet.Paste Destination:=Rows(Lg)
  Sheets(1).PrintOut Copies:=1, Collate:=True
Next
End Sub

Sub Copie1()
For Lg = 5 To Sheets(2).Range("A65536").End(xlUp).Row
  For Each cel In Sheets(2).Rows(Lg & ":" & Lg).Cells
    Sheets(1).Cells(Lg, cel.Column) = cel
  Next
  Sheets(1).PrintOut Copies:=1, Collate:=True
Next
End Sub

Espérant avoir répondu.

Cordialement.

PS : n'oublies pas la charte du forum, et surtout de saluer à l'entrée de ton message (nous ne sommes pas des robots). Merci

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 23 Octobre 2008

• #3

Re : Probleme

Bonjour,
Il l'a colle dans la feuille 1, oui, mais où ?
Sans savoir, d'office ligne 1

Code:

Sub ImpLigne()
With Sheets("Feuil2")
    For i = 5 To .Range("A65000").End(xlUp).Row
        .Rows(i).Copy Sheets("Feuil1").Range("A1")
            With Sheets("Feuil1")
            .PrintOut
            .Rows(1).ClearContents
            End With
    Next
 End With
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 23 Octobre 2008

• #4

Re : Probleme

Re,
Salut Papou
A priori j'ai compris qu'il n'imprime qu'une seule ligne à la fois 😱
Ton PS est justifié, à force je ne m'en aperçois même plus.
A+
kjin

 

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 23 Octobre 2008

• #5

Re : Probleme

En faite la lignede la 1er feuille que je copie et bien je la colle dans la 2eme feuille et j imprime cette deuxieme feuille. je vais essayer le code apré merci

 

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 23 Octobre 2008

• #6

Re : Probleme

Regardez la pièce jointe j'y explique ce que je souhaiterais faire 😉

Merci d'avance a tous

 

Pièces jointes

• Exmple AIDE.xlsm

  19.6 KB · Affichages: 40
• Exmple AIDE.xlsm

  19.6 KB · Affichages: 44
• Exmple AIDE.xlsm

  19.6 KB · Affichages: 40

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 23 Octobre 2008

• #7

Re : Probleme

Bonjour Kjin, le Forum,

Kjin, d'après sa demande, j'ai compris qu'il travaillait en boucle : "... jusqu'à la ligne vide."
Mais peu importe, il suffit de supprimer la boucle 'For Lg...Next' pour travailler à l'unité.

Cordialement.

 

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 23 Octobre 2008

• #8

Re : Probleme

J'espère que mon exemple vous est compréhensible

 

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 23 Octobre 2008

• #9

Re : Probleme

Personne pour m'aider???

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 23 Octobre 2008

• #10

Re : Probleme

Bonsoir Jeremyy,

Sur ce forum nous sommes tous bénévoles et avons un travaille à côté !

Alors des posts toutes les 20 minutes 😱 - BE COOL garçon !

De plus il s'agit d'un fichier Excel 2007, tu n'est pas sur le bon forum
Et ton fichier ne contient aucune donnée, à part les explications, donc pas de réponse ...

A+ dans de meilleures conditions 😡

 

Dernière modification par un modérateur: 23 Octobre 2008

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 23 Octobre 2008

• #11

Re : Probleme

Bruno M45 je m'en doute ! désolé je vous comprends ! Mais le truc c'est que je me casse la tête sur ça depuis ce matin et je n y arrive pas ^^
Désolé mais la je suis chez moi donc je suis sous office 2007 mais c'est pour mon travail où on est sous 2003!

Si j'ai mis dans le fichier que les explications c'est pour donnée une idée de ma situation!

Merci bonne soirée a tous . J'espere que quelqu'un poura m'aider a m'en sortir

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 23 Octobre 2008

• #12

Re : Probleme

Re,

Bon, je ne suis pas comme ça, je n'aime pas laisser les gens dans la panade 😉

Mais, sur ce forum : RIEN N'EST URGENT
Donc STP, pense bien à ça la prochaine fois.

Voilà ton fichier avec tout ce qu'il faut, du moins je l'espère 😀

A+

 

Pièces jointes

• Jeremyy_Exemple AIDE.xls

  51 KB · Affichages: 61

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 24 Octobre 2008

• #13

Re : Probleme

Merci beaucoup Bruno M45, c'est presque sa mais en faite le probleme que j'ai maintenand c'est que en faite dans le user form ou il y a AA BB et CC j'y avais insérer un ComboBox qui fonctionne tres bien mais je n'arrive pa assemblé les deux en faite,

parceque la enfaite quand je choisi le service dans le comboBox il m imprime 8 fois la solution.

IL doit mélanger le comboBox et les check box


Sinon Merci beaucoup Bruno M45, éscuser moi dans mon comportement , votre aide m'est très utile ! ! !

 

Vote positif 0 Vote négatif

J

Jeremyy

XLDnaute Occasionnel

• 24 Octobre 2008

• #14

Re : Probleme

Bonjours a tous !

un coup de main je pense avoir trouvé la solution mais j'ai un petit probleme

For Lig = 5 To DerLig
Sheets("Feuil2").Select
Cells(ListIndex + 5, 1).EntireRow.Select <==== c'est ici le probleme
Selection.Copy

'ne vous occupez pas de ce qui suit :
Sheets("aaa").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down:=18
Range("C25:C48").Select
Application.CutCopyMode = False
Selection.Cut
ActiveWindow.SmallScroll Down:=-33
Range("F4").Select
ActiveSheet.Paste
Range("F27").Select
Selection.Cut
Range("A26").Select
ActiveSheet.Paste
Next


je voudrais qu'il me choisissent la ligne 5 pui quant il a fait la boucle qu'il me selectionne la suivante !

Svp

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Octobre 2008

• #15

Re : Probleme

Bonjour,

Jeremyy à dit:

Bonjours a tous !
un coup de main je pense avoir trouvé la solution mais j'ai un petit probleme

Cliquez pour agrandir...

Quelle solution (qui à priori ne fonctionne pas !) et à quel problème ?!

Jeremyy à dit:

'ne vous occupez pas de ce qui suit :

Cliquez pour agrandir...

Pourquoi avoir mis ces lignes alors ?!, d'autant que le "next" en fin de procédure est important, non ?
Et la Combobox en question, elle fait quoi ?
Sans ton fichier modifié comment veux tu avoir de l'aide !
A+
kjin

 

Vote positif 0 Vote négatif