Discussion :

[bigs3232]

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

[eriiic]

Bonjour,

ColumnWidth, propriété
Renvoie ou définit la largeur de toutes les colonnes de la plage spécifiée. Type de données Variant en lecture-écriture.
expression.ColumnWidth
expression Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.
Remarques
Une unité de largeur de colonne est égale à la largeur d'un caractère du style Normal.

Height, Width, propriétés
Voir aussi Exemple S'applique à Spécificités
Hauteur ou largeur en points d'un objet.

Ces 2 propriétés n'utilisent pas la même unité, ça ne peut pas marcher sans faire une conversion.
Assez ch..., fait une recherche dessus.
eric

[bigs3232]

merci pour les infos théoriques mais ca ne resout pas mon probleme

[eriiic]

Il faut que je fasse une recherche sur la conversion à faire pour toi ?

[bigs3232]

conversion de quoi?qel mot clé tapé sur google?

[unparia]

Bonjour
Excel est un tableur et n'a, dans l'exercice de cette seule vocation, aucune raison de dimensionner très précisément une largeur de colonne ou une hauteur de ligne.
Il "adapte" au mieux et cette adaptation dépend entre autres et principalement du DPI de l'écran.
Ainsi, ce petit test en dpi 96

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns(2).ColumnWidth = 13.2
MsgBox Columns(2).ColumnWidth ' --->> 13.14 et non ce que l'on a souhaité (13.2)

Il faut par ailleurs bien comprendre que ce qui est affiché (dont la grille) ne peut, comme tout affichage à l'écran, qu'occuper des pixels, que le pixel étant la plus petite unité d'affichage, il n'est pas possible de déterminer la position de ce qui serait un nombre décimal de pixels. Dès lors : les transpositions de dimensions d'une unité à l'autre ne sauraient être rigoureusement exactes que si le résultat de la transposition est un multiple entier de pixels.

[eriiic]

conversion de quoi?qel mot clé tapé sur google?

De ce que tu cherches : conversion columnwidth widht

[patricktoulon]

bonjour

la fonction columnwidth te donne la dimention en unite (de nombre de caracteres) c'est a dire
si je met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("A1:F10).columns(1).columnwidth=100

elle fait 100 caracteres (en font normal de large) on peut y mettre 100 caracteres

la fonction width pour une plage est en lecture seule
c'est a dire que que l'on peut pas s'en servire pour dimentionner seulement pour connaitre sa largeur et l'unité est en point

toi tu la veux comment ta plage 500 en

1. point?
2. caracteres?
3. pixels?

tu veux connaitre facilement la convertion en point sur ton pc avec ta resolution?
test CELA ca pourrait t'aider a comprendre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test2()
Columns(1).ColumnWidth = 1
Do
Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1
Loop While Range("A1").Width < 100
MsgBox "la cellule ""A1"" fait " & Range("A1").Width & " POINTS !!   de large " & vbCrLf & _
Range("A1").ColumnWidth & " en unité ""COLUMNWIDTH"" (nombres de caracteres)  "
End Sub

pour la dimention en pixel (la conversion) tu a moulte discussions qui en parle
pour l'heure tu a les api window et gdi
ou
une cle dans la base de registre

je ne connais pas ton besoins tout du moins le contexte je ne peux t'en dire plus

[bigs3232]

merci patrick