XL 2010 Selection_Change

[thunder23]

Bonjour le forum,

Je viens vers vous car je ne trouve pas de solution à mon problème. Je voudrais que quand je sélectionne la date dans une plage de cellule qui se situe de B12 à AF12, que ça ouvre un userform, que ça le préremplie par les informations qui sont dans une BDD sur une autre feuille. Aujourd'hui j'ai fais 99% du code sauf que ça fonctionne que pour le mois de Janvier mais pas pour les autres mois. J'ai mis un fichier en pièce jointe pour mieux comprendre mon problème

 

[sylvanu]

Bonjour Thunder,
Dans la sub UserForm_Initialize j'ai changé le remplissage de ComboBox_date avec :

ComboBox_date.List = Application.Transpose(Sheets("Feuil1").Range("B12:AF12").Value)

et ça à l'air de marcher.😉

 

[thunder23]

Bonjour Thunder,
Dans la sub UserForm_Initialize j'ai changé le remplissage de ComboBox_date avec :

ComboBox_date.List = Application.Transpose(Sheets("Feuil1").Range("B12:AF12").Value)

et ça à l'air de marcher.😉

Bonjour sylvanu,

effectivement ça fonctionne bien quand je sélectionne la date directement mais quand je passe par le bouton pour appeler l'userform et que je sélectionne une date dans la combobox, ça ne fonctionne plus. Est-ce que tu penses que si je créais un If en fonction si je passe par selection change ou par le bouton macro ça fonctionnerais?

 

[sylvanu]

Re,
Vous parlez du bouton Edit ?
Parce que chez moi ça marche par clic sur une date ou par clic sur le bouton Edit.
Dans les deux cas c'est le bon mois qui est affiché dans la ComboBox.

 

[thunder23]

Re,

Oui c'est du bouton édit et je conrfime que ça fonctionne aussi mais l'Userform garde le mois de la plage. En fait je voudrais que le bouton édit et que la sélection_change soient indépendante si c'est possible.

 

[sylvanu]

En d'autres termes, si je clic sur une date j'ai dans la liste que le mois courant, si le clic sur Edit j'ai toute la liste de la feuille2 Colonne A. C'est ça ?

 

[thunder23]

C'est tout à fait ça

 

[sylvanu]

Pour cela il faut dissocier les Init.
Pour Edit :

Sub Edit()
    UserForm1.ComboBox_date.List = Application.Transpose(Sheets("Feuil2").Range("A2:A365").Value)
    UserForm1.Show
End Sub

Pour Clic sur date :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B12:AF12")) Is Nothing Then
        UserForm1.ComboBox_date.List = Application.Transpose(Sheets("Feuil1").Range("B12:AF12").Value)
        Cancel = True
        UserForm1.Show
        Load UserForm1
   End If
End Sub

 

[thunder23]

Ok super c'est exactement comme je le souhaite mais le seul bémol est que quand je sélectionne la date dans la combobox de l'userform ou que je passe par la sélection_change, ça ne renseigne plus le reste de l'userform, si j'ai déjà un poste de renseigné, si j'ai un commentaire etc. mais c'est déjà une très bonne avancé 😉

 

[sylvanu]

Et vous avez aussi une erreur d'initialisation sur la date de fin qui reste bloqué en janvier quand on clique sur une date. Ce qui induit une erreur quand on clique sur Valider.
Problème absent quand on passe par Edit.
Reprenez tout calmement, il y a surement encore des incohérences de code.

 

[thunder23]

En fait je passe tout par ListIndex et je ne pense pas qu'en enlevant index ça arrange le problème. Là pour le coup je ne sais pas comment faire 😵