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 !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
René Delcourt
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 ; enlevez le premier "jean" qui est en trop !
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 !
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
DanC
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" a écrit dans le message de news: 432d6eba$0$7827$
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
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" a écrit dans le message de news: 432d6eba$0$7827$
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