Probleme de Selection

[timekeeper]

bonjour a tous

je cherche a attribuer une hauteur de ranger a une cellule active .

en simple,

je copie dans une cellule active un texte

et je souhaiterais que la ranger ou la cellule active est sélectionné, prenne une hauteur de 32 par exemple

merci par avance

sebastien

 

[DoubleZero]

Re : Probleme de Selection

Bonjour, timekeeper, le Forum,

Comme ceci ?

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.RowHeight = 13.2
    Target.RowHeight = 32
End Sub

A bientôt 🙂

 

[timekeeper]

Re : Probleme de Selection

merci mais je ne comprend pas , j'ai du mal m'expliquer ..

je souhaite par exemple si la cellule H15 (ou autre) est sélectionnée, je lancer une macro qui fait en sorte que la rangé de la cellule sélectionné passe a une hauteur de 32 .

merci d'avance ..

Sébastien

 

[DoubleZero]

Re : Probleme de Selection

Re-bonjour,

merci mais je ne comprend pas , j'ai du mal m'expliquer ...

Peut-être ai-je mal 😕 compris.

Voir le fichier joint en acceptant les macros.

A bientôt 🙂

 

[timekeeper]

Re : Probleme de Selection

Désolé c'est presque ça ,

je veux simplement sélectionner une cellule

lancer une macro

et la ligne qui correspond a la cellule change de hauteur et le reste

c'est tous

merci encore

sebastien

 

[job75]

Re : Probleme de Selection

Bonsoir timekeeper, bonsoir chère ânesse,

Avant d'aller dormir, ça ne vous vient pas à l'idée d'écrire :

Sub Hauteur()
ActiveCell.RowHeight = 32
End Sub

C'est le genre de macro vraiment inutile...

Bonne nuit

 

[timekeeper]

Re : Probleme de Selection

Merci JOB75

C'est parfaitement ça !!!!