bonjour
j'ai un fichier devis avec 6 colonnes dont la largeur totale est 500 recuperer avec ce code
For i = 1 To 6
cum_larg = cum_larg + Columns(i).Width
Next
si un utilisateur elargit une des colonnes .une autre colonne doit baisser en largeur pour garder le total des colonnes à 500
j'ai fait ce code mais ca ne marche pas
Columns(2).ColumnWidth ne prend pas la valeur calculée mais seulement exemple Columns(2).ColumnWidth = 100 ca marche
merci pour votre aide
For i = 1 To 6
cum_larg = cum_larg + Columns(i).Width
Next
'MsgBox cum_larg
If cum_larg > 500 Then
larg = Round(Columns(2).Width - 500, 0)
Columns(2).ColumnWidth = larg
End If