Discussion :

[Mr l'Ashanti]

bonsoir à vous.
je souhaiterais créer une petite application dans le cadre des calculs des notes trimestrielles.

j'ai 4 tableaux s'affichant cote à cote sur une meme feuille. dans mon userform j'ai une listbox et 4 boutons( 1er trim, 2e trim, 3e trim et 4e trim) qui ont les memes rôles: afficher les données dans la listbox ou valider les resultats.
ceci etant je voudrais qu'en affichant les données d'un tableau correspondant au bouton actif dans la listbox les 3 autres boutons non sélectionnés deviennent inactifs et si l'on clique une seconde fois sur le même bouton ,si les champs des notes ne sont pas remplis (car nous devons cliquer dans la listbox pour que les champs des notes se remplissent) alors les boutons deviennent actifs. donc voila un peu la difficulté
merci tous ceux qui se pencheront vers moi

[Mr l'Ashanti]

l'idée me vient en tête mais comment le transposer
j'ai écris ce qui a l'air d'être exact mais débogage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim tbl
 tbl = [Tableau1]
 
 If Me.ListBox1.List = tbl Then
 trim_2.Enabled = False
  trim_3.Enabled = False
   trim_4.Enabled = False
 
   Else
        trim_2.Enabled = True
    trim_3.Enabled = True
   trim_4.Enabled = True
End If

[Mr l'Ashanti]

Après plusieurs reflexions et une remarque sur un autre sujet (" cells. unselect") la methode la plus simple est de sélectionner une autre cellule pour désélectionner la cellule ou le tableau actif. juste une petite mémoire et le code est trouvée

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
Private Sub trim_1_Click()
With Sheets("rapport")
 
 If N1 <> "" Or N2 <> "" Or N3 <> "" Or N4 <> "" Then
 If [tableau1].Select Then
     trim_2.Enabled = True
      trim_3.Enabled = True
       trim_4.Enabled = True
 
 
.Range("a" & Ligne.Caption) = Me.T_nom
.Range("b" & Ligne.Caption) = Me.T_classe
.Range("c" & Ligne.Caption) = Me.T_sexe
.Range("d" & Ligne.Caption) = Me.N1
.Range("e" & Ligne.Caption) = Me.N2
.Range("f" & Ligne.Caption) = Me.N3
.Range("g" & Ligne.Caption) = Me.N4
 
 End If
 Sheets("rapport").Range("A1").Select
 
 ElseIf Range("A1").Select Then
        trim_2.Enabled = False
    trim_3.Enabled = False
   trim_4.Enabled = False
   End If
End With
 
 
Dim f
 Set f = Sheets("rapport")
ListBox1.ColumnCount = f.Columns.Count
ListBox1.BoundColumn = f.Columns.Count
Me.ListBox1.List = Range(f.[A1], f.[L6500].End(xlUp)).Value