mon UserForm ne s'affiche pas ?

[al1.2loin]

Bjr, j'ai refait à l'identique les exemples que l'on m'avais donné, mais le Tableau_Sup ne s'affiche pas quand je clic sur la cellule B4 de la feuille Lundi_10_Sup, aurais je manqué quelques chose?

 

[Dranreb]

Re : mon UserForm ne s'affiche pas ?

Bonjour.

Pour compléter le diagnostic de Jean-Marcel je vous suggérerais de mettre plutôt :

If Target.Column Mod 10 = 2 Then Tableau_Sup.Afficher Target(1, 1)

 

[al1.2loin]

Re : mon UserForm ne s'affiche pas ?

Bjr, et merci pour votre entre aide, cela fonctionne avec le code de Dranreb, mais quand je clic sur la cellule, une fenêtre s'affiche avec le chiffre 16? et quand je clic sur OK mon userform s'affiche et la je ne peux pas afficher ma sélection des noms.

 

[Dranreb]

Re : mon UserForm ne s'affiche pas ?

Enlevez le MsgBox qui ne servait qu'a vous montrer la valeur de Target.Count
Chez moi la liste de nom s'affiche mais c'est tout. Vous devriez sans doute corriger dans l'Userform Liste_A en ListBox1

 

[al1.2loin]

Re : mon UserForm ne s'affiche pas ?

Bjr à tous les deux et merci pour cette petite astuce, étant moi même un peu largué dans ce domaine j’essaie tant bien que mal à suivre tout ceci, j'ai retiré le MsgBox comme me l'a suggéré Dranreb et ma liste apparait.
Pendant que je vous ai, ma liste s'affiche bien quand clic sur l'une des cellules de [B4:BT42] mais je n'ai pas trouvé la suite du code pour ma 2ème partie de feuille qui est en dessous pour [B42:BT42] et encore merci.

Bonne Journée.

 

[al1.2loin]

Re : mon UserForm ne s'affiche pas ? [ résolu ]

Bjr, après plusieurs réflexions j'ai trouvé la solution qui est :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect([B4:BT4:B42:BT42], Target) Is Nothing Then Exit Sub
If Target.Count = 1 Then Tableau_Sup.Show
End Sub

 

[al1.2loin]

Re : mon UserForm ne s'affiche pas ?

Bjr, oui je me suis aperçu de mon erreur et le bon code pour afficher Tableau_Sup est bien :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect([B4:BT4], Target) Is Nothing Then Exit Sub
If Target.Column Mod 10 = 2 Then Tableau_Sup.Afficher Target(1, 1)
End Sub

mais par contre sur la continuité de ma feuille c'est la que je bloc je n'arrive pas à affiche le Tableau_Sup en B36 à BT36