[EXCEL] Insertion liste déroulante dans une cellule

Version imprimable

27/10/2005, 18h20
the java lover

[EXCEL] Insertion liste déroulante dans une cellule

Bonjour tout le monde,

Je génère un fichier EXCEL en VB et je souhaite utiliser des listes déroulantes pour certaines cellules.

Après une recherche sur les forums, j'ai trouvé ce post http://www.developpez.net/forums/vie...ht=excel+liste qui me semble intéressant mais je souhaite des informations plus précises telles que les attributs utilisés ou le fonctionnement général.

Je me permets donc de vous demander si quelqu'un aurait quelques exemples de code ou une doc à me passer.

Merci pour votre aide
27/10/2005, 18h57
Xo

Dans les cours VB, on a une présentation du pilotage d'Excel à partir de VB, et une doc plus conséquente (en VBA, mais la syntaxe est à peu près la même qu'en VB) : http://vb.developpez.com/cours/#app_office

En espérant que tu y trouve ton bonheur ;)

Insertion de liste déroulante dans une cellule

Bonjour,
N'oublie pas la référence à Excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub Command1_Click()
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
If Not IsObject(objXL) Then
    MsgBox "Vous Avez Besoin de Microsoft Excel  pour cette Fonction", vbExclamation, "Excel"
    Exit Sub
End If
' Ouvre Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet
 
Range("A1").Value = "Bonjour"
Range("A2").Value = "Comment ça va ?"
Range("A3").Value = "Bien et toi ?"
 
    wsXL.Cells(2, 3).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$A$1:$A$3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 
End Sub

jpleroisse

28/10/2005, 14h59
the java lover

OK je réussi à générer une feuille excel dans laquelle j'ai un tableau.
Dans ce tablau certaines cellules possèdent une liste déroulante de valeurs.

Un problème et une question :

1/ Lorsque j'ouvre mon fichier généré, il m'ouvre deux fichiers excel:
- mon fichier généré et
- un fichier nommé Classeur6.xls

2/ Comment positionner la liste avec une valeur présélectionnée ?

Aussi, autre question, si je double-clique dans la cellule contenant une liste, je peux saisir une valeur quelconque à la main (n'appartenant pas forcément à la liste).Comment empécher cette saisie ?

Merci
02/11/2005, 08h58
the java lover

Pas d'idées ?
02/11/2005, 12h21
ouskel'n'or

Hello,

Je réponds à ça :

Citation:

je peux saisir une valeur quelconque à la main (n'appartenant pas forcément à la liste).Comment empécher cette saisie ?

Mets la propriété Locked = false mais laisse Enabled = true

A+
02/11/2005, 15h53
the java lover
Code:

1 2 3 1/ Lorsque j'ouvre mon fichier généré, il m'ouvre deux fichiers excel: - mon fichier généré et - un fichier nommé Classeur6.xls
OK problème réglé

Par contre je ne sais toujours pas

Code:

2/ Comment positionner la liste avec une valeur présélectionnée ?

Merci
02/11/2005, 16h44
ouskel'n'or
Hello,

Je crois que je vais pouvoir t'aider pour ça

Citation:

2/ Comment positionner la liste avec une valeur présélectionnée ?

Pour pris pour valeur,
Code:

1 2 3 Private Sub MaListeBox_Enter() MaListeBox.BoundValue = "BLOUIN" End Sub
me place sur "BLOUIN" quand je clique dans ma liste

A+

J'ai défini ma liste de la façon suivante :
Code:

1 2 3 4 5 6 7 maCellule.Select With Selection.Validation .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=valeursCombo .InCellDropdown = True End With
Comment récupérer ma liste pour lui appliquer le BoundValue ?

02/11/2005, 18h30
ouskel'n'or
Hello,

Je voulais partir à 18h (heure d'automne française - pour les canadiens...)
c'est rapé

Ou tu nommes tes liste par soft ou tu fais deux clics sur tes listes pour avoir le nom, et dans
Code:

1 2 3 Private Sub ListBox1_Click() 'Tu mets ta/tes ligne(s) de code End Sub
Si ça ne marche pas avec click, essaie avec doubleClick, regarde la liste des évènements
Là, je dois vraiment me sauver sinon je vais me faire appeler Arthur...

Bon courage

A+

NB - Comme je vois que tu as créé tes lignes en dynamique, ce que je te propose risque fort de ne pas convenir mais il y aura bien quelqu'un pour résoudre ton pb... ou demain, je suis là...