Macro impression

bonjour,

j'ai copié simplement une macro d'un autre fichier :

Sub impression()
'
' impressionclassement Macro
' Macro enregistrée le 21/04/2005 par Geronimi
'

'
    Range("A1:D118").Select
End Sub

il me sélectionne bien ma liste par contre, il ne lance pas la fenetre d'impression !

merci du coup de main

Cordialement

Bonsoir,

essaie ceci :

Sub impression()
With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$D$118"
    .PrintPreview
End With
End Sub

amicalement

Merci Dan, t trop fort !

précisions : peut-on demander à la macro d'adapter la sélection en fonction du remplissage du tableau : j'ai pré-rempli mon tableau => classement jusqu'à 300 mais je peux avoir seulement 100 coureurs.

comment faire pour que la macro repère la fin du tableau ? faut-il le faire en macro ou en mise en forme conditionnelle ?

merci

Bonjour,

Peut-être comme cela

Sub Impression()
    Dim Derlg As Integer
    With ActiveSheet
    Derlg = .Range("A65536").End(xlUp).Row
        .PageSetup.PrintArea = "$A$1:$D$" & Derlg
        .PrintPreview
    End With
End Sub

Bonne Journée

bonsoir,

merci DL_13 de ta réponse mais elle ne fonctionne pas !

ayant un numéro de classement fixe dans ma première colonne, je pensais que l'erreur venait de moi masi je l'ai supprimé et il m'imprime toujours le tableau complet (mise en forme avec des bordures) avec les cellules vides.

cordialement

AM Dufossey

Bonjour,

Pas sur d'avoir compris mais si tes données sont en continue en Col A et que les Col B et suivantes s'arrête au Coureur 100 (dernière cellule remplie de la Col D par exemple)

Sub Impression()
    Dim Derlg As Integer
    With ActiveSheet
    Derlg = .Range("D65536").End(xlUp).Row
        .PageSetup.PrintArea = "$A$1:$D$" & Derlg
        .PrintPreview
    End With
End Sub

Ou alors essaye ce code qui te permet, avec une InputBox, de choisir toi-même le nombre de lignes à imprimer

Sub Impression2()
    Dim Lig As Integer
    With ActiveSheet
    Lig = InputBox("Nombre de Coureurs")
        .PageSetup.PrintArea = "$A$1:$D$" & Lig
        .PrintPreview
    End With
End Sub

Avec un exemple de ton tableau on aurais pu voir de quoi il y retourne

Bonne Journée

merci DL_13, j'ai pris la deuxième version avec la boite de dialogue !

Bonne journée et merci de ton aide !