Listbox et ouverture de fichiers Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
MILOUD57000
Membre fidèle
Membre fidèle
Messages : 210
Inscrit le : 13 février 2014
Version d'Excel : 2007

Message par MILOUD57000 » 21 décembre 2015, 11:04

Bonjour les amis,

Je suis en train de finaliser mon application et j'ai besoin de vos lumières, je m'explique :

J'ai une listbox qui me permets de sélectionner des comptes comptables (exemple alimentation semaine, abonnement internet etc...) j'ai un onglet BDD avec la liste de ses comptes et dans la colonne H j'ai inséré un code relatif aux comptes que je souhaite gérer dans des fichiers annexes (fichier repas pour le compte alimentation semaine, fichier patrimoine pour le compte abonnement internet etc...).

Je souhaite donc par exemple que lorsque je sélectionne le compte alimentation semaine (code 3) qu'il m'ouvre une boite de dialogue qui me pose une question, si oui ou non je souhaite gérer le FICHIER REPAS, si oui le fichier repas s'ouvre. Si je sélectionne le compte abonnement internet (code 1) qu'il m'ouvre une boite de dialogue qui me pose une question, si oui ou non je souhaite gérer le FICHIER PATRIMOINE, si oui le fichier patrimoine s'ouvre.

Je joins le code que j'ai écris mais visiblement ça beugue et les captures d'écran :

'ONGLET DEBIT POUR RECHERCHE DU CODE DE LA COLONNE H - ONGLETS REPAS OU AUTRE

Private Sub CB_Compte_Debit_1_Change()
Dim Page As Integer

If Me.CB_Compte_Debit_1.ListIndex = -1 Then Exit Sub
If Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1) = "3" Then
'Page = Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1)
'Me.MultiPage1.Value = Page
If MsgBox("Voulez-vous mettre à jour les tableaux annexes ?", vbYesNo) = vbYes Then

Call OuvrirFichierRepas

If Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1) = "1" Then
'Page = Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1)
'Me.MultiPage1.Value = Page
If MsgBox("Voulez-vous mettre à jour le fichier patrimoine ?", vbYesNo) = vbYes Then

Call OuvrirFichierPatrimoine

Else


End If
End If
End If
End If
End Sub
SELECTION COMPTE ALIMENTATION SEMAINE CODE 3.JPG
SELECTION COMPTE ALIMENTATION SEMAINE CODE 3.JPG (48.2 Kio) Vu 162 fois
SELECTION COMPTE ABONNEMENT INTERNET CODE 1.JPG
SELECTION COMPTE ABONNEMENT INTERNET CODE 1.JPG (48.93 Kio) Vu 162 fois
ONGLET BDD AVEC CODE DANS COLONNE H.JPG
M
MILOUD57000
Membre fidèle
Membre fidèle
Messages : 210
Inscrit le : 13 février 2014
Version d'Excel : 2007

Message par MILOUD57000 » 21 décembre 2015, 12:17

Voici la solution pour ceux que ça peut aider

If Me.CB_Compte_Debit_1.ListIndex = -1 Then Exit Sub
If Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1) = "3" Then
'Page = Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 1)
'Me.MultiPage1.Value = Page
If MsgBox("Voulez-vous mettre à jour les tableaux annexes ?", vbYesNo) = vbYes Then
Call OuvrirFichierRepas
Exit Sub
End If
End If
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message