Discussion :

[bravojr]

Bonjour à tous,

Voilà comme j'ai eu beaucoup de problème pour arriver à cette fonction... je vous la propose :

Code :

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

1
2
3
4
5
6
7
8
Function Largeur(var)
'recherche dans la base de registre la résolution de l'écran normalement à 96 ppp
Dim WshShell, Resolution
Set WshShell = CreateObject("WScript.Shell")
Resolution = WshShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\FontDPI\LogPixels")
'affiche la largeur de la cellule choisie en pixel
Largeur = var.Width / 72 * Resolution
End Function

et voilà

[bravojr]

Bon après vérification... ça marche mais je n'ai pas d'actualisation même en utilisant :
ActiveSheet.Calculate
ou ses variantes...

quelqu'un à t'il une idée pour que le calcul soit "automatique" ?

le mieux serait d'actualiser la formule au changement de largeur de la colonne mais là je n'ai pas de piste...

merci de votre aide