Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Afficher dans une colonne d'une ListView des cases à cocher

2 réponses
Avatar
RENAUD Eric
Bonjour,
Je récupère depuiq Access, des données que j'affiche dans une ListView.
Dans les champs de la table Access, il y a un champ Oui/Non.
J'aimerai donc que ce champ lorsqu'il s'affiche dans ma ListView, se
présente sous la forme d'une case à cocher.
Est-ce possible, sinon quel controle utiliser ?
D'avance merci

2 réponses

Avatar
Driss HANIB
"RENAUD Eric" a écrit dans le message de news:

Bonjour,
Je récupère depuiq Access, des données que j'affiche dans une ListView.
Dans les champs de la table Access, il y a un champ Oui/Non.
J'aimerai donc que ce champ lorsqu'il s'affiche dans ma ListView, se
présente sous la forme d'une case à cocher.
Est-ce possible, sinon quel controle utiliser ?
D'avance merci



Bonjour,

je crois qu'il faut utiliser la propiété icone et mettre des icones
représentant un case cochée ou décochée en fonction de ton champ oui/non

Driss
Avatar
lecanard
LSteph a écrit le 07/04/2010 à 18h32 :
...ou alors avec VBA d'accord et tout dans la même cellule, on fait un
petit userform avec une listbox, un label et deux boutons et pour
principe qu'on Doublecliquera en colonne D (supposée celle des
catégories) pour faire le choix et l'entrer.
http://cjoint.com/?ehsBmOV3 Vt

'dans un module standard
Public macell As Range

'dans le code de userform1
Private Sub CommandButton1_Click()
Dim mystr As String, i#
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
mystr = mystr & ListBox1.List(i) & Chr(10)
End If
Next i

macell = mystr
Unload Me
End Sub


Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Me.Caption = "Choix"
CommandButton1.Caption = "Entrer"
CommandButton2.Caption = "Fermer"
Label1 = "Appuyer CTRL pour cliquer un choix multiple"
ListBox1.MultiSelect = fmMultiSelectExtended
ListBox1.ListStyle = fmListStyleOption
ListBox1.List = Array("Aventure", "Roman",
"Fiction", "Classique",
"Espagnol", "Anglais", "Français",
"Poche")
End Sub

'dans le code de Feuil1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Dim isect As Range
Set isect = Intersect(Target, [d2:d65536])
If isect Is Nothing Then Exit Sub
Cancel = True
Set macell = isect
UserForm1.Show
End Sub


'--
'LSteph



On 7 avr, 17:35, LSteph wrote:
Bonjour,
Si j'ai bien compris l'objectif voilà ce que je ferais:
Pour commencer supprimer toutes ces cases à cocher .
A la place dans mes 9 colonnes puisque 9 choix peuvent se completer
je mettrais une liste de validation liée à la mini table des
catégories que j'ai préalablement définie.

Exemple ton tableau de A1 jusqu'à M..(.n)
plus loin à droite la liste des catégorie exemple X1:X10
Catégorie0 1
Catégorie02 .....Catégorie10

Sélectione la plage X1:X10  de cette liste puis
Définir un nom maliste

Sélectionne ensuite dans le tableau toute la plage potentielle des
choix de catégorie
Données Validation Liste
=maliste

.Maintenant dans chaque cellule au lieu d'aller cocher et lier tu as
directement le choix du déroulant.

Sinon c'est que je n'ai pas bien compris , donne un exemple de ton
classeur enhttp://cjoint.com

--
LSteph

On 7 avr, 12:50, lecanard wrote:



> Bonjour à tous,

> Alors je vous explique mon problème:
> Jai un tableau excel (jusqu'ici tt va bien!) où il y a une liste
de l ivres (une
> colonne auteur, une colonne date etc.). Je souhaite ajouter des livres
> régulièrement.

> Il faut que je les trie avec des catégories (il y en a 9).
> J'ai donc rajouté 9 colonnes avec pour chacune une case à
cocher. Q uand la case
> est cochée, je souhaite qu'apparaisse dans la case categories:
"categ orie1,
> categorie3, categorie7", cad toutes les cases qui ont éte
cochées s ur la meme
> ligne.

> Je suis confronté à 2 problemes:
> - je n'arrive pas à avoir de résultat dans la colonne
categories (o u bien
> seulement pour une categorie)
> - je n'arrive pas à incrémenter la 1ere ligne afin d'avoir
pour les autres
> lignes les cases à cocher, liées à la cellule
où elles sont

> Un dernier probleme: je ne my connait pas du tout en VBA (mais en php s
i, mais
> ca naide pas...), donc si je suis obligé de passer par là,
ca va et re long...

> Ca fait des jours que je suis sur le probleme et je ne trouve pas... Si
> quelqu'un à la solution au problème il gagne un oeuf de
paques :D

> Merci d'avance!

> A+,
> JP- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -




Salut LSteph,
Merci bcp pour tes réponses.
Concernant le truc de la liste, j'ai du mal m'exprimer :p

Super pour le script VBA! Je reviens à l'instant de vacances donc je verrai ca ce soir, mais ca a l'air detre ce que je souhaite.
Je te tiens informé.
Merci encore!
A+,
JP