Discussion :

[edden]

Bonjour,

Je suis en train de faire une base de données à partir de données sous excel. Je souhaiterais faire un sous formulaire avec des cases à cocher.Pour être plus précis, une colonne de mon fichier excel contient des numéros d'animaux et j'aimerais pouvoir faire un formulaire avec une case à cocher par animal, un bouton "sélectionner tout" et un bouton "déselectionner tout". Le problème est que je mets à jour quotidiennement les données donc il faudrait que les cases s'affichent automatiquement en fonction des animaux. J'espère que vous avez compris ce que je souhaite effectuer et que vous pourrez m'aider.
Merci pour vos réponses

PS: pour vous aider, ce que j'aimerais obtenir est cette photo:

[Gabout]

Bonjour et bienvenu sur DVP

Par exemple ta table contient :

• un identifiant aniid
• un libellé anilib
• une case à cocher de type oui/non anisel

Sur clic de ton bouton 'Sélectionner tout', tu fais une requête de mise à jour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub cmdSelectionnerTout_Click()
  DoCmd.SetWarnings False
  DoCmd.RunSQL "UPDATE tANI SET tANI.anisel = Yes;"
  DoCmd.SetWarnings True
End Sub

... et tu fais de même en mettant anisel à No pour désélectionner sur ton autre bouton.

Bon courage,

[edden]

merci de votre réponse

Le problème est que je n'arrive pas à creer la liste déroulante avec case à cocher. Pourriez vous m'expliquer comment faire sachant que je suis sous access 2003.

Merci d'avance

[Jeannot45]

Le problème est que je n'arrive pas à creer la liste déroulante avec case à cocher.

Nativement, c'est impossible de mettre des cases à cocher dans une liste déroulante ou une zone de liste. Tu ne peux que simuler la chose.

Voici un tuto qui te présente le sujet : De nouvelles listes pour vos formulaires Access

Bonne continuation

[edden]

Je te remercie enormément pour ton aide. Grace au lien que tu m'a donné j'ai réussi a faire une zone de liste avec case à cocher comme je le voulais. J'ai également fait un bouton "sélectionner tout" et un autre "desélectionner tout". Cependant, j'ai un problème avec un bouton. En effet j'ai creer un bouton "OK" qui me permet d'envoyer mes données sélectionnées vers une autre zone de liste access appelée "LISTE". Le problème est que toutes mes données sont exportées les unes après les autres à la fil indienne alors que j'aimerais qu'il soit séparer ligne par ligne.
Je voudrais donc savoir quel langage VBA je devais utiliser pour passer des lignes entre chaque donnée dans la zone de liste? De plus j'aimerais qu'à chaque fois que je clique sur "OK", les anciennes valeurs de la zone de liste soient remplacer par les nouvelles valeurs et non que les nouvelles valeurs se mettent à la suite des anciennes.
Comment puis-je procèder pour supprimer l'ancienne liste et mettre la nouvelle à la place

Merci d'avance pour vos réponses

[Invité]

Bonjour

Quel est le code derrière le bouton OK ?

Quand tu parles d'anciennes valeurs, c'est quelle liste ? La première ou la deuxième ?

Philippe

[edden]

Voici le code du bouton OK

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub OK_Click()
   ' ===== déclaration =====
    Dim lngDerRow As Long       ' pour récupérer la dernière ligne
    Dim i As Long               ' pour réaliser la boucle sur l'ensemble des lignes
    Dim strMessage As String    ' préparation du message qui donnera les lignes sélectionnés
 
    ' ===== affectation =====
    lngDerRow = wksSheet.Range("B1").End(xlDown).Row
 
    ' ====== boucle sur les lignes ======
 
 
    For i = 2 To lngDerRow
        If wksSheet.Range("A" & i).Value = "x" Then
           Forms!formulaire_principal!Liste.RowSource = Forms!formulaire_principal!Liste.RowSource & wksSheet.Range("b" & i).Value
        End If
    Next i
 
 
 
End Sub

Je souhaite supprimer les anciennes valeurs de la nouvelle liste appelée ici "Liste" et afficher les nouvelles valeurs en passant des lignes.

Voila, je vous remercie de vos réponses

[Invité]

Bonjour

Pour remplir ta liste utilise la méthode Additem, les valeurs seront alors les unes sous les autres.

Pour effacer regardes du coté de Remove.

Philippe

[edden]

Bonjour,

Je te remercie pour ta réponse. J'ai reussi à ajouter les valeurs les unes à la suite des autres en passant des lignes grâce à Additem.
Cependant, je n'arrive pas à supprimer les anciennes valeurs de la zone de liste appelée "Liste" avec remove. Quel code faut-il rentrer pour supprimer toutes les entrées de celle-ci.
Merci pour vos réponses