Bloquage sur liste deroulante

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
M
Mus403
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 21 octobre 2016
Version d'Excel : mac 2011 fr

Message par Mus403 » 21 octobre 2016, 15:03

Bonjour à tous,

Totalement novice en programmation VBA, je me suis lancé dans un sacré chantier… Et bien sûr, je galère comme un fou !

Je souhaite réaliser un suivi de trésorerie sous excel mac 2011.

J’ai donc une feuille « saisie », une feuille pour chaque mois (seule juillet pour l’instant) et une feuille « données ».

pour la saisie, j’ai créé deux userform dans la feuille « saisie »: un « Crédit » (pas encore fait) et un « Débit ».

Le but est de ventiler automatiquement la saisie dans le mois correspondant.

J’ai pour l’instant réussi :
- à saisir la date d’échéance correctement avec Cdate (inversion mois/jour)
- à extraire le mois de la saisie en cours pour ensuite créer une variable qui active la feuille du mois

Je bloque (pour l’instant…) :
- sur la liste déroulante dans la ComboBox1 pour afficher la liste en Données!A1A6

Merci pour votre aide (Et ce n’est que le début…)

Gildas
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 22 octobre 2016, 08:38

Bonjour,

Si ta plage n'est pas dynamique, dans la propriété "RowSource" (en mode création) tu entres : Feuil1!A1:A6 (si c'est la feuille Feuil1 qui contient les données en A1:A6). Dans le cas où elle est dynamique, tu peux utiliser aussi RowSource dans le code mais il faut définir les bornes avant
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
M
Mus403
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 21 octobre 2016
Version d'Excel : mac 2011 fr

Message par Mus403 » 23 octobre 2016, 16:10

Bonjour Theze,

Merci beaucoup pour ta réponse.

Rowsource ne fonctionne pas sur excel mac 2011

J'ai résolu mon problème avec :
Private Sub UserForm_Initialize()
' liste pour "bénéficiaire"
Dim liste_beneficiaire As Range
With Sheets("Données")
    Set liste_beneficiaire = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
ComboBox1.List = liste_beneficiaire.Value
End Sub
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message