Excel selection de plage

Bonjour,

Voilà mon probême :

Je veux selectionner un plage de cellules dans une feuille 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 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, de A12 à O12 ...

Je comprend pas pourquoi,

Voir ici pour un screen shot :

Si il y a ici une âme charitable qui puisse m'aider..

Merci beaucoup.

Thomas

Bonjour Thomas,

Avec la propriété "cells", il faut indiquer les numéros de colonnes et non la lettre;

Par ex

Y => 25

O => 15

Bon WE

Salut Michel,

Merci de ta réponse,

Je viens de tester ça :

Dim iRow As Long

For iRow = 1 To 65536

If Cells(iRow, "15").Value = "" And Cells(iRow, "25").Value = "" Then

Exit For

End If

Next iRow

Range("B12:15" & iRow).Select

End Sub

Malheureusement ça marche po... (

Tu aurais une autre idee dans ta poche?

Merci beaucoup.

Thomas

Salut le forum

Essaye plutôt ceci en partant de 12 pas de 1

Dim iRow As Long

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

Mytå

Edition

Michel_m a écrit :

Avec la propriété "cells", il faut indiquer les numéros de colonnes et non la lettre.

Ca marche parfaitement bien merci beaucoup,

Dernier detail :

J'ai plusieurs macro et je souhaiterais pouvoir toutes les lancer en même temps en affectant une macro qui lancerais toutes les autre macro simultanément.

Merci encore pour ce renseignement

vous me facilitez la vie, vous ne savez pas comment... )

Thomas

Bon week end.

Salut le forum

Tu peux faire comme ceci

Sub LancerMacro()
Call Macro1
Call Marco2
'La suite du code
End Sub

Mytå

une toute derniere question, je vous promets,

Un fois la zone selectionné A12- O?

J'ai besoin d'intergrer dans la macro :

Dim iRow As Long

For iRow = 12 To 65536

If Cells(iRow, "O").Value = "" And Cells(iRow, "Y").Value = "" Then

Exit For

End If

Next iRow

Range("A12:O" & iRow - 1).Select

une fonction qui definisse la zone selectionnee comme zone d'impression et lance l'aperçu avant impression en mode paysage reduit à 78 %.

La je crois bien que j'en demande trop.

Désolé de tout ce rafus...

Merci encore.

Thomas

Salut le forum

Rajoute avant ton End Sub, le code suivant:

    ActiveSheet.PageSetup.PrintArea = Selection.Address
        With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = 78
        End With
    ActiveWindow.SelectedSheets.PrintPreview

Mytå

Si vous saviez le nombre de forum que j'ai fais sans jamais trouver d'aide...

Et des trés connus...

Myta, (je ne sais pas comment tu arrive à mettre un rond sur le a) je ne sais pas comment te remercier de ton aide.

tu peux être sür que je parle de ce forum et en tout cas, je deviens adepte.

Bon dimanche.

A bientôt.

Thomas