affichage cellules avec une listview

  • Initiateur de la discussion Initiateur de la discussion arvin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

arvin

XLDnaute Occasionnel
bonjour, je souhaite lorsque je clique sur des cellules, avoir le report des contenus des onglets avec une listview

exemple : sur la feuille 1 , quand je clique en C1, j'ai une listview qui m'affiche le contenu de la feuille toto
idem en C2.......................................................................tata
idem C3.........................................................................
ai essayé ce code mais rien ne fonctionne
pouvez vous m'aider ?
merci


Private Sub UserForm_Initialize()
Dim fin&, i&, j&
With ListView1
With .ColumnHeaders
.Clear

End With
End With
fin = Feuil2.Range("B" & Rows.Count).End(xlUp).Row
With ListView1
For i = 3 To fin
.ListItems.Add , , Feuil2.Cells(i, 1)
For j = 2 To 3
.ListItems(.ListItems.Count).ListSubItems.Add , , Feuil2.Cells(i, j)
Next j
Next i
End With
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.AllowColumnReorder = True
ListView1.FullRowSelect = True
End Sub
 

Pièces jointes

Re : affichage cellules avec une listview

Bonjour,

Teste ce qui suit et adapte :
Code:
Private Sub UserForm_Initialize()

    Dim fin&, i&, j&

    fin = Worksheets("toto").Range("B" & Rows.Count).End(xlUp).Row

    With ListView1
        
        'entêtes de colonnes
        With .ColumnHeaders
        
            .Add , , "Essai", 100
            .Add , , "Nom", 100
            .Add , , "Prénom", 100
            
        End With
        
        For i = 3 To fin
            
            'élément de tête en colonne 2 (B)
            .ListItems.Add , , Worksheets("toto").Cells(i, 2).Value
            
            'sous éléments à partir de la colonne 3 (C)
            For j = 3 To 4

                .ListItems(.ListItems.Count).ListSubItems.Add , , Worksheets("toto").Cells(i, j).Value

            Next j

        Next i

    End With

    ListView1.View = 3

    ListView1.Gridlines = True
    ListView1.AllowColumnReorder = True
    ListView1.FullRowSelect = True
    
End Sub

Hervé.
 
Re : affichage cellules avec une listview

bonjour le Forum , Paritec , Theze

merci beaucoup pour vos propositions : ai l'impression que la listview ne reporte qu'une colonne (colonne essai) mais mon excel n'est pas assez perfectionné - je regarde attentivement dans la journée
je vous tiens au courant
 
Re : affichage cellules avec une listview

Re arvin le forum
Si tu as ouvert le post 2 tu as une listview qui se remplie bien comme il faut
voilà la version 2 oublié dans le post d'avant !!!!
a+
papou🙂
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
179
Réponses
10
Affichages
281
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
481
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
171
Réponses
3
Affichages
665
Réponses
10
Affichages
799
Retour