[RESOLU] : Liste deroulante

Roland_M

XLDnaute Barbatruc

• 8 Septembre 2015

• #2

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 !?

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 8 Septembre 2015

• #3

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 8 Septembre 2015

• #4

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 ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Septembre 2015

• #5

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.

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 8 Septembre 2015

• #6

Re : Liste deroulante

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Septembre 2015

• #7

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

Code:

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

 

Dernière édition: 9 Septembre 2015

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 9 Septembre 2015

• #8

Re : [RESOLU] : Liste deroulante

Bonjour BOISGONTIER
Mille fois merci ces files
Cordialement
MADA

 

Vote positif 0 Vote négatif