Récupérer info de sélection

[Unusual]

Bonjour,

Je dois faire une macro de présentation de texte d'une cellulle centrée sur plusieurs colonnes, mais la colonne de fin de la plage concernée dépend de la sélection courante AVANT le lancement de la macro...

Cela devrait donner qq chose comme cela :

Sub RECAP()

    Range('C1:?1').Select

    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Une bonne partie est fixe, mais la colonne ? doit correspondre à l'avant dernière colonne de la sélection courante au moment du lancement de la macro.

Comment dois-je adapter le code ci-dessus ?

Merci d'avance pour l'aide apportée...

Message édité par: unusual, à: 05/07/2005 11:38

 

[Hervé]

Bonjour unusual, le forum

je pense etre bon pour le zop, mais je me lance quand meme :

tu sélectionnes une plage, et à cette sélection tu veux appliquer ta macro, si c'est ca, pourquoi n'utilises tu pas directement selection ?

Sub RECAP()

    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

A plus

salut

 

[Unusual]

Non, ce n'est pas cela...

La sélection AVANT le lancement de la macro porte sur un ensemble de ligne et de colonnes variables en dessous de cette ligne qui représente l'entête de page.

Comme le nombre de colonnes de cette ensemble 'détail' est variable, je dois récupérer l'avant dernière colonne de cette sélection pour effectuer mon centrage sur plusieurs colonnes de B jusqu'à ? sur ma première ligne.

 

[2passage]

Bonjour,

Je pense que ce bout de code est ce qu'il te faut :

With ActiveWindow.RangeSelection
    Range(Cells(.Row, .Column), Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 2)).Select
End With

A plus

 

[Unusual]

[RESOLU] Récupérer info de sélection

Presque ok...Comme c'était juste sur la première ligne, c'était :

With ActiveWindow.RangeSelection
        Range(Cells(1, .Column + 1), Cells(1, .Column + .Columns.Count - 2)).Select
    End With

qu'il me fallait.

Mais merci pour l'info qui m'a mis sur la voie...