• Initiateur de la discussion Initiateur de la discussion pouty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pouty

XLDnaute Junior
<< Bonjour au forum,

<< Je reviens vers vous solliciter de l'aide :

<< les lignes sélectionnés dans la listview par des checbox et puis ensuite bouton imprimer qui envoie les donnés dans la feuil" imp " fonctionne mais je voudrais si on peut que cette macro considère les entetes de colonnes + mode paysages + et dernieres fonction quelle mette le total des pallettes + total poids en dessous

<< Je joins la macro que j'ai et merci à votre aide apporté .

<< ' Procedure : CommandButton8_Click
' 01/03/2007 20:42
' Utilisation :imprimer

Private Sub CommandButton8_Click()
Sheets("imp").Select
Cells.Select
Selection.ClearContents
ligne1 = 0
Sheets(nomf1).Select

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
ligne1 = Mid(ListView1.ListItems(i).Key, 2, 50)
Exit For
End If
Next i

If ligne1 = 0 Then
MsgBox ("Vous devez sélectionner une ligne")
Exit Sub
End If

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
'ligne1 = Mid(ListView1.ListItems(i).ListSubItems(1).Key, 2, 50)
ligne1 = Mid(ListView1.ListItems(i).Key, 2, 50)
dl1 = Sheets("imp").Range("A65536").End(xlUp).Row + 1
impression1
End If
Next i


impression2
End Sub




<< ' Procedure : impression1
' 01/03/2007 20:55
' Utilisation :copie des lignes de la feuille avec les données vers la feuille d'impression

'
Private Sub impression1()
Sheets(nomf1).Select
Rows(ligne1).Select
Selection.Copy
Sheets("imp").Select
Rows(dl1).Select
ActiveSheet.Paste
End Sub

' Procedure : impression2
' 01/03/2007 20:55
' Utilisation :

'
Private Sub impression2()
Sheets("imp").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
 
Re : macro imprimer

Bonjour

Une première réponse et une piste

Pour mettre un titre il faut se positionner dans la feuille imp et paramétrer l'impression en utilisant dans le menu fichier la mise en page.

Concernant les calculs il faut rajouter dans la macro l'inscription des formules sur la dernière ligne, pour cela il faut utiliser l'enregistreur de macro et d'effectuer l'inscription des formules, puis modifier la macro obtenue au niveau de la ligne.



JP
 
Re : macro imprimer

Bonsoir

Macro à tester

Code:
Sub Macro1()
Dim data1 As String
Dim dl1 As Long
With Sheets("imp")
dl1 = .Range("e65536").End(xlUp).Row + 1
    data1 = "=SUM(R2C:R" & dl1 - 1 & "C)"
    .Range("E" & dl1).FormulaR1C1 = data1
    .Range("F" & dl1).FormulaR1C1 = data1
    .Range("G" & dl1).FormulaR1C1 = data1
    .Range("H" & dl1).FormulaR1C1 = data1
 End With
End Sub

JP
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
465
Retour