Discussion :

[Bloodric]

Bonjour à tous,

Cela fait un long moment que je tourne sur votre site. Il m'a aidé pour beaucoup de sujets autant pro que perso. ( surtout dans Access)
Mais voilà pour une fois je n'ai pas réussi à trouver ma réponse malgré de nombreuses recherches et tests.

Je viens de me mettre au vba dans excel afin de créer une "application" pour gérer l'équipe de jeune footeux que j’entraîne.

- Gestion effectif
- Gestion Match, score, compte rendu, note ....

Il y a un problème que je n'arrive pas à résoudre. Je souhaiterai gérer l'affichage de petites images (les cartons et les buteurs), présentes dans le formulaire mais masquées au départ, en fonction du joueurs sélectionné dans une listbox. J'ai réussi quand c'est une image avec un nom fixer ex : image3 avec un "if" et le résultat d'une chechbox sous condition vrai un simple Image3.visible = True , par contre quand je récupère le numéro du joueur concaténé avec le début du nom de l'image il ne veut pas.
Et là je sèche depuis 2 jours dessus en essayant pleins de possibilités livrées dans les forums.

Pour vous faire une idée de ce qui est en-cours

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
'**********************************************
'Procédure pour récupérer les données
'du joueur de la sélection match
'**********************************************
Private Sub lstJoueurM2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
' Déclaration des variables
 
    Dim MonJoueur
    Dim MaLigne As Integer
    Dim m As String
    Dim CartonJ As String
    Dim CartonR As String
 
'Affectation des variables
 
    MonJoueur = Me.lstJoueurM2.ListIndex 'Trouver le numéro de la ligne selectionnée dans la listbox
 
'Affectation du numero de matricule du joueur
    Me.txtJoueurM.Value = Me.lstJoueurM2.Column(0, MonJoueur)
 
'On affecte le numéro de match pour aller sur la bonne feuille
    m = "M" & txtMatriculeM
 
'On se positionne sur la cellule du matricule à modifier
    Sheets(m).Activate
    MaLigne = MonJoueur + 2
 
'    MsgBox MaLigne Vérification du numéro de ligne
 
    Cells(MaLigne, 1).Select
'On teste que le contenu de la cellule active ne soit pas vide
    If ActiveCell <> "" Then
        Me.lblNomJoueurM.Caption = Cells(MaLigne, 3)
        Me.lblPrenomJoueurM = Cells(MaLigne, 2)
        Me.cboBut = Cells(MaLigne, 5)
        Me.cboNote = Cells(MaLigne, 4)
        Me.txtCom = Cells(MaLigne, 6)
 
    End If
 
'Afficher étoile Homme du match
    If Cells(MaLigne, 7) = 1 Then
        chkHM = True
        Else
        chkHM = False
 
    End If
 
    If Me.chkHM = True Then
        Image3.Visible = True
    Else
        Image3.Visible = False
    End If
 
'Afficher Carton Jaune Joueur
 
    CartonJ = "lblcj" & MaLigne
 
'    MsgBox CartonJ
 
    If Cells(MaLigne, 9) = 1 Then
        chkcj = True
        Else
        chkcj = False
    End If
 
    If Me.chkcj = True Then
 
        CartonJ.Visible = True
    Else
        CartonJ.Visible = False
    End If
 
'Afficher Carton Rouge Homme du match
 
'    CartonR = "lblcr" & MaLigne
 
'    If Cells(MaLigne, 10) = 1 Then
'        chkHM = True
'        Else
'        chkHM = False
'    End If
 
'    If Me.chkcr = True Then
'        cr.Visible = True
'    Else
'        cr.Visible = False
'    End If
 
'------------------------------
 
    Sheets("CLUB").Activate 'Retourne à la feuille de gestion
    Range("A1").Select
 
End Sub

Pour l'étoile "Homme du match" pas de soucis mais pour les cartons avec le nom de l'image CartonJ = "lblcj" & MaLigne impossible malgré de multiples tests avec des directions bien différentes.

Je suis preneur si vous avez une solution pour le débutant que je suis.

Cordialement

[Transitoire]

Bonjour,
c'est pas évident, mais j'ai l'impression que vous appelez de la même manière, l'image carton jaune et la variable Carton jaune, je pense que c'est de la que vient votre problème.
Essayez de rectifier cela et je crois qu'après ça va aller. ça semble marcher bien pour l'étoile qui elle dispose d'un nom différent pour l'un et l'autre.
Par ailleurs, il faut expliciter mieux le problème rencontré. Dire que ça plante, par exemple, ça fait pas avancer si on précise pas le message d'erreur ou ce qui se passe exactement!

Cordialement

[Transitoire]

Re bonjour
Vous pourriez aussi au lieu de mettre des images carton rouge ou jaune utiliser la propriétés .width du checkBox avec la couleur de fond correspondante.
Je me suis amusé à vous faire une petite démonstration, vous en ferez ce que vous voudrez.



Et voici le code qui y correspond, tout cela est bien sur à adapter, si ça vous plait.

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
Private Sub CheckBox1_Click()
With CheckBox1
If .Value = False Then
    .Width = 21
Else
   .Width = 100
End If
End With
End Sub
 
Private Sub CheckBox2_Click()
With CheckBox2
If .Value = False Then
    .Width = 21
Else
    .Width = 100
End If
End With
End Sub

Je précise, que lorsque vous chargez une ligne existante, il est possible aussi d 'effectuer l'opération automatiquement
Cordialement

[Bloodric]

Bonjour Transitoire,

Merci de d'être penché sur ma problématique.

Pour ce qui est du nom de l'image et de la variable, je ne pense pas avoir la même chose puisque les images se nomment lblcj1, lblcj2 ... et la variable CartonJ , c'est juste la variable CartonJ qui doit récupérer le nom de l'image.

Voilà pour le message d' erreur



Pour la proposition avec les Checkbox je vais regarder ce que ça peu donner dans l'espace, réduit, que j'ai sur le formulaire

Encore Merci

[Bloodric]

je viens de me rendre compte, comme quoi il faut prendre du recul par moment, que ce ne sont pas des images mes "minis" carton jaune mais des Labels au fond jaune ou rouge que je masque ou pas selon la condition.

ça ne change pas grand chose pour ce que je veux faire mais peut-être que la commande doit être différente

EDIT : en fait peu import le type de contrôle que je tente dès que c'est issu d'un concaténation j'ai ce message d'erreur.

[Transitoire]

Bonsoir,
Il y a un truc que j'arrive pas à comprendre en fait?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Afficher Carton Jaune Joueur
CartonJ = "lblcj" & MaLigne         'Donc si MaLigne = 4, Vous êtes conscient que CartonJ = lblcj4. si il y a un Label qui s'appelle lblcj4, le code ci dessous doit marcher?
 
    If Cells(MaLigne, 9) = 1 Then
        chkcj = True
        Else
        chkcj = False
    End If
    If Me.chkcj = True Then
        CartonJ.Visible = True
    Else
        CartonJ.Visible = False
    End If

La macro double click, en fait elle sert à prendre des valeurs existantes dans une ligne de la listBox et de les afficher pour un joueur et les réintégrer après modif ou quoi?
Et le carton jaune (ou pas de carton jaune) doit-il s'afficher dans quelle partie, celle du joueur, celle de la liste ou les deux? Parceque suivant le cas, le code n'est pas le même?
Cordialement