Une petite facile pour ce merveilleux :-)) lundi matin au travail
Que dois-je ajouter au lieu des xxxxxxx dans cette macro
Ce que je voudrais est que maes colonnes soient ajustée à la taille maxi
plus + 2 pour que ce soit plus clair
Sub columnwidth()
'
' columnwidth Macro
' Macro recorded 30/06/2008 by
'
Columns("A:M").Select
Selection.Columns.AutoFit
xxxxxxxxxxxxxxxxxxxxxxxxx
Columns("A:A").Select
Range("A1").Select
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub
En verifiant ce que tu dis (tu risque de le prendre mal) Alors je vais plutôt dire En mettant en pratique tes conseils hautement appréciés Je me suis rendu compte que le menu déroulant "Outil" est différent si on est sur la feuille ou "DANS" une cellule
Décidément cette échelle est haute, mais je grimpe, je grimpe
A bientôt
Et encore et toujours
MERCI
REx
"Modeste" a écrit dans le message de news: % Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
et si tu as le temps quelle différence y a-t-il entre ta réponse et celle de Lsteph
bien que modeste, j'aspire toujours à me distinguer ;o))) Le nombre qui s'affiche dans la zone Largeur de colonne standard correspond au nombre moyen de CHIFFRES compris entre 0 et 9 de la police standard pouvant être contenus dans une cellule.
police standard définie là Menu Outils > Options... > Onglet Général > Police Standard ou Menu Format > Style... > Normal
et c'était bien l'objet de ma question préliminaire ;o))) > 2 quoi ???
2 caractères , 2 millimètres, 2 inches ??
toujours fidéle à moi-même et faute de réponse péremptoire j'ai proposé une réponse (un pas hors du rang) ... un ajustement en pourcentage (1.2 = largeur ajustée + 20%)
-- @+ ;o)))
Mon cher Modeste
A chaque jour sa leçon
Et je viens de prendre ma journalière
En verifiant ce que tu dis (tu risque de le prendre mal)
Alors je vais plutôt dire
En mettant en pratique tes conseils hautement appréciés
Je me suis rendu compte que le menu déroulant "Outil"
est différent si on est sur la feuille ou "DANS" une cellule
Décidément cette échelle est haute, mais je grimpe, je grimpe
A bientôt
Et encore et toujours
MERCI
REx
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23aBgrPs2IHA.5188@TK2MSFTNGP04.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
et si tu as le temps quelle différence y a-t-il entre ta réponse et
celle de Lsteph
bien que modeste, j'aspire toujours à me distinguer ;o)))
Le nombre qui s'affiche dans la zone Largeur de colonne standard correspond
au nombre moyen de CHIFFRES compris entre 0 et 9 de la police standard
pouvant être contenus dans une cellule.
police standard définie là
Menu Outils > Options... > Onglet Général > Police Standard
ou
Menu Format > Style... > Normal
et c'était bien l'objet de ma question préliminaire ;o)))
> 2 quoi ???
2 caractères , 2 millimètres, 2 inches ??
toujours fidéle à moi-même et faute de réponse péremptoire
j'ai proposé une réponse (un pas hors du rang) ... un ajustement en
pourcentage (1.2 = largeur ajustée + 20%)
En verifiant ce que tu dis (tu risque de le prendre mal) Alors je vais plutôt dire En mettant en pratique tes conseils hautement appréciés Je me suis rendu compte que le menu déroulant "Outil" est différent si on est sur la feuille ou "DANS" une cellule
Décidément cette échelle est haute, mais je grimpe, je grimpe
A bientôt
Et encore et toujours
MERCI
REx
"Modeste" a écrit dans le message de news: % Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
et si tu as le temps quelle différence y a-t-il entre ta réponse et celle de Lsteph
bien que modeste, j'aspire toujours à me distinguer ;o))) Le nombre qui s'affiche dans la zone Largeur de colonne standard correspond au nombre moyen de CHIFFRES compris entre 0 et 9 de la police standard pouvant être contenus dans une cellule.
police standard définie là Menu Outils > Options... > Onglet Général > Police Standard ou Menu Format > Style... > Normal
et c'était bien l'objet de ma question préliminaire ;o))) > 2 quoi ???
2 caractères , 2 millimètres, 2 inches ??
toujours fidéle à moi-même et faute de réponse péremptoire j'ai proposé une réponse (un pas hors du rang) ... un ajustement en pourcentage (1.2 = largeur ajustée + 20%)
-- @+ ;o)))
rthompson
Bonjour Lsteph
C'est vrai que ça doit être dur de revenir La preuve, on l'attends toujours
Et même à l'Anglo-Belge que je suis, il manque ;-((
Je ne connais pas "amha" ????? Quoi c'est ça????
Je suis tombé amoureux d'une blonde Quand je l'ai épousé elle était brune Et maintenant elle est grise
Et crois moi blond c'est le plus chouette Mais on l'aime quand même ;-)))
Merci pour ton aide et surtout pour ces petits mots ajoutés
Même si dans ce groupe certains deviennent de plus en plus "ROBOTS" j'aime quand on explique et même quand on déborde sur d'autres sujets
Et maintenant une bonne jatte en écoutant un peu de Joe Cocker et puis au boulot
Rex
A bientôt
Rex
"LSteph" a écrit dans le message de news:
BonsØir,
Sur le principe plusieurs chemins mènent à Rome, (comme disait Coluche le plus dur c'est pour revenir)
@vec ferveur
Il porte bien son nom le Modeste,
sa proposition est amha légèrement préférable à un autre point de vue
En utilisant un indice (integer) pour décliner la collection dans la boucle, il en résulte l'execution d'un code moins lourd qu'en définissant c en tant qu'objet (range).
Avec les bécanes qu'on a aujourd'hui c'est moins significatif mais tout de même.
@+
-- lSteph (....qui ne sait plus ce qu'il devra réciter) [HS] ;-)) ...t'aimes pas les blondes ou t'as un pb avec les terasses?
rthompson a écrit :
Bonjour Modeste
Eh ben
Tu reprends tes bonnes habitudes
Tu réponds plus vite que ton ombre ;-)))
Primo, je ne bois pas
de ce liquide là
Je suis plutôt un de ceux qui préfère les vrais bières Les bonnes vielles brunes bien charpentées que l'on décuste au coin du feu, ou sur la terrasse un bon bouquin, de la musique relaxe et un plateau de fromage et de charcuterie à portée de la main
Ce qui fait que je vais arrêter ici, vite rentré à la maison ;-)))))
But seriously Merci d'avoir répondu
et si tu as le temps quelle différence y a-t-il entre ta réponse et celle de Lsteph
Je suppose que tu me diras que c'est simplement une approche différente, ou une question de style
mais quoi encore ......
Je te colle ici ce qu'il propose
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Sub colw() Dim c As Range Columns("A:M").Columns.AutoFit For Each c In Columns("A:M").Columns c.ColumnWidth = c.ColumnWidth + 2 Next xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
A bientôt
Rex
"Modeste" a écrit dans le message de news: % Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Une petite facile pour ce merveilleux :-)) lundi matin au travail Que dois-je ajouter au lieu des xxxxxxx dans cette macro Ce que je voudrais est que === maes ===== colonnes soient ajustée à la taille maxi plus + 2 pour que ce soit plus clair
Sub Rex_Width() Dim c As Integer For c = 1 To 13 Columns(c).AutoFit Columns(c).columnwidth = Columns(c).columnwidth * 1.2 Columns(c).EntireColumn.HorizontalAlignment = xlCenter Next End Sub
(*)http://www.maes.be/PRODUCTEN/FR/maes.php
Bonjour Lsteph
C'est vrai que ça doit être dur de revenir
La preuve, on l'attends toujours
Et même à l'Anglo-Belge que je suis, il manque ;-((
Je ne connais pas "amha" ?????
Quoi c'est ça????
Je suis tombé amoureux d'une blonde
Quand je l'ai épousé elle était brune
Et maintenant elle est grise
Et crois moi blond c'est le plus chouette
Mais on l'aime quand même ;-)))
Merci pour ton aide et surtout pour ces petits mots ajoutés
Même si dans ce groupe certains deviennent de plus en plus "ROBOTS"
j'aime quand on explique et même quand on déborde sur d'autres sujets
Et maintenant une bonne jatte en écoutant un peu de Joe Cocker et puis au
boulot
Rex
A bientôt
Rex
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
efU1gWu2IHA.784@TK2MSFTNGP04.phx.gbl...
BonsØir,
Sur le principe plusieurs chemins mènent à Rome,
(comme disait Coluche le plus dur c'est pour revenir)
@vec ferveur
Il porte bien son nom
le Modeste,
sa proposition est amha légèrement préférable à un autre point de vue
En utilisant un indice (integer) pour décliner la collection dans la
boucle, il en résulte l'execution d'un code moins lourd qu'en définissant
c en tant qu'objet (range).
Avec les bécanes qu'on a aujourd'hui c'est moins significatif
mais tout de même.
@+
--
lSteph
(....qui ne sait plus ce qu'il devra réciter)
[HS]
;-))
...t'aimes pas les blondes ou t'as un pb avec les terasses?
rthompson a écrit :
Bonjour Modeste
Eh ben
Tu reprends tes bonnes habitudes
Tu réponds plus vite que ton ombre ;-)))
Primo, je ne bois pas
de ce liquide là
Je suis plutôt un de ceux qui préfère les vrais bières
Les bonnes vielles brunes bien charpentées que l'on décuste au coin du
feu, ou sur la terrasse
un bon bouquin, de la musique relaxe et un plateau de fromage et de
charcuterie à portée de la main
Ce qui fait que je vais arrêter ici, vite rentré à la maison ;-)))))
But seriously
Merci d'avoir répondu
et si tu as le temps quelle différence y a-t-il entre ta réponse et celle
de Lsteph
Je suppose que tu me diras que c'est simplement une approche différente,
ou une question de style
mais quoi encore ......
Je te colle ici ce qu'il propose
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub colw()
Dim c As Range
Columns("A:M").Columns.AutoFit
For Each c In Columns("A:M").Columns
c.ColumnWidth = c.ColumnWidth + 2
Next
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
A bientôt
Rex
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23DSA1Fq2IHA.1240@TK2MSFTNGP02.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Une petite facile pour ce merveilleux :-)) lundi matin au travail
Que dois-je ajouter au lieu des xxxxxxx dans cette macro
Ce que je voudrais est que === maes ===== colonnes soient ajustée à la
taille
maxi plus + 2 pour que ce soit plus clair
Sub Rex_Width()
Dim c As Integer
For c = 1 To 13
Columns(c).AutoFit
Columns(c).columnwidth = Columns(c).columnwidth * 1.2
Columns(c).EntireColumn.HorizontalAlignment = xlCenter
Next
End Sub
C'est vrai que ça doit être dur de revenir La preuve, on l'attends toujours
Et même à l'Anglo-Belge que je suis, il manque ;-((
Je ne connais pas "amha" ????? Quoi c'est ça????
Je suis tombé amoureux d'une blonde Quand je l'ai épousé elle était brune Et maintenant elle est grise
Et crois moi blond c'est le plus chouette Mais on l'aime quand même ;-)))
Merci pour ton aide et surtout pour ces petits mots ajoutés
Même si dans ce groupe certains deviennent de plus en plus "ROBOTS" j'aime quand on explique et même quand on déborde sur d'autres sujets
Et maintenant une bonne jatte en écoutant un peu de Joe Cocker et puis au boulot
Rex
A bientôt
Rex
"LSteph" a écrit dans le message de news:
BonsØir,
Sur le principe plusieurs chemins mènent à Rome, (comme disait Coluche le plus dur c'est pour revenir)
@vec ferveur
Il porte bien son nom le Modeste,
sa proposition est amha légèrement préférable à un autre point de vue
En utilisant un indice (integer) pour décliner la collection dans la boucle, il en résulte l'execution d'un code moins lourd qu'en définissant c en tant qu'objet (range).
Avec les bécanes qu'on a aujourd'hui c'est moins significatif mais tout de même.
@+
-- lSteph (....qui ne sait plus ce qu'il devra réciter) [HS] ;-)) ...t'aimes pas les blondes ou t'as un pb avec les terasses?
rthompson a écrit :
Bonjour Modeste
Eh ben
Tu reprends tes bonnes habitudes
Tu réponds plus vite que ton ombre ;-)))
Primo, je ne bois pas
de ce liquide là
Je suis plutôt un de ceux qui préfère les vrais bières Les bonnes vielles brunes bien charpentées que l'on décuste au coin du feu, ou sur la terrasse un bon bouquin, de la musique relaxe et un plateau de fromage et de charcuterie à portée de la main
Ce qui fait que je vais arrêter ici, vite rentré à la maison ;-)))))
But seriously Merci d'avoir répondu
et si tu as le temps quelle différence y a-t-il entre ta réponse et celle de Lsteph
Je suppose que tu me diras que c'est simplement une approche différente, ou une question de style
mais quoi encore ......
Je te colle ici ce qu'il propose
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Sub colw() Dim c As Range Columns("A:M").Columns.AutoFit For Each c In Columns("A:M").Columns c.ColumnWidth = c.ColumnWidth + 2 Next xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
A bientôt
Rex
"Modeste" a écrit dans le message de news: % Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Une petite facile pour ce merveilleux :-)) lundi matin au travail Que dois-je ajouter au lieu des xxxxxxx dans cette macro Ce que je voudrais est que === maes ===== colonnes soient ajustée à la taille maxi plus + 2 pour que ce soit plus clair
Sub Rex_Width() Dim c As Integer For c = 1 To 13 Columns(c).AutoFit Columns(c).columnwidth = Columns(c).columnwidth * 1.2 Columns(c).EntireColumn.HorizontalAlignment = xlCenter Next End Sub
(*)http://www.maes.be/PRODUCTEN/FR/maes.php
Modeste
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Je ne connais pas "amha" ????? Quoi c'est ça????
;o))) GETA STFW
http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_fra ncophone versus http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_ang lophone -- @+ ;o)))
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Je ne connais pas "amha" ?????
Quoi c'est ça????
;o)))
GETA STFW
http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_fra ncophone
versus
http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_ang lophone
--
@+
;o)))
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Je ne connais pas "amha" ????? Quoi c'est ça????
;o))) GETA STFW
http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_fra ncophone versus http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_ang lophone -- @+ ;o)))
rthompson
Je m'instruit
Je m'instruit
Je m'instruit
Je m'instruit
;-))))
"Modeste" a écrit dans le message de news: eN$ Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Je ne connais pas "amha" ????? Quoi c'est ça????
;o))) GETA STFW
http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_francophone versus http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_anglophone -- @+ ;o)))
Je m'instruit
Je m'instruit
Je m'instruit
Je m'instruit
;-))))
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
eN$leA22IHA.1428@TK2MSFTNGP06.phx.gbl...
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
Je ne connais pas "amha" ?????
Quoi c'est ça????
;o)))
GETA STFW
http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_francophone
versus
http://fr.wikipedia.org/wiki/Liste_de_termes_d%27argot_Internet#Argot_anglophone
--
@+
;o)))
