mon UserForm ne s'affiche pas ?

Dranreb

XLDnaute Barbatruc

• 11 Décembre 2014

• #2

Re : mon UserForm ne s'affiche pas ?

Bonjour.

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

VB:

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

 

Dernière édition: 11 Décembre 2014

Vote positif 0 Vote négatif

al1.2loin

XLDnaute Occasionnel

• 11 Décembre 2014

• #3

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.

 

Pièces jointes

• FEUILLES_VOLS SUPERVISEURS_B.xlsm

  263.1 KB · Affichages: 27
• FEUILLES_VOLS SUPERVISEURS_B.xlsm

  263.1 KB · Affichages: 38
• FEUILLES_VOLS SUPERVISEURS_B.xlsm

  263.1 KB · Affichages: 38

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Décembre 2014

• #4

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

 

Vote positif 0 Vote négatif

al1.2loin

XLDnaute Occasionnel

• 12 Décembre 2014

• #5

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.

 

Vote positif 0 Vote négatif

al1.2loin

XLDnaute Occasionnel

• 13 Décembre 2014

• #6

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

 

Vote positif 0 Vote négatif

al1.2loin

XLDnaute Occasionnel

• 13 Décembre 2014

• #7

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

 

Pièces jointes

• FEUILLES_VOLS SUPERVISEURS_B.xlsm

  263 KB · Affichages: 32
• FEUILLES_VOLS SUPERVISEURS_B.xlsm

  263 KB · Affichages: 39
• FEUILLES_VOLS SUPERVISEURS_B.xlsm

  263 KB · Affichages: 38

Vote positif 0 Vote négatif