Largeur colonne

Bon j'avance à petit pas, j'ai fait qq modifs et ca marche , sauf que je veux mettre en gras la plage A1:AI13 et que je ne trouve pas le code (j'ai fais une macro pour voir le code et voila ce que j'en ai tiré)
merci les gars.

le code ;

Sub colonnes()
Dim nbli As Integer
nbli = Cells(Rows.Count, 1).End(xlUp).Row
Range("A18:AI" & nbli).Columns.AutoFit
Columns("B:B").ColumnWidth = 16
Columns("F:F").ColumnWidth = 14.5
Columns("K:K").ColumnWidth = 16
Columns("L:L").ColumnWidth = 16
Columns("M:M").ColumnWidth = 38
Columns("P:P").ColumnWidth = 15
Columns("Q:Q").ColumnWidth = 15
Columns("R:R").ColumnWidth = 16
Columns("S:S").ColumnWidth = 18.5
Columns("T:T").ColumnWidth = 15
Columns("U:U").ColumnWidth = 18
Columns("V:V").ColumnWidth = 19.5
Columns("W:W").ColumnWidth = 15
Columns("X:X").ColumnWidth = 14.5
Columns("Y:Y").ColumnWidth = 17
Columns("AF:AF").ColumnWidth = 12
Columns("AH:AH").ColumnWidth = 14
Columns("AI:AI").ColumnWidth = 14
With Range("A16:AI" & nbli)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With

With Range("C18:D18" & nbli)
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
End With

End Sub



Sub engrasA1aAI13()
' mettre en gars la plage de A1:AI13

Range("A1:AI13").Selection.Font.Bold = True

End Sub


Sub policeencalibri28()

Dim nbli As Integer
nbli = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:AI" & nbli).Select
With Selection.Font
.Name = "Calibri"
.Size = 28
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With


End Sub

Bonjour,

Range("A1:AI13").Font.Bold = True
eric

je continue , je cherche à inserer une image jpg dans mon entete, j'ai trouvé ce code, mais je ne sais pas comment indiquer le chemin ou se troove l'image.

mon chemin est W:\logo\logo palmacea entete, je mets le code

Sub Macro1()
Dim Photo As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single

Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
Gauche = Range("C2").Left
Sommet = Range("C2").Top
Largeur = Range("C2").Width
Hauteur = Range("C2").Height

If Photo <> False Then
Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
End If
End Sub

Bonsoir Pascalou

Où as tu mis ton code ?
Sub colonne()

Range("A18:A" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.AutoFit

end sub

Il fonctionne bien si tu le mets dans dans le Worksheet de la feuille en question

(Ouvrir l'éditeur VBA Cliquer sur la feuille dans l'arborescence et mettre le code dans la page blanche)

Si au contraire tu mets le code dans un module il faut indiquer la feuille,
tu as plusieurs manières de proceder, soit :

Activesheet.Range("A18:A" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.AutoFit

qui appliquera le code dans la feuille active (tu peux ainsi appeler la macro de n'importe quelle feuille et elle s'appliquera sur celle-ci

soit Sheets("Feuil2").Range("A18:A" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.AutoFit

et la macro ne s'appliquera qu'à la feuille nommée Feuil2

soit enfin Sheets(3).Range("A18:A" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.AutoFit

et la macro s'appliquera à la 3eme feuille du classeur (en partant de la gauche) quelque soit son nom

Cdlmnt

Bonjour Via55,

meme le vba n'a pas de secret pour toi...

alors je vais encore profiter de tes explications qui sont au top.

j'ai mis ce code , mais j'ai une erreur :

Sub colonnes()




Range("A18:AI18" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.AutoFit
Columns("B:B").ColumnWidth = 13
Columns("C:C").ColumnWidth = 15.5
Columns("F:F").ColumnWidth = 13.5
Columns("K:K").ColumnWidth = 14.5
Columns("L:L").ColumnWidth = 14.5
Columns("M:M").ColumnWidth = 38
Columns("P:P").ColumnWidth = 14.5
Columns("Q:Q").ColumnWidth = 14.5
Columns("U:U").ColumnWidth = 17

Range("A18:B18" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.HorizontalAlignment = xlCenter.Columns.VerticalAlignment = xlBottom



Range("C18:D18" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.HorizontalAlignment = xlLeft.Columns.VerticalAlignment = xlBottom


Range("E18:AI18" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.HorizontalAlignment = xlCenter.Columns.VerticalAlignment = xlBottom
End Sub


et je cherche à macrotiser la police calibri en 30 et les marges.

Bon je vais me coucher, car je n'en peu plus.

a+

Pascal

Bonjour Pascal

Le Pingou (que je salue au passage) a été plus rapide que moi et te donnes la solution

A+

Cdlmnt

Bonjour via55,
Merci.
En utilisant [Ajouter un commentaire] cela a pour effet de voir les réponses toujours plus loin dans le fil, c'est vraiment dommage pour le suivi... mais bon chacun si retrouveras .... !
Salutations.
Le Pingou

Bonjour,

Bon j'ai eu le temps de voir ton code, ca ne marche pas, je pense que je rentre mal le cde :

Sub colonne()

Range("A18:A" & Cells(Rows.Count, 1).End(xlUp).Row).Columns.AutoFit

end sub

il ne manque pas qq chose , comme style la feuille du classeur ?

activeworksheets

je commence mon apprentissage vba, je pense que ca va etre coton.

a+

Pascal

Ouais ben pareil.
Il discute dans son coin, et aucun retour sur les propositions (sans parler de remerciements...).
Et bien qu'il continue tout seul.
eric

Bonsoir eriiic,
J'en profite pour te souhaiter une bonne nuit et excellente fin de semaine.
Amicales salutations
Le Pingou

Merci, bon we estival :-)