Je viens vers vous dans l'espoir que vous puissiez me donner une réponse à mon problème.
En effet, j'ai ce classeur qui fonctionnait très bien il y a quelques temps. Hors depuis que j'ai du réinstaller Windows 7 et MS office, j'ai un souci avec mes ListView. (Voir l'extrait du classeur ci joint) Lorsque je clique sur le bouton "Chercher un Film" (en haut à gauche de la feuille) j'ouvre un formulaire.
Je sélectionne "Selection - Tri" j'ouvre un autre formulaire avec une ListView qui reprend tous les films. C'est là que j'ai un souci, quand je clique sur un film j'ai un message d'erreur (Voir Capture.jpg)
Quelqu'un pourrait il me donner une réponse.
Ci joint les références. (Voir Capture1.jpg)
D'avance merci.
Electron, ce que veux dire Dranreb c'est qu'on écrit Me.controls quand on est dans le formulaire, dans un module il faut mettre son nom, c'est à dire : FrmListe.Controls
EDIT: Bonjour Jean Marie , désolé pour le croisement.
Re,
En réponse à Lone-wolf, j'ai après avoir remplacé mon code par le sien une erreur avec Me.(Voir Capture.jpg)
Dranreb comme vous pouvez le voir sur l'image (Voir Capture1.jpg) de mon premier message, cette référence y figure, je l'ai décoché mais le résultat reste pareil.
Voici pour les résultats de vos données Merci à vous deux.
Je continue à rechercher la cause
Bonjour,
Je reviens vers vous afin de savoir si une âme charitable aurait trouvé une petite astuce ou solution à mon problème ? Bonne journée à vous. (Moi j'en suis toujours au même point)
Bonjour.
D'après moi l'utilisation du mot clé Me ne peut jamais être incorrecte dans un module objet. Elle l'est toujours seulement dans un module standard.
Comme le dit "Dranreb" l'erreur vient du fait que tu es dans un module standard sans référence a L'objet "FrmListe"
j'ai aussi du décocher la Référence manquante !
Voila ce que j'ai mis et qui semble fonctionner
VB:
Sub CompterTc()
Dim a As Integer, b As Integer
' Me.TxtSommeOk = CDbl(Me.Txt1) + CDbl(Me.Txt2) + CDbl(Me.Txt3)
With FrmListe
For a = 1 To 9
b = b + CDbl(.Controls("Tc" & a))
Next
.TxtTotal = b
.CbxComplet = IIf(b = 8, "OK", "")
End With
End Sub
Electron, ce que veux dire Dranreb c'est qu'on écrit Me.controls quand on est dans le formulaire, dans un module il faut mettre son nom, c'est à dire : FrmListe.Controls
EDIT: Bonjour Jean Marie , désolé pour le croisement.
Bonjour à vous tous,
Un grand merci à vous Lone-wolf, Dranreb et Chti160 Le problème de la macro "CompterTc" semble résolu. Mais j'en engendre un autre. Lorsque je désire compiler le projet, la macro "CopieImage" du module "ModRecherche" me donne une erreur sur la ligne concernant "Image1.Picture"
Edit : Problème résolu entièrement (La macro "CopieImage" ne se trouvée pas au bon endroit) Il faut la mettre dans les macros du "FrmListe"