Macro de selection et d'impression
Résolu
sako_971
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
sako_971 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
sako_971 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
mon probleme est que voulant faire un impression uniquement des lignes referencés dans un tableau excel, j'ai pondu un petit code en VBA, mais etant une mauvaise poule, le code ne fonctionne pas ;)
Le voici:
Sub Imprimer()
'
' Imprimer Macro
' Impression partielle du document
'
'
For i = 9 To 112
If Not IsEmpty(Feuil1.Cells(G, i)) Then
Range("Bi:Gi").Select
End If
Next i
Feuil1.PrintPreview
End Sub
Si quelqu'un pouvais m'orienter et m'expliquer ce qui ne va pas dans mon code, cela m'aiderai beaucoup.
Merci d'avance.
mon probleme est que voulant faire un impression uniquement des lignes referencés dans un tableau excel, j'ai pondu un petit code en VBA, mais etant une mauvaise poule, le code ne fonctionne pas ;)
Le voici:
Sub Imprimer()
'
' Imprimer Macro
' Impression partielle du document
'
'
For i = 9 To 112
If Not IsEmpty(Feuil1.Cells(G, i)) Then
Range("Bi:Gi").Select
End If
Next i
Feuil1.PrintPreview
End Sub
Si quelqu'un pouvais m'orienter et m'expliquer ce qui ne va pas dans mon code, cela m'aiderai beaucoup.
Merci d'avance.
A voir également:
- Macro de selection et d'impression
- Spouleur d'impression - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Impression livret a5 - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
Voila, j'ai modifier un peut le code et ca donne ca:
For i = 9 To 120
If Not IsEmpty(Gi) Then
Range("Bi:Gi").Select
End If
Next i
Feuil1.PrintPreview
Donc la boucle se fait bien, mais j'ai une autre question maintenant, comment imprimer uniquement les lignes dont la cellule Gi n'est pas vide??
merci
For i = 9 To 120
If Not IsEmpty(Gi) Then
Range("Bi:Gi").Select
End If
Next i
Feuil1.PrintPreview
Donc la boucle se fait bien, mais j'ai une autre question maintenant, comment imprimer uniquement les lignes dont la cellule Gi n'est pas vide??
merci
Solution a mon probleme:
https://forums.commentcamarche.net/forum/affich-2365851-vba-excel-copier-lignes-avec-condition
https://forums.commentcamarche.net/forum/affich-2365851-vba-excel-copier-lignes-avec-condition