Discussion :

[biki070]

Bonjour Bonjour,

Je suis tout nouveau, je ne suis pas développeur, j'ai cherché ici une solution à mon problème , mais il n'est qu'en parti résolu:

sur ma feuille 1, de A2 à A300 je laisse saisir une info par l'utilisateur (1, 2, 3 etc...)
sur la feuille 2, j'ai une macro pour imprimer cette feuille, avec des infos qui change en fonction de ce qui est ecrit en B11

j'ai ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Imprimer()
Dim c As Range
For Each c In Range("idbon")
Range("nobon").Value = c.Value
Worksheets("BonPour").PrintOut
Next c
End Sub

idbon=la plage A2:A300 de la feuille 1
nobon c'est la cellule B11 de la feuille 2 (feuille 2 qui s'appelle d'ailleurs BonPour)

ça imprime parfaitement bien

le soucis c'est que si uniquement 50 lignes ont été saisies, ça m'imprimera bien mes 50 pages, mais 249 pages vides (lignes 51 à 300), puisque lui imprime la plage comme demandé
je cherche donc à dire imprime, mais dès que la cellule est vide, arrêter
ou encore ouvrir une boite de dialogue et demander à taper le nombre d'impression (il commencerait alors à 1 et arrenterai à la valeur saisie)

mais après plus de 6H dessus, je sature...

une âme charitable pour qui le vba lui parlera bien mieux qu'à moi?

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Imprimer()
 
Dim c As Range
 
    For Each c In Range("idbon")
        If c <> "" Then
            Range("nobon").Value = c.Value
            Worksheets("BonPour").PrintOut
        End If
    Next c
 
End Sub