Sghaier Chafaa
XLDnaute Junior
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:
Code actuel opérationnel qui me permet l'insertion des chekbox suite condition de séparateur textuel '&&' :
merci enormement en avance pour votre support
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:
- je n'arrive pas à inserer les boutons d'options sur la ListView avec les conditions mentionnées en image explicative
- 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 '&&' :
VB:
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
merci enormement en avance pour votre support