.ColumnWidth qui ne prend pas la valeur calculée

bonjour
j'ai un fichier devis avec 6 colonnes dont la largeur totale est 500 recuperer avec ce code

Citation:

---

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

Citation:

---

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

---

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

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

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

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

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:

---

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.

Citation:

---

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

---

De ce que tu cherches : conversion columnwidth widht

bonjour

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

Code:

---

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:

---

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

merci patrick

en fait mon but est de trouver une solution pour ajuster mes 6 colonnes pour imprimer en 1 seule page.
or pour imprimer sur une page il faut que le cumul des 6 colonnes ne depasse pas 513
c'est à dire
For i = 1 To 6
cum_larg = cum_larg + Columns(i).Width
Next
cum_larg inférieur à 513
quand j'agrandi la colonne 6 par exemple , la colonne 2 doit diminuer pour faire en sorte que cum_larg soit inférieur à 513

Bonjour,

ajuster la page déjà via le paramétrage de l'impression, la Mise en page et son paramètre Ajuster …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

merci marc je voudrais tout faire en vba

Bonjour
et ne pas oublier l'existence de la possibilité d'appliquer la propriété zoom à la mise en page/impression, genre

Code:

---

ActiveSheet.PageSetup.Zoom = 75

---

Citation:

---

Envoyé par bigs3232

merci marc je voudrais tout faire en vba

---

Oui tu peux le faire (même si c'est inutile une fois la mise en page paramétrée et le classeur enregistré !),
déjà manuellement après avoir activé l'Enregistreur de macro même si unparia (Salut !) t'a déjà indiqué une voie …


Et pour rigoler :

Citation:

---

Envoyé par bigs3232

la largeur totale est 500 recuperer avec ce code

---

Déjà manuellement, juste élargir une colonne au maximum puis vérifier alors la valeur de sa largeur ainsi modifiée …

Citation:

---

Envoyé par unparia

Bonjour
et ne pas oublier l'existence de la possibilité d'appliquer la propriété zoom à la mise en page/impression, genre

Code:

---

ActiveSheet.PageSetup.Zoom = 75

---

---

merci unparia ca semble marche avec ton code .j'ai pas bien compris pourquoi mais ca marche avec ActiveSheet.PageSetup.Zoom = 85
et merci a marc aussi

re
ok je vois
mise page
(définition)définir la plage a imprimer quelque taille que se soit

ajuster a 1 page en largeur dans la fenetre des paramètres impression qui s'affiche

une fois cela fait tu enregistre ton classeur
tu n'a pas besoins de VBA