Excel, fonction selection de zone Fermé

Question

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

mathieu1406 · Answer

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

Excel, fonction selection de zone

1 réponse

Discussions similaires