Excel, fonction selection de zone
mathieu1406
Messages postés
6
Statut
Membre
-
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
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
A voir également:
- Excel, fonction selection de zone
- Alternative zone telechargement - Accueil - Outils
- Fonction si et excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Fonction moyenne excel - Guide
1 réponse
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
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
