Excel, fonction selection de zone

mathieu1406 Messages postés 6 Statut Membre -  
mathieu1406 Messages postés 6 Statut Membre -
Bon voilà la formule qui ne fonctionne pas :)

Sub IMPRIMER()
'
' IMPRIMER Macro
' Macro enregistrée le 03/06/2007 par THOMAS
'
' Touche de raccourci du clavier: Ctrl+Maj+I
'
Dim iRow As Long

For iRow = 1 To 65536
If Cells(iRow, "O").Value = "" And Cells(iRow, "Y").Value = "" Then
Exit For
End If
Next iRow
Range("A1:O" & iRow).Select
End Sub

et je dois ajouter :
FitToPagesWide = 1& .FitToPagesTall = 1
à
With ActiveSheet
With ActiveSheet
FitToPagesWide = 1& .FitToPagesTall = 1
.PrintOut
End With

L'ennui c'est que ma formule ne fonctionne, elle ne selectionne qu'une ligne , la premiere et en plus je n'arrive pas à mettre la selection et l'impression à la suite pour une même macro.

Merci
Thomas
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1.
    mathieu1406 Messages postés 6 Statut Membre
     
    Re bonsoir,

    Il est surement necessaire que je m'explique mieux :

    Je veux selectionner un plage de cellules sous excel
    la plage part obligatoirement de la cellule A12.
    La 2eme cellule à une condition ;
    En effet :
    La selection part de A12 et arrive en O(?)
    O(?) est defini lorsque sur une ligne (x) les cellules O(x) et Y(x) sont vident.

    J'ai testé cela :

    Dim iRow As Long

    For iRow = 1 To 65536
    If Cells(iRow, "O").Value = "" And Cells(iRow, "Y").Value = "" Then
    Exit For
    End If
    Next i
    Range("A12:O" & iRow).Select

    ca marche pas ça ne selectionne qu'une ligne ...
    Je comprend pas pourquoi,
    Voir ici pour les screen shot :
    http://thomasgibert.info/2.jpg

    A l'aide, :)
    Thomas
    0