Selection plage sous excel

Question

Bonsoir,

J' sollicite un peu d'aide.
Je veux selection un plage de cellules sous excel
la plage part obligatoirement de la cellule A1.
La 2eme cellule à une condition ; 
Dans un autre fichier j'utilise le code suivant pour selectionner la 2eme cellule: 
Dim iRow As Long
        If Cells(iRow, "O").Value = "" And _
            Cells(iRow, "Y").Value = "" Then
            Rows(iRow).SELECTION
        End

Comment ecrire le code pour selectionner une plage allant de A1 a la 2eme cellule conditionnée?

Une fois selectionner, il faut que j'ajoute aussi le code d'impression de cette plage avec une reduction à 78% de la taille normale(pour que ça rentre dans la feuille)

Merci de votre aide.
thomas

mortalino · Answer

Salut,

code bizarre..
Tu déclares iRow, d'accord !
Mais tu l'utilises sans lui donner de valeur dans ton If..

Sinon, pour selectionner une plage, c'est pas .Selection, mais .Select

Et pour ta réduction de 78 % :
With ActiveSheet
    .PageSetup.Zoom = 78
    .PrintOut
End With

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

thomas1406 · Answer

Bonsoir,
merci de votre réponse,
Par contre je suis vraiment débutant ...
Pourriez vous me donner le code qui puisse faire ce que je recherche.
J'ai essayé d'appliquer une valeur au If mais vraiment je nage là.
Auriez vous un exemple pour me montrer le chemin à suivre?
Merci de votre aide.
Thomas

mortalino · Answer

Ok, mais juste une précision :
tu dis que la plage part de A1, mais je ne sais pas jusqu'où..
Quel est la valeur ? Comment la recherches-tu ?

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

thomas1406 · Answer

Bonjour et merci de ta réponse si rapide.
Pas facile à expliquer ou arrive la plage de selection.
Elle par de A1 et arrive en O(?)
O(?) est defini lorsque sur une ligne (x) les cellules O(x) et Y(x) sont vident.
d'ou le code : 
Dim iRow As Long
        If Cells(iRow, "O").Value = "" And _
            Cells(iRow, "Y").Value = "" Then
            Rows(iRow).SELECTION
        End
Mais pour une meilleure explication, je t'ai fait un petit screenshot ici : 
http://thomasgibert.info/1.jpg

Merci beaucoup de ton aide, surtout un dimanche.
A bientôt .
Thomas

mortalino · Answer

Ok, alors quelque chose dans ce style là devrait le faire : 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("A1:0" & iRow).Select ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

( Nouveau forum : Exclusivement Office & VBA

thomas1406 · Answer

Re :)

je viens de tester:
Erreur de compilation : 
reference de variable de controle incorrecte dans next.

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 i
Range("A1:0" & iRow).Select

De plus if faut que cette selection soit definie comme zone d'impression et reduite à 78% avant d'afficher l'aperçu avant impression.
Je dois controler avant d'imprimer.
Ces dernieres commande, si tu n'a pas le temps, je pourrai les creer avec le suivi des commandes dans excel.
Merci.
A tout de suite si t là.
Mon adresse msn est [mailto:thomas1406@hotmail.com thomas1406@hotmail.com] si c plus pratique pour toi.

mortalino · Answer

Next iRow
(l'habitude de i, désolé)

Côté réduction de 78 %; le code est plus haut. Sinon, tu as aussi deux propriétés :FitToPagesWide 1& .FitToPagesTall 1
Cela sert à ajuster la mise en page sur 1 page

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

thomas1406 · Answer

Re :)

Cà ne marche toujours pas :(

j'ai mis ce code : 
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:0" & iRow).Select
End Sub

Excel me fait une erreur sur Range...
Sinon comment tu ajoute le code :FitToPagesWide 1& .FitToPagesTall 1 
à
With ActiveSheet
    .PageSetup.Zoom = 78
    .PrintOut
End With
?
moi j'ai mis : 
With ActiveSheet    FitToPagesWide 1& .FitToPagesTall 1 
    .PrintOut
End With
J'ai enlever la reduction à 78% car je prefere, comme tu me l'a suggeré,  la mise en page sur 1 page.

L'ennui c'est que là non plus ça ne marche pas et que je n'arrive pas à mettre la selection et l'impression à la suite pour une même macro.

Je suis désolé, tu dois me trouver idiot ... :)
Merci 
Thomas

thomas1406 · Answer

AH !! :)
j'ai du nouveau : 
Le probleme venait du "O",
tu avais mis un 0.
Par contre la selection se fait vers le haut et non vers le bas
...
Car en fait la selection par de B12 vers O(x)
copie ecran ici : 
http://thomasgibert.info/1.jpg

Merci ;)

thomas1406 · Answer

RE,
J'ai fais avancer la situation,
On y est presque... :)
J'ai mis une valeur dans les cellulles Oet Y jusqu'a O12 et Y12.
Du coup ça selectionne vers le bas.
Dernier probleme : 
Dans les cellules O et Y, il y a des formules et non des valeurs, donc seul une ligne est selectionnee... 
Voir : 
http://thomasgibert.info/2.jpg
a++
Thomas

thomas1406 · Answer

Salut à tous,
Bon là je nage complétement, décidément j'y arrive pas,

Si il y a quelqu'un par là, je suis tout ouie.

Merci 
Thomas

Selection plage sous excel

11 réponses

Votre réponse

Discussions similaires