Pascal_New
XLDnaute Nouveau
Bonjour Le Forum,
Merci d'avance pour l'aide que vous pourrez m'apporter : je reste en ligne toute la journée (et demain) pour vous répondre.
J'ai réussi à faire à peu près ce que je veux sur mon tableau (cf pièce jointe) mais il me manque 2 choses importantes dans ma macro associée à mon Bouton "Copié Collé" que j'ai créé :
- faire en sorte qu'après que j'ai copié ma plage de cellule, je colle dans une autre feuille que les lignes dont le contenu de la colonne H est non vide (<>0). Il me manque juste cette précision et je ne sais pas comment faire....
- Faire que ma zone d'impression de cette nouvelle page dont je viens de coller les éléments soit "A1:"dernière cellule de la plage que je viens de copier".
Voilà. Je vous remercie par avance pour votre aide !
Bonne journée,
Pascal
Mon bout de code :
Private Sub Edition_Click()
Domaine = Sheets("Data").Range("A6:H36").Select 'ce sera toujours cette plage de cellule qui sera à copier
Selection.Copy
With Worksheets("Simulation")
.Activate
.Range("A8").Select 'coller à partir de la cellule A8
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "??????????"
End With
End Sub
Merci d'avance pour l'aide que vous pourrez m'apporter : je reste en ligne toute la journée (et demain) pour vous répondre.
J'ai réussi à faire à peu près ce que je veux sur mon tableau (cf pièce jointe) mais il me manque 2 choses importantes dans ma macro associée à mon Bouton "Copié Collé" que j'ai créé :
- faire en sorte qu'après que j'ai copié ma plage de cellule, je colle dans une autre feuille que les lignes dont le contenu de la colonne H est non vide (<>0). Il me manque juste cette précision et je ne sais pas comment faire....
- Faire que ma zone d'impression de cette nouvelle page dont je viens de coller les éléments soit "A1:"dernière cellule de la plage que je viens de copier".
Voilà. Je vous remercie par avance pour votre aide !
Bonne journée,
Pascal
Mon bout de code :
Private Sub Edition_Click()
Domaine = Sheets("Data").Range("A6:H36").Select 'ce sera toujours cette plage de cellule qui sera à copier
Selection.Copy
With Worksheets("Simulation")
.Activate
.Range("A8").Select 'coller à partir de la cellule A8
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.PageSetup.PrintArea = "??????????"
End With
End Sub
Pièces jointes
Dernière édition: