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
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
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
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonjour à toutes et tous
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 m axi
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
D'avance merci et à toute à l'heure
Rex
Bonjour à toutes et tous
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 m axi
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
D'avance merci et à toute à l'heure
Rex
Bonjour à toutes et tous
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 m axi
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
D'avance merci et à toute à l'heure
Rex
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonjour,
Remplacer xxxxxxxxxxxxxxxxxxxxxxxxx
par
Selection.ColumnWidth = Selection.ColumnWidth + 2
--
Cordialement
"rthompson" a écrit dans le message de
news:%Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonjour,
Remplacer xxxxxxxxxxxxxxxxxxxxxxxxx
par
Selection.ColumnWidth = Selection.ColumnWidth + 2
--
Cordialement
jpmonnier-no-spam@neuf.fr
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news:%23zNlV0p2IHA.1772@TK2MSFTNGP03.phx.gbl...
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonjour,
Remplacer xxxxxxxxxxxxxxxxxxxxxxxxx
par
Selection.ColumnWidth = Selection.ColumnWidth + 2
--
Cordialement
"rthompson" a écrit dans le message de
news:%Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
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
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
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
et si tu as le temps quelle différence y a-t-il entre ta réponse et
celle de Lsteph
c.ColumnWidth = c.ColumnWidth + 2
Columns(c).columnwidth = Columns(c).columnwidth * 1.2
2 caractères , 2 millimètres, 2 inches ??
et si tu as le temps quelle différence y a-t-il entre ta réponse et
celle de Lsteph
c.ColumnWidth = c.ColumnWidth + 2
Columns(c).columnwidth = Columns(c).columnwidth * 1.2
2 caractères , 2 millimètres, 2 inches ??
et si tu as le temps quelle différence y a-t-il entre ta réponse et
celle de Lsteph
c.ColumnWidth = c.ColumnWidth + 2
Columns(c).columnwidth = Columns(c).columnwidth * 1.2
2 caractères , 2 millimètres, 2 inches ??
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Bonjour Lsteph
Et merci pour ce petit cours
Je sais qu'il faudrait que j'arrive à ne plus "Selecter"
mais j'arrive pas toujours à comprendre certaines astuces des objets
C'est comme pour les matriciels,
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Merci encore
PS juste un petit truc
Qui prouve que je ne suis pas tout à fait "Null"
C'est bien les cellules de tête qui doivent être centrées et non les
colonnes
Je veux que le titre soit au centre, mais les infos sont alignés à gauche
A bientôt
Rex
"lSteph" a écrit dans le message de news:
Bonjour,
voyons Rex...! vous réciterez 3 "Délivre nous des select" et 5
"je vous invoque directement objets pleins de grâce"
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
' et pour ici
[A1].HorizontalAlignment = xlCenter
'ceci centre la cellule 1
'ne serait ce plutôt
[a:a].HorizontalAlignment = xlCenter
'centrer pour la colonne
End Sub
'lSteph
On 30 juin, 12:35, "rthompson"
wrote:Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Bonjour Lsteph
Et merci pour ce petit cours
Je sais qu'il faudrait que j'arrive à ne plus "Selecter"
mais j'arrive pas toujours à comprendre certaines astuces des objets
C'est comme pour les matriciels,
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Merci encore
PS juste un petit truc
Qui prouve que je ne suis pas tout à fait "Null"
C'est bien les cellules de tête qui doivent être centrées et non les
colonnes
Je veux que le titre soit au centre, mais les infos sont alignés à gauche
A bientôt
Rex
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
c8585d7a-9797-4376-8c05-3381b5d57dd6@k13g2000hse.googlegroups.com...
Bonjour,
voyons Rex...! vous réciterez 3 "Délivre nous des select" et 5
"je vous invoque directement objets pleins de grâce"
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
' et pour ici
[A1].HorizontalAlignment = xlCenter
'ceci centre la cellule 1
'ne serait ce plutôt
[a:a].HorizontalAlignment = xlCenter
'centrer pour la colonne
End Sub
'lSteph
On 30 juin, 12:35, "rthompson" <roubliemoithomp...@softscreen.be>
wrote:
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Bonjour Lsteph
Et merci pour ce petit cours
Je sais qu'il faudrait que j'arrive à ne plus "Selecter"
mais j'arrive pas toujours à comprendre certaines astuces des objets
C'est comme pour les matriciels,
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Merci encore
PS juste un petit truc
Qui prouve que je ne suis pas tout à fait "Null"
C'est bien les cellules de tête qui doivent être centrées et non les
colonnes
Je veux que le titre soit au centre, mais les infos sont alignés à gauche
A bientôt
Rex
"lSteph" a écrit dans le message de news:
Bonjour,
voyons Rex...! vous réciterez 3 "Délivre nous des select" et 5
"je vous invoque directement objets pleins de grâce"
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
' et pour ici
[A1].HorizontalAlignment = xlCenter
'ceci centre la cellule 1
'ne serait ce plutôt
[a:a].HorizontalAlignment = xlCenter
'centrer pour la colonne
End Sub
'lSteph
On 30 juin, 12:35, "rthompson"
wrote:Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
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
2 quoi ???
2 caractéres , 2 millimetres, 2 inches ??
=== maes ===(*) ???
;o)))
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 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
2 quoi ???
2 caractéres , 2 millimetres, 2 inches ??
=== maes ===(*) ???
;o)))
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 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
2 quoi ???
2 caractéres , 2 millimetres, 2 inches ??
=== maes ===(*) ???
;o)))
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
Bonsoir à tousIl faudra absolument que je vienne suivre des cours lors du prochain
souper
Oui! et prépare bien la liste des questions, la queue risque d'être
longue, lors de la dernière rencontre, il a fallu installer des barrières
genre "parc d'attraction", même que certains(es) se sont endormis(es) et
que le propriétaire des lieus a proposé de nous donner les clefs pour
procéder à la fermeture des locaux, d'autres, les plus assidus ont
terminés les exposés dans les chambres.
Et puis.......
Deux des meilleurs de ce forum présent dans ce fil nous avaient lâchement
abandonnés.
;o))
Salutations
JJ
"rthompson" a écrit dans le message de
news:Bonjour Lsteph
Et merci pour ce petit cours
Je sais qu'il faudrait que j'arrive à ne plus "Selecter"
mais j'arrive pas toujours à comprendre certaines astuces des objets
C'est comme pour les matriciels,
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Merci encore
PS juste un petit truc
Qui prouve que je ne suis pas tout à fait "Null"
C'est bien les cellules de tête qui doivent être centrées et non les
colonnes
Je veux que le titre soit au centre, mais les infos sont alignés à gauche
A bientôt
Rex
"lSteph" a écrit dans le message de news:
Bonjour,
voyons Rex...! vous réciterez 3 "Délivre nous des select" et 5
"je vous invoque directement objets pleins de grâce"
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
' et pour ici
[A1].HorizontalAlignment = xlCenter
'ceci centre la cellule 1
'ne serait ce plutôt
[a:a].HorizontalAlignment = xlCenter
'centrer pour la colonne
End Sub
'lSteph
On 30 juin, 12:35, "rthompson"
wrote:Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonsoir à tous
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Oui! et prépare bien la liste des questions, la queue risque d'être
longue, lors de la dernière rencontre, il a fallu installer des barrières
genre "parc d'attraction", même que certains(es) se sont endormis(es) et
que le propriétaire des lieus a proposé de nous donner les clefs pour
procéder à la fermeture des locaux, d'autres, les plus assidus ont
terminés les exposés dans les chambres.
Et puis.......
Deux des meilleurs de ce forum présent dans ce fil nous avaient lâchement
abandonnés.
;o))
Salutations
JJ
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: udvlJWr2IHA.4476@TK2MSFTNGP06.phx.gbl...
Bonjour Lsteph
Et merci pour ce petit cours
Je sais qu'il faudrait que j'arrive à ne plus "Selecter"
mais j'arrive pas toujours à comprendre certaines astuces des objets
C'est comme pour les matriciels,
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Merci encore
PS juste un petit truc
Qui prouve que je ne suis pas tout à fait "Null"
C'est bien les cellules de tête qui doivent être centrées et non les
colonnes
Je veux que le titre soit au centre, mais les infos sont alignés à gauche
A bientôt
Rex
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news:
c8585d7a-9797-4376-8c05-3381b5d57dd6@k13g2000hse.googlegroups.com...
Bonjour,
voyons Rex...! vous réciterez 3 "Délivre nous des select" et 5
"je vous invoque directement objets pleins de grâce"
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
' et pour ici
[A1].HorizontalAlignment = xlCenter
'ceci centre la cellule 1
'ne serait ce plutôt
[a:a].HorizontalAlignment = xlCenter
'centrer pour la colonne
End Sub
'lSteph
On 30 juin, 12:35, "rthompson" <roubliemoithomp...@softscreen.be>
wrote:
Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex
Bonsoir à tousIl faudra absolument que je vienne suivre des cours lors du prochain
souper
Oui! et prépare bien la liste des questions, la queue risque d'être
longue, lors de la dernière rencontre, il a fallu installer des barrières
genre "parc d'attraction", même que certains(es) se sont endormis(es) et
que le propriétaire des lieus a proposé de nous donner les clefs pour
procéder à la fermeture des locaux, d'autres, les plus assidus ont
terminés les exposés dans les chambres.
Et puis.......
Deux des meilleurs de ce forum présent dans ce fil nous avaient lâchement
abandonnés.
;o))
Salutations
JJ
"rthompson" a écrit dans le message de
news:Bonjour Lsteph
Et merci pour ce petit cours
Je sais qu'il faudrait que j'arrive à ne plus "Selecter"
mais j'arrive pas toujours à comprendre certaines astuces des objets
C'est comme pour les matriciels,
Il faudra absolument que je vienne suivre des cours lors du prochain
souper
Merci encore
PS juste un petit truc
Qui prouve que je ne suis pas tout à fait "Null"
C'est bien les cellules de tête qui doivent être centrées et non les
colonnes
Je veux que le titre soit au centre, mais les infos sont alignés à gauche
A bientôt
Rex
"lSteph" a écrit dans le message de news:
Bonjour,
voyons Rex...! vous réciterez 3 "Délivre nous des select" et 5
"je vous invoque directement objets pleins de grâce"
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
' et pour ici
[A1].HorizontalAlignment = xlCenter
'ceci centre la cellule 1
'ne serait ce plutôt
[a:a].HorizontalAlignment = xlCenter
'centrer pour la colonne
End Sub
'lSteph
On 30 juin, 12:35, "rthompson"
wrote:Bonjour à toutes et tous
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
D'avance merci et à toute à l'heure
Rex