Ajuster largeur de colonnes

[cathodique]

Bonjour,

S'il vous plait, qu'elle est la synthaxe pour désigner de la colonne2 à l'avant-dernière colonne, pour ajuster la largeur de ces colonnes. Pour la première colonne, je l'ai fait. Pour ajuster automatiquement la hauteur aussi. Mais pour plusieurs colonnes impossible.

J'ai mis dans mon code:

dercol = .Cells(4, .Columns.Count).End(xlToLeft).Column
.Cells.EntireRow.AutoFit 'ceci est bon
 .Columns(1).ColumnWidth = 18  'ceci est bon
 .Columns(.Columns(2), Columns(dercol - 1)).ColumnWidth = 10  ''''''''BUG'''''''''''

Je vous remercie pour votre aide.

Cordialement,

 

[DoubleZero]

Re : Ajuster largeur de colonnes

Bonjour, cathodique, le Forum,

Peut-être ainsi :

Range(Range("b4"), Range("b4").End(xlToRight).Offset(, -1)).ColumnWidth = 10

A bientôt 🙂

 

[cathodique]

Re : Ajuster largeur de colonnes

Bonjour DoubleZero,

Je te remercie mais ça ne donne rien.

 

[DoubleZero]

Re : Ajuster largeur de colonnes

Re-bonjour,

... ça ne donne rien.

😕

Voir le fichier joint.

A bientôt 🙂

 

[JCGL]

Re : Ajuster largeur de colonnes

Bonjour à tous,
Salut 00,

Avec ton code du #1 :

Option Explicit
Sub Test()
Dim DerCol&
        DerCol = Cells(4, Columns.Count).End(xlToLeft).Column
        Cells.EntireRow.AutoFit
        Columns(1).ColumnWidth = 18
        Range(Cells(4, 2), Cells(4, DerCol - 1)).ColumnWidth = 10
End Sub

Bises à 00
A+ à tous

 

[Si...]

Re : Ajuster largeur de colonnes

salut

pour fixer la taille des colonnes d'une plage avec leur référence lettre(s)
Columns("G:I").ColumnWidth = 15
Pour des numéros de colonne, on doit passer par une boucle

For c = 2 To dercol
   .Columns(c).ColumnWidth = 10
 Next

ou par une ligne globale comme celle donnée par DoubleZéro 😀
ou du type
.Range("B4", .Range("B4").End(xlToRight)(1, 0)).ColumnWidth = 10
.Range("B4:B" & dercol-1).ColumnWidth = 10 'avec ton exemple
ou
.Range(Cells(4, 2), Cells(4, DerCol - 1)).ColumnWidth = 10 comme le propose JGCL 😀

 

[job75]

Re : Ajuster largeur de colonnes

Bonjour à tous 🙂

On peut aussi utiliser Resize :

.Columns(2).Resize(, dercol - 2).ColumnWidth = 10  ''''''''PAS DE BUG'''''''''''

A+

 

[cathodique]

[RESOLU] : Ajuster largeur de colonnes

Bonsoir,

Messieurs je vous remercie beaucoup pour vos réponses.

J'ai téléchargé le fichier joint de DoubleZero. Sur son fichier son code fonctionne parfaitement. Je l'ai adapté à mon cas et ça ne fonctionne pas. Il est très possible que je l'ai mal adapté vu mon faible niveau en VBA.

Par contre, avec celui de JCGL ça fonctionne bien. Je n'ai pas encore essayé ceux de Si.. et Job75 qui m'a aidé pour ce fichier même dont je veux ajuster la largeur des colonnes ( merci Job).

Je joins mon fichier pour que DoubleZero puisse comprendre pourquoi son code ne fonctionne pas chez moi.

Je remercie encore une fois grâce à vos interventions mon problème est résolu.

Bonne soirée.

Cordialement,

 

[Si...]

Re : [RESOLU] : Ajuster largeur de colonnes

re

comme je le disais ici, sans doute à cause de cellules fusionnées !

 

[cathodique]

Re : [RESOLU] : Ajuster largeur de colonnes

Bonjour Si...,

Ton approche par Array est séduisante surtout quand on a beaucoup de feuilles à traiter.

Sub Titre_CMDP2()
  Dim dercol As Long
  Dim Ind As Byte
  Application.ScreenUpdating = False
  For Ind = 0 To 2
    With Sheets(Array("A", "B", "C")(Ind))
      .[A1] = Array("AAAA", "BBBB", "CCCC")(Ind)
      .[B1] = Array("aaaa", "bbbb", "cccc")(Ind)
      dercol = Array(10, 13, 11)(Ind)
      .Cells(1, dercol) = Sheets("données").Range("A1")
      .Cells(1, dercol - 1) = "Date:"
    End With
  Next
End Sub

Est-il possible de mettre en forme en utilisant les "Array"? Par mise en forme, j'entends texte en gras, italique, bordures et alignement.

Merci beaucoup pour ta réponse.

Bonne journée.

Cordialement,