XL2K VBA, ajuster les largeurs de colonnes, encore array?
5 réponses
J
Bonjour à tous
comment éviter d'écrire pleins de fois la même chose, quand j'ai des
colonnes à régler en largeur, sachant que souvent elles ont la même
largeur??
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
DanielCo
Bonjour. Oui, array :
Dim arCol, arLarg, Col arCol = Array("AG", "AH", "AM", "AI", "AJ", "AK", "AO", "AP") arLarg = Array(8, 8, 10, 8, 8, 8, 10, 10) For i = 0 To UBound(arCol) Columns(arCol(i) & ":" & arCol(i)).ColumnWidth = arLarg(i) Next i
Cordialement. Daniel
Bonjour à tous comment éviter d'écrire pleins de fois la même chose, quand j'ai des colonnes à régler en largeur, sachant que souvent elles ont la même largeur??
Je pense encore à l'array (si vous me permettez cet à peu près), mais sans savoir comme le mettre en ½uvre.
Merci pour l'aide. @+ J@@
Bonjour.
Oui, array :
Dim arCol, arLarg, Col
arCol = Array("AG", "AH", "AM", "AI", "AJ", "AK", "AO", "AP")
arLarg = Array(8, 8, 10, 8, 8, 8, 10, 10)
For i = 0 To UBound(arCol)
Columns(arCol(i) & ":" & arCol(i)).ColumnWidth = arLarg(i)
Next i
Cordialement.
Daniel
Bonjour à tous
comment éviter d'écrire pleins de fois la même chose, quand j'ai des colonnes
à régler en largeur, sachant que souvent elles ont la même largeur??
Dim arCol, arLarg, Col arCol = Array("AG", "AH", "AM", "AI", "AJ", "AK", "AO", "AP") arLarg = Array(8, 8, 10, 8, 8, 8, 10, 10) For i = 0 To UBound(arCol) Columns(arCol(i) & ":" & arCol(i)).ColumnWidth = arLarg(i) Next i
Cordialement. Daniel
Bonjour à tous comment éviter d'écrire pleins de fois la même chose, quand j'ai des colonnes à régler en largeur, sachant que souvent elles ont la même largeur??
ou mieux, baptiser la plage des col 35 d'un nom, celles de 10 d'un autre et celles de 8 d'un troisième nom. Non ? -- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"J@@" a écrit dans le message de news: i5f7r8$rtn$
Bonjour à tous comment éviter d'écrire pleins de fois la même chose, quand j'ai des colonnes à régler en largeur, sachant que souvent elles ont la même largeur??
ou mieux, baptiser la plage des col 35 d'un nom, celles de 10 d'un autre et
celles de 8 d'un troisième nom. Non ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"J@@" <kjg@hy.gg> a écrit dans le message de news:
i5f7r8$rtn$1@speranza.aioe.org...
Bonjour à tous
comment éviter d'écrire pleins de fois la même chose, quand j'ai des
colonnes à régler en largeur, sachant que souvent elles ont la même
largeur??
ou mieux, baptiser la plage des col 35 d'un nom, celles de 10 d'un autre et celles de 8 d'un troisième nom. Non ? -- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"J@@" a écrit dans le message de news: i5f7r8$rtn$
Bonjour à tous comment éviter d'écrire pleins de fois la même chose, quand j'ai des colonnes à régler en largeur, sachant que souvent elles ont la même largeur??
Comme ceci, te permet de définir autant de colonne que tu désires :
Tu peux définir autant de Case que tu veux dans le Select Case
'----------------------------------- Sub test() Dim arCol(), Elt As Variant arCol = Array("AG", "AH", "AM", "AI", "AJ", "AK", "AO", "AP") With Worksheets("sheet1") For Each Elt In arCol Select Case Elt Case "AG", "AH", "AI", "AJ", "AK" .Columns(Elt).ColumnWidth = 8 Case "AM", "AO", "AP" .Columns(Elt).ColumnWidth = 10 End Select Next End With End Sub '-----------------------------------
"J@@" a écrit dans le message de groupe de discussion : i5f7r8$rtn$ Bonjour à tous comment éviter d'écrire pleins de fois la même chose, quand j'ai des colonnes à régler en largeur, sachant que souvent elles ont la même largeur??
Je pense encore à l'array (si vous me permettez cet à peu près), mais sans savoir comme le mettre en œuvre.
Merci pour l'aide. @+ J@@
Bonjour,
Comme ceci, te permet de définir autant de colonne que tu désires :
Tu peux définir autant de Case que tu veux dans le Select Case
'-----------------------------------
Sub test()
Dim arCol(), Elt As Variant
arCol = Array("AG", "AH", "AM", "AI", "AJ", "AK", "AO", "AP")
With Worksheets("sheet1")
For Each Elt In arCol
Select Case Elt
Case "AG", "AH", "AI", "AJ", "AK"
.Columns(Elt).ColumnWidth = 8
Case "AM", "AO", "AP"
.Columns(Elt).ColumnWidth = 10
End Select
Next
End With
End Sub
'-----------------------------------
"J@@" <kjg@hy.gg> a écrit dans le message de groupe de discussion : i5f7r8$rtn$1@speranza.aioe.org...
Bonjour à tous
comment éviter d'écrire pleins de fois la même chose, quand j'ai des
colonnes à régler en largeur, sachant que souvent elles ont la même
largeur??
Comme ceci, te permet de définir autant de colonne que tu désires :
Tu peux définir autant de Case que tu veux dans le Select Case
'----------------------------------- Sub test() Dim arCol(), Elt As Variant arCol = Array("AG", "AH", "AM", "AI", "AJ", "AK", "AO", "AP") With Worksheets("sheet1") For Each Elt In arCol Select Case Elt Case "AG", "AH", "AI", "AJ", "AK" .Columns(Elt).ColumnWidth = 8 Case "AM", "AO", "AP" .Columns(Elt).ColumnWidth = 10 End Select Next End With End Sub '-----------------------------------
"J@@" a écrit dans le message de groupe de discussion : i5f7r8$rtn$ Bonjour à tous comment éviter d'écrire pleins de fois la même chose, quand j'ai des colonnes à régler en largeur, sachant que souvent elles ont la même largeur??