[RESOLU] : Liste deroulante

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir à tous et à toutes
SVP se sera un grand plaisir si quelqu'un peut m'aidez a faire une liste déroulante spéciale.
Les donnees dans fichier 1
La liste déroulante sera dans fichier 2
Merci d'avance pour l'aide
Cordialement
MADA

 

[Roland_M]

Re : Liste deroulante

Bonsoir,

quel est l'intérêt de faire une liste déroulante avec les données dans un autre fichier !?
cette liste déroulante serait certainement bien venue dans le classeur avec ses données !?

 

[MADAGASCAR]

Re : Liste deroulante

Bonsoir Roland_M
Crois moi maitre .. franchement je n'ai aucun interet ..simplement je veux savoir et comprendre la magique d'excel
Bien cordialement
MADA

 

[Roland_M]

Re : Liste deroulante

re

alors c'est d'aucun intérêt d'avoir des listes de choix avec des données dans un autre classeur !
excel et vba c'est tout sauf de la magie ! du concret, de la rigueur et beaucoup de logique, entre autre ...

 

[job75]

Re : Liste deroulante

Bonsoir MADAGASCAR, Roland_M,

Les 2 classeurs doivent être ouverts :

- dans 'fichier 1.xlsx' nommer A la plage Feuil1!H3:H22

- dans 'fichier 2.xlsx' définir le nom B par ='fichier 1.xlsx'!A

- dans 'fichier 2.xlsx' créer une liste de validation avec la formule =B

Mais si l'on ferme 'fichier 1.xlsx' cette liste ne fonctionne plus...

Bonne fin de soirée.

 

[MADAGASCAR]

Re : Liste deroulante

Bonsoir JOB75
Mille fois merci maitre
C'est bien compris
Cordialement
MADA

 

[BOISGONTIER]

Re : [RESOLU] : Liste deroulante

Bonjour,

-Par liaison

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVClasseurFermeLiaison.xls
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVSource.xls

ou

-ADO

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVADO.xls
http://boisgontierjacques.free.fr/fichiers/DonneesValidation/Article.xls

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = "$B$2" Then
   Dim rs As ADODB.Recordset
   Set cnn = New ADODB.Connection
   répertoire = ThisWorkbook.Path & "\"
   cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & répertoire & "Article.xls"
   Set rs = cnn.Execute("SELECT code FROM BD WHERE code<>''")
   a = Application.Transpose(rs.GetRows)
   For i = LBound(a) To UBound(a)
      tmp = tmp & a(i, 1) & ","
    Next i
   [b2].Validation.Delete
   [b2].Validation.Add xlValidateList, Formula1:=tmp
   rs.Close
   cnn.Close
   Set rs = Nothing
  Set cnn = Nothing
 End If
End Sub

Cf Données/Validation classeur fermé
Cf http://boisgontierjacques.free.fr/pages_site/donneesvalidation.htm#ListeAutreOnglet

JB

 

[MADAGASCAR]

Re : [RESOLU] : Liste deroulante

Bonjour BOISGONTIER
Mille fois merci ces files
Cordialement
MADA