Microsoft 365 utiliser une ListView

[Electron24]

Bonjour le Forum,

Je reviens vers vous (J'aurais pu utiliser le Fil précédent) dans un nouveau post pour avoir un renseignement sur le remplacement d'un txtBox (Txt_Participants) par une ListView. Ce qui me permettrait d'avoir une meilleur lisibilité dans le formulaire (Alignement des données.
J'ai essayé plusieurs possibilités mais sans succès. Je galère comme un "ouf"
Je serai ravi d'avoir de l'aide.
Merci d'avance

 

[Electron24]

Re

Voici ce que cela donne. Je coince pour l'alignement des maillots. Cela ne va pas. J'ai essayé de faire comme pour les TxtBox détails mais j'ai une erreur.

Me.Txt_Jaune.Text = .List(.ListIndex, 9)

que je mets en dessous de

Me.Txt_Moyenne.Text = .List(.ListIndex, 7)

n'est pas reconnu.
J'ai toujours l'erreur que je t'ai signalé dans mon post 50
j'ai corrigé aussi une erreur de ma part . Il manquait le point entre "Résumé du Tour de France de " & .Txt_An" & Txt_An

 

[ChTi160]

Re
Je ne comprends plus lol.
Tu dis je garde les TextBox et tu me mets une image avec une Listview
Je note qu'il y a un TextBox Moyenne ?????????
C'est quoi ?
Le .Txt_An" & Txt_An dans "Résumé du ......."
Ici :

Me.Txt_Jaune.Text = .List(.ListIndex, 9)

Cela sous entend que tu mets dans un textBox ce qui se trouve dans une listBox en colonne 9 .
C'est ça ?
Que veux tu afficher en ce qui concerne les maillots ?
Jean marie

 

[Electron24]

Re,
Mais si, les txtbox dans la partie DETAILS sont bien présents depuis le début

Le .Txt_An " & Txt_An dans "Résumé du........"

est pour te montrer ou j'avais fait une erreur il manquait le point avant Txt_An dans le code.
L'image que je t'ai envoyé était pour te montrer ce que j'ai essayé de faire mais après changement d'année cela ne changeait pas la ListView4
Mais cela ne me plait pas car les images ne sont pas en concordance avec la Liste des maillots.(Images et couleur)
J'ai toujours l'erreur cité dans mon post 50
Donc comme je te l'ai dit précédemment, j'essaye de faire comme pour la partie DETAILS sans réussite pour l'instant. Les TextBox (Txt_Jaune, Txt_Pois, etc) sont dessous la ListView4
Pour répondre à ta question, il n'est pas question de mettre dans des TxtBox le contenu de la ListView4 J'essaye seulement les 2 procédures afin de voir celle que je maitriserais la mieux d'après mes connaissances et tes conseils.
Pour maintenant aucune des 2 ne fonctionne correctement

 

[ChTi160]

Arff
Je ne comprends rien ,pas !
Je vais attendre un peu avant de revenir lol
Je dis :"Cela sous entend que tu mets dans un textBox ce qui se trouve dans une listBox en colonne 9 ." Et tu me parles de ListView4..
Je vais faire une pause lol
Je te parle de TxtBox moyenne.....
Bonne Continuation.
Jean marie

 

[Electron24]

Re,
Mais non, relis mon précédent post lentement

Pour répondre à ta question, il n'est pas question de mettre dans des TxtBox le contenu de la ListView4 J'essaye seulement les 2 procédures afin de voir celle que je maitriserais la mieux d'après mes connaissances et tes conseils.

J'essaye soit avec les TxtBox soit avec la ListView4

 

[ChTi160]

Oui mais c'est ça qui me perturbe lol
Ça vient d'où et pourquoi faire lol

Me.Txt_Jaune.Text = .List(.ListIndex, 9)

Tes TextBox étaient très bien !
Jean marie

 

[Electron24]

Re
si tu regardes bien le code du CmbB_Dates ci dessous,
Les Txtbox Maillots ne changent pas lors de la sélection d'une autre annéés

Private Sub CmbB_Dates_Change()

With Frm_Image
    .Txt_An = .CmbB_Dates
    .Caption = "Résumé du Tour de France de " & .Txt_An
    .Lab_An.Caption = "Le PARCOURS de " & .Txt_An
    .Basc_Classement.TripleState = False
    .Basc_Classement = False
  
With .CmbB_Dates
        YearSelect = CDate(.List(.ListIndex, 0))
        Me.Txt_Début.Text = .List(.ListIndex, 1)    '  Application.Proper(Format(CDate(.List(.ListIndex, 1)), "dddd dd mmmm yyyy"))
        Me.Txt_Fin.Text = .List(.ListIndex, 2)      '  Application.Proper(Format(CDate(.List(.ListIndex, 2)), "dddd dd mmmm yyyy"))
        Me.Txt_Nb_Etapes.Text = .List(.ListIndex, 3)
        Me.Txt_Coureurs.Text = .List(.ListIndex, 4)
        Me.Txt_Reste.Text = .List(.ListIndex, 5)
        Me.Txt_Distance.Text = .List(.ListIndex, 6)
        Me.Txt_Moyenne.Text = .List(.ListIndex, 7)
      
'        Me.Txt_Jaune.Text = .List(.ListIndex, 9)
      
    End With
  
With .ListView4                                 ' Liste des Maillots
      .ListItems.Clear
      With .ColumnHeaders                       ' Maillot - Nom du Coureur
         .Clear
         .Add , , "", 0, 0                      ' Année sélectionnée
         .Add , , "Maillot", 60, 2
         .Add , , "Noms du Coureur Maillots", 175, 0
       End With                                 ' ColumnHeaders
         .Gridlines = True
         .Sorted = False
         .LabelEdit = lvwManual
         .View = lvwReport
'**********************
    Recup_Maillot YearSelect, ColSource
'**********************
   End With                                     'ListView3
  
With .LstB_Etapes '314
      .ColumnCount = 5
      .ColumnWidths = "0;65;235;0;0"
      .Clear
For Col = 1 To UBound(Tab_Etapes, 2)
  If Tab_Etapes(1, Col) = YearSelect Then
  YearSelect = Tab_Etapes(1, Col)
     .AddItem YearSelect                                'Année
     .List(.ListCount - 1, 1) = Tab_Etapes(2, Col)      'N° Etape
     .List(.ListCount - 1, 2) = Tab_Etapes(3, Col)      'Parcours
                    ColSource = Tab_Etapes(4, Col)
     .List(.ListCount - 1, 3) = ColSource               'Colonne Source
     .List(.ListCount - 1, 4) = Tab_Etapes(5, Col)      'Ligne
  End If
Next
End With
'**********************
  Recup_General YearSelect, ColSource
  Recup_Maillot YearSelect, ColSource
'**********************
End With
    Copie_Image
End Sub

Il y a bien le remplissage des TxtBox (Début, Fin, Etaptes, Coureurs, Reste, Distance et MOYENNE) ?
Je souhaite donc sur ce modèle faire pareil pour les maillots.
Je te joins mon fichier mais sans les images Tu verras que j'ai un module Maillot pour faire aussi un essai dans le ListView4
Comme je te l'ai dit, je teste SEPAREMENT mais dans le même formulaire, les deux méthodes.
EDIT:
Dans la feuille Résumé, il y a deux fois les mêmes infos c'est un oubli lors du transfert

 

[ChTi160]

Re
Ok
Je regarde des que possible lol
Jean marie

 

[Electron24]

Bonjour le Forum, Bonjour Jean-Marie
Dans le classeur, il y a une chose que je n'ai pas pris en compte c'est que les participants (Coureurs) ne commencent pas tous à la même ligne, car selon l'année on a plus ou moins d'étapes.( Celles ci variant entre 6 et 24 pour les plus longues)
Donc cela décale tout dans la ListView3 (Qui se trouve caché, il faut agrandir le formulaire)

Public Function Recup_Coureur(YearSelect, ColSource)
FirstRow = 116
LastRow = 200

FirstRow et LastRow étant défini fixe cela décale tout.
Je cherche une solution afin de commencer la liste des coureurs (Participants) après la cellule de la ligne qui contient "N°" comme pour les étapes ou l'on recherche le mot Etape

 

[Electron24]

Re
Le classeur avec le travail de ChtI160 que je remercie grandement sans qui je n'y serais pas arrivé.

 

[ChTi160]

Bonsoir Electron24
Bonsoir le Fil ,le Forum
Peut être Faire une boucle sur la colonne jusqu'à trouve le premier "N°"
Pas trop le temps lol
Je bricole a la maison, donc si pas de solution je regarderai.
Jean marie

 

[soan]

Bonsoir Jean-Marie,

Vu qu'tu bricoles, évite de taper avec ton marteau sur ton téléphone : même si
tu l'utilises plus pendant qu'tu conduis, ce s'rait dommage de plus pouvoir t'en
servir depuis ton canapé !!! et plus important encore : vise bien le clou :
le marteau doit pas déraper sur tes doigts !!!

(l'ange Jonathan Smith veille sur ta sécurité)

 

[Electron24]

Bonsoir soan

 

[soan]

Bonsoir Electron,

Désolé : je ne t'ai pas dit bonsoir à toi aussi seulement car mon post précédent
était adressé en particulier à mon ami Jean-Marie : c'est Jonathan Smith, de la
série "Les routes du Paradis" (Highway to Heaven) qui m'a demandé de veiller
sur lui, en attendant le retour de son copain Mark Gordon (Victor French).

Mais Michael Landon et moi, on te souhaite bonne soirée à toi aussi !
et Jonathan m'a assuré que tu ne risques rien ... sauf peut-être si tu fais du
bricolage, toi aussi ! par exemple : coupe le courant avant de changer une
ampoule, c'est bien plus prudent !

soan

 

[ChTi160]

Bonjour Electron24
Bonsoir le Fil ( Soan ) ,le Forum
Mdr !
Je n'ai pas encore pris de temps pour ouvrir mon Pc.
Mais promis j'y regarde desque possible.
Bonne journée
Jean marie(.….….)