LISTVIEW alimenté avec OptionButton + CheckBox

Bonjour forum,

par faveur de votre part, je me bloque , j'ai besoin de votre aide

mon objectif:
avoir une ListView alimenté avec des CheckBox + OptionButton

en effet je suis entrain d'essayer de produire une petite app. qui me permet de generer un formulaire checklist qui aide un medecin de conseil à decider d'attribuer un accord favorable d'un dossier ou pas

Je suis déjà à moitié de chemin

sur le fichier ci-joint, il y a un exemple en jaune (feuil1) qui explique parfaitement et graphiquement le resultat cherché puis sur userform1 (bouton Go !) vous trouviez le code actuel

mes difficultés:

1. je n'arrive pas à inserer les boutons d'options sur la ListView avec les conditions mentionnées en image explicative
2. une fois optionbouton est inséré sur ListView , j'ai besoin qu'elle active la derniére checklist qui lui appartient en haut (comme modèle feuil1 coloré en Jaune)

Code actuel opérationnel qui me permet l'insertion des chekbox suite condition de séparateur textuel '&&' :

Dim strInput As String
Dim arrParts() As String
Dim i As Long

' Chaîne à décomposer
strInput = "Crrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrt1&&Crt2&&Crt3&&Opt1%%%Opt2%%%Opt3&&Crt5"

' Décomposer la chaîne selon le séparateur "&&"
arrParts = Split(strInput, "&&")

' Configurer le ListView pour n'avoir qu'une seule colonne
With UserForm1.ListView1
    .ColumnHeaders.Clear
    .ColumnHeaders.Add , , "Sous-chaînes"
    .View = lvwReport
End With

' Effacer le contenu existant du ListView
UserForm1.ListView1.ListItems.Clear

' Ajouter chaque sous-chaîne dans une nouvelle ligne du ListView
For i = 0 To UBound(arrParts)
    UserForm1.ListView1.ListItems.Add , , arrParts(i)
Next i

fichier de projet

https://uploadnow.io/f/kgy19Pj

merci enormement en avance pour votre support

je pense impossible, c pour ce là pas de réponse

sur net y a que les approche insertion images semblant faire optionbutton coché et vide

Bonjour je me suis un peu penché dessus mais pas de solution avec le code que vous proposez. jai juste pu avoir ceci avec le code modifié

Private Sub UserForm_Initialize()

'pour afficher le scrollbar si les lignes de listview sont plus longue que largeur listvie
With UserForm1.ListView1
.Gridlines = True ' affiche les lignes
.View = lvwList ' Style de rapport
.FullRowSelect = True ' Sélectionne la ligbne entière
.FlatScrollBar = False 'True ' << pas true ... mais false >>> magiiiiieee 8- )))))))
End With

Dim strInput, vue As String
Dim arrParts() As String
Dim arrParts2() As String

Dim i, j As Long

' Chaîne à décomposer
strInput = "Crt1&&Crt2&&Crt3&&Crt4&&Opt1%%%Opt2%%%Opt3&&Crt5"

' Décomposer la chaîne selon le séparateur "&&"
arrParts = Split(strInput, "&&")

' Configurer le ListView pour n'avoir qu'une seule colonne
With UserForm1.ListView1
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Sous-chaînes"
.View = lvwReport
End With

' Effacer le contenu existant du ListView
UserForm1.ListView1.ListItems.Clear

' Ajouter chaque sous-chaîne dans une nouvelle ligne du ListView
For i = 0 To UBound(arrParts)


If arrParts(i) <> "Crt1" Or arrParts(i) <> "Crt2" Or arrParts(i) <> "Crt3" Then
arrParts2 = Split(arrParts(i), "%%%")

For j = 0 To UBound(arrParts2)
UserForm1.ListView1.ListItems.Add , , arrParts2(j)
Next j
Else
UserForm1.ListView1.ListItems.Add , , arrParts(i)
End If


Next i

End Sub

Si tu veux je peux te proposer un code diff"rent du tien, mais j'aurai besoin de precision comme si le userform doit nourrir ses combo box avec les éléments de la feuille 1, et dans ce cas comment sont remplis les éléments de la feuille 1 surtout les crtx&&crty&&opt1.....

ton code réorganise par ordre alphabetique