Désactiver les cases a cocher dans une Listview

Résolu/Fermé

vieuxraymond Messages postés 24 Date d'inscription mardi 24 janvier 2017 Statut Membre Dernière intervention 29 janvier 2017 - 25 janv. 2017 à 16:23
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 - 27 janv. 2017 à 14:07

Bonjour a tous, forum bonjour

J'ai dans un USF, une Listview (2) dont les cases a cocher ont affichées .

Je souhaiterai svp et si possible laisser visibles les cases

MAIS je voudrais bien les désactivées ou les grisées ou ne pas pouvoir les cochées.

Et bien sur, je garde la sélection de la ligne.

Merci pour votre aide et bonne fin d'après midi a vous

Cdlt Ray


Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim X As Integer, J As Integer

'If ListView2.ListItems.Count > 0 Then
 '           ListView2.ListItems(1).Selected = False
  '          Set ListView2.SelectedItem = Nothing
 'End If
''''''''''''''''''''''''''''''                        
'      For J = 1 To Item.ListSubItems.Count
'
'                If Item.Checked = True Then
'
'                   Item.Checked = False
'             Else
'                   Item.Checked = True
'                End If
'      Next J

'    For X = 1 To ListView2.ListItems.Count
'        ListView2.ListItems(X).Selected = False
'    Next
'
'    Set ListView2.SelectedItem = Nothing

''''' Essai Test pour ne pas pouvoir cocher les cases a cocher des checkboxs
''''' Mais je n'y parvient pas

'       For i = 1 To ListView2.ListItems.Count
'            If i = Item.Index Then
'                   ListView2.ListItems(i).Selected = False
'            Else
'                   ListView2.ListItems(i).Checked = False
'                   ListView2.ListItems(i).Selected = False
'            End If
'       Next i
'''''''''''''''
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Code ci-dessous est bon
          On Error Resume Next
             ListView2.ListItems(Mem1).ForeColor = vbBlack                 '.ListSubItems(1)
         For i = 1 To 3
             ListView2.ListItems(Mem1).ListSubItems(i).ForeColor = vbBlack
         Next i
             ListView2.SelectedItem.ForeColor = vbRed                      '.ListSubItems(1)

         For i = 1 To 3
             ListView2.SelectedItem.ListSubItems(i).ForeColor = vbRed
         Next i
            Mem1 = Item.Index
End Sub

A voir également:

Désactiver les cases a cocher dans une Listview
Desactiver instagram - Guide
Desactiver windows defender - Guide
Aller à la ligne dans une case excel - Guide
Mode securise android desactiver - Guide
Desactiver uac - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
25 janv. 2017 à 16:42

Bonjour vieuxraymond ou vieuxray ou ...... sauf erreur de ma part

       For I = 1 To ListView2.ListItems.Count
            If I = Item.Index Then
                   ListView2.ListItems(I).Selected = True
                   ListView2.ListItems(I).Checked = False
                   Exit For
            Else
                   ListView2.ListItems(I).Checked = False
                   ListView2.ListItems(I).Selected = False
            End If
       Next I

vieuxraymond Messages postés 24 Date d'inscription mardi 24 janvier 2017 Statut Membre Dernière intervention 29 janvier 2017
25 janv. 2017 à 18:00

Salut f894009,

C'est bien Vieuxray je me suis ré-inscrit en temps que membre sur le site je n'arrivai plus a me connecter.

Merci pour ta réponse, c'est bien sympa.

j'ai mis un lien afin de récupérer mon fichier test, j'ai adapter le code que tu a fait mais ca ne fonctionne pas tout a fait comme souhaiter.

La sélection des lignes, c'est bon ok

Mais on peux toujours cliquer dans les cases.
Et si tu les cliquent toutes, elles se cochent toutes.

Je souhaiterai si possible ne pas pouvoir les cochés du tout.

Je te remercie pour ton aide.

Cdlt Raymond

http://www.cjoint.com/c/GAzqM1szoDz

f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708 > vieuxraymond Messages postés 24 Date d'inscription mardi 24 janvier 2017 Statut Membre Dernière intervention 29 janvier 2017
25 janv. 2017 à 18:25

Re,
Ca roule ?

pas le bon evenement, check pas clic

'###

'Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
Private Sub ListView2_ItemCheck(ByVal Item As MSComctlLib.ListItem)

vieuxraymond Messages postés 24 Date d'inscription mardi 24 janvier 2017 Statut Membre Dernière intervention 29 janvier 2017 > f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024
25 janv. 2017 à 19:28

Re
Merci pour la modification, La ça fonctionne bien,

Sauf que je viens de voir sur une manipulation.

- Quand je sélectionne une ligne, elle passe en bleu, la case n'ai pas cocher très bien
MAIS
- Quand je sélectionne une ligne, elle passe en bleu, la case n'ai pas cocher ET là si je clic
dans la case a cocher correspondante la ligne devient rouge.

C'est dû au code dessous le tien qui fait réagir ainsi alors du coup c'est pas mal.

j'ai une autre listview(1) et je navigue un coup dans une, un coup l'autre.

Alors je me demandais si on pourrai pas faire en sorte que lorsque je sélectionne une ligne dans la listview(2) que celle ci passe en bleu.

MAIS dès que je quitte la listview (2) pour aller dans la listview(1) que la dernière ligne sélectionner passe en rouge.

MAIS si je retourne dans la listview(2) alors la ligne repasse en bleu, bien sur.

Comme c'est déjà le cas, si je clic dans une case a cocher donc si on pouvais éviter l'étape du clic dans la case a cocher.

Je résume:

- Je suis dans listview(2) je sélectionne une ligne qui passe en bleu
- Je quitte la listview(2) pour aller dans listview(1) la ligne passe en rouge et le reste jusqu'à la prochaine sélection
- Quand je reviens dans listview(2) alors ligne redevient bleu et ainsi de suite.
Intérêt la ligne en rouge m'indiquerai la dernière ligne choisi pour mémoire.

Merci a toi pour les modifications, je me suis appliquer pour l'explication, j'espère que ca conviendra.

Sinon baht je re expliquerai, pas de soucis.

je te souhaite la bonne soirée, la soupe est chaude, et merci a toi

Cdlt Raymond

Re,
Je regarde la chose demain

Bonjour f894009,

Pas de problème,

Juste cette après midi, bloquer de 13h30 jusqu'à 17h, un examen au CHU.

A plus tard et merci, la bonne journée a toi.

Cdlt Raymond

Réponse 2 / 3

vieuxraymond Messages postés 24 Date d'inscription mardi 24 janvier 2017 Statut Membre Dernière intervention 29 janvier 2017
26 janv. 2017 à 13:15

Re f894009

Je savais bien que j'avais oublier quelque chose,

je mets le lien du fichier que tu m'a envoyer ce matin ca sera plus simple

j'ai mis a l'intérieur une bulle explicative sur une possibilité de modification sur la feuil1

Pas presser t'inquiète pas.

https://www.cjoint.com/c/GAAmjjxXJ6z

je suis de retour vers 17h

Bonne après midi a toi

Cdlt Ray

f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
26 janv. 2017 à 14:24

Re,

A vous de voir si ok

https://www.cjoint.com/c/GAAnyIH4XRf

Re salut

merci pour ta réponse, après midi galère te dit pas.

bon j'ai essayer mais ca marche pas

la barre jaune et la barre bleu, je peux les déplacer jusqu'à la colonne (J)
et je souhaiterai que ça n'ailles pas plus loin.

c'est a dire que lorsque l'on arrive avec le curseur a la colonne (J)

que la colonne (J) se déplace pas vers la gauche

il faudrait si possible que lorsque que l'on arrive a la colonne (J) que l'on ne puisse pas
aller plus loin que la colonne (J)

voila je te remercie désoler pas pu essayer plus tôt.

Bonne soirée a toi et merci

Cdlt Ray

Re,

Comprends pas ce que vous voulez!!!!!!!!!!!

Bonjour F894009,

En fait je souhaiterai n'avoir a l'écran de visible que les colonnes A-B-C-D-E-F-G-H-I-J.

Donc de pouvoir déplacer le curseur (bleu) de gauche a droite dans les colonnes de A à J

But : éviter d'avoir la colonne A qui disparaisse lors des manipulations et de ne pas dépacer la colonne J

En vba voir si possible de figer la colonne ( j ) et de pouvoir se déplacer uniquement entre les colonnes A-B-C-D-E-F-G-H-I-J

J'ai fait un petit montage photo avec explications, voir svp le lien ci-dessous.

http://www.cjoint.com/c/GABghFYmNsz

Si besoin n'hésite pas, bonne journée a toi et merci

Cdlt Ray

Bonjour,

La c'est clair. Ok je fais

Réponse 3 / 3

vieuxraymond Messages postés 24 Date d'inscription mardi 24 janvier 2017 Statut Membre Dernière intervention 29 janvier 2017
27 janv. 2017 à 14:02

Salut

Bon, j'ai effectuer toutes les options de mon programme et tout fonctionne parfaitement bien, dont une bonne partie grâce a toi.

Je te remercie pour toute l'aide que tu a bien voulu m'apporter, ce qui m'a permis d'aboutir a l'élaboration de mon programme.

Je vais m'amuser un peu histoire de voir si tout va bien.

Je te souhaite un bon W-end, un peu frais ici a Rouen mais bon c'est l'hiver.

Bye bye et encore mille merci a toi.

A bientôt, une très bonne après midi.

Bien cordialement Raymond

f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
27 janv. 2017 à 14:07

A bientot

Discussions similaires

code couleur associé a une image

cocher sans souris :'(

Bouton case à cocher grisé

Désactiver une touche du clavier : possible ?

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters