patricktoulon
XLDnaute Barbatruc
Bonjour a tous
j'ai eu un retour étonnant d'une app que j'ai fait il y a 4/5 ans
en effet j'avais fait un mini calendar sur la base du model simply et zoomable car mon calendar V5 perso était trop gros
a l’époque j'ai fait ça sur 2007 et ça fonctionnait très bien
j'explique mon problème
par vba je met la valeur 2024 dans ma combobox "CBA"
alors ça fonctionne très bien mais des que je clique sur le dropbutton on voit bien que la liste démarre à 1900 alors que je suis sur 2024
si je clique sur le dropbutton et que je sélectionne 2024 et que je re clique sur le dropbutton on voit bien que la liste est en position sur 2024
grosso modo pour la faire courte le changement du value par vba ne me change plus le listindex
j'ai donc fait une copie de ce petit calendrier pour la discussion
on l'appelle comme ca a partire d'une cellule(5) étant la plus grosse taille et (1) la plus petite
je joint un fichier exemple
j'ai eu un retour étonnant d'une app que j'ai fait il y a 4/5 ans
en effet j'avais fait un mini calendar sur la base du model simply et zoomable car mon calendar V5 perso était trop gros
a l’époque j'ai fait ça sur 2007 et ça fonctionnait très bien
j'explique mon problème
par vba je met la valeur 2024 dans ma combobox "CBA"
alors ça fonctionne très bien mais des que je clique sur le dropbutton on voit bien que la liste démarre à 1900 alors que je suis sur 2024
si je clique sur le dropbutton et que je sélectionne 2024 et que je re clique sur le dropbutton on voit bien que la liste est en position sur 2024
grosso modo pour la faire courte le changement du value par vba ne me change plus le listindex
j'ai donc fait une copie de ce petit calendrier pour la discussion
on l'appelle comme ca a partire d'une cellule(5) étant la plus grosse taille et (1) la plus petite
VB:
'Target = MiniCal.showX(object appelant, zize)'argument size de 1 à 5
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target = MiniCal.showX(Target, 5)
Cancel = True
End Sub