Liste des noms

Bonjour

Si tu parles des fenêtres qui apparaissent avec F3 ou Ctrl+T ou
Insertion/Noms/Définir, la réponse est non ... :(


--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Eddan" <Eddan@discussions.microsoft.com> a écrit dans le message de news:
88C4429F-0F7E-4D98-98FB-19CB73F132DD@microsoft.com...

Bonjour à tous,

Est-il possible de augmenter la taille ainsi que le nrb. de lignes de la
liste des noms.

Bonjour Eddan,

En ce qui concerne la largeur, je parle de celle de la liste déroulante lorsque cette dernière est ouverte :

copie ceci dans un module standard :


Lorsque l'on ouvre la liste déroulante, la macro élargit la liste déroulant.

'sur http://cpearson.com/excel/NameBox.htm

'In a standard code module, put the following code:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Sub WidenNameBoxDrop2()
Dim Res As Long
Const CB_SETDROPPEDWIDTH = &H160
Const cWidth = 40 '<<<<<<<<<<<<<<<<<<<<<<
Res = SendMessage( _
FindWindowEx( _
FindWindowEx( _
FindWindow("XLMAIN", Application.Caption) _
, 0, "EXCEL;", vbNullString) _
, 0, "combobox", vbNullString), _
CB_SETDROPPEDWIDTH, cWidth, 0)
End Sub


Salutations!



"Eddan" <Eddan@discussions.microsoft.com> a écrit dans le message de news:
88C4429F-0F7E-4D98-98FB-19CB73F132DD@microsoft.com...
Bonjour à tous,

Est-il possible de augmenter la taille ainsi que le nrb. de lignes de la
liste des noms.