travailler avec une listview ouverte

infam29

XLDnaute Nouveau
Bonjour amis,

Malgré mes multiples recherches, je bute désespérément sur un problème sans doute très simple.
Mon casse-tête:

Une listview s'affiche lorsque le curseur est positionné sur une cellule quelconque de la colonne C
Là, pas de souci. Ça marche.

En revanche je ne trouve pas le code à mettre dans ma macro pour afficher cette listview ET pouvoir servir la cellule active.

Question 1: quel code-macro pour servir la cellule tout en gardant la LISTVIEW visible
Question 2: quel code pour effacer la listview après "enter" ou "tab"

Merci à ceux qui auront la gentillesse de se pencher (sans tomber) sur mon problème

APERÇU DU CODE-MACRO

[feuil8]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C18:C70")) Is Nothing Then
USFcodes.Show 'appel listview

Else

If Not Intersect(Target, Range("B18:B70,D18:I70")) Is Nothing Then
Unload USFcodes
Exit Sub
End If
End If
End Sub

[Code de l'USFcodes]
Private Sub UserForm_Initialize()

'----- remplissage ListViewCréd-----------
With ListViewCréd
ListViewCréd.HideColumnHeaders = True 'suppr en-tête
With .ColumnHeaders 'Définit nombre colonnes et Entêtes
.Clear 'Supprime anciens entêtes
.Add , , "", 72
End With

For i = 3 To 17
ListViewCréd.ListItems.Add , , Sheets("param").Cells(i, 1) & "-" & Sheets("param").Cells(i, 2)
Next
End With
ListViewCréd.View = lvwReport 'affichage mode "Détails" mini-interligne
ListViewCréd.ListItems(1).Selected = False 'suppr focus

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 924
Messages
2 093 669
Membres
105 781
dernier inscrit
Dominique G.