changer rapidement hauteur

sub CahngeHauteur
activesheet.Range("A1:A40").Select
Selection.RowHeight = 20
end sub
--
René Delcourt

bonjour

soit 40 lignes avec une hauteur de 33

comment faire pour changer rapidement la hauteur de ces lignes
exemple : nouvelle hauteur de 40

sans faire 40 fois la manipulation
( par quelque chose de type " rechercher remplacer"..)

je vous remercie



--
vous pouvez, si vous le souhaitez , en plus du forum, me répondre
directement ici jeanjeanfrancoisbe@gmail.com ; enlevez le premier
"jean" qui est en trop !

bonjour,René

Range("A1:A40").RowHeight = 20 fait la même chose sans sélectionner

A+

sub CahngeHauteur
activesheet.Range("A1:A40").Select
Selection.RowHeight = 20
end sub

et à la main:
choisir les 40 lignes (par leur numéro, à l'extrême gauche) puis Format,
Ligne, Hauteur, inscrire 40

Si très habile avec la souris, une fois les ligne sélectionnées, aller sur
la barre noire (devenue blanche pac sélection) entre 2 numéros de ligne de
la sélection , le curseur se change en flèche à double sens, et agrandir (en
glissant vers le bas) jusqu'à 40 dans l'info bulle

Bonne chance!
--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
432d6eba$0$7827$8fcfb975@news.wanadoo.fr...

bonjour,René

Range("A1:A40").RowHeight = 20 fait la même chose sans sélectionner

A+

sub CahngeHauteur
activesheet.Range("A1:A40").Select
Selection.RowHeight = 20
end sub