Discussion :

[Akah94]

Bonjour, j'ai ma listbox1 avec plusieurs lignes d'informations, j'aimerai savoir si il est possible de faire en sorte que ma première ligne qui est l'intitulé de chaque chiffre ne soit pas sélectionnable ? ou alors lorsque je sélectionne celui-ci un message s'affiche me disant de le retirer ?



Là par exemple quand je vais cliquer sur Bouttoncommand1 il va me faire mes calculs comme il faut, mais si sans faire gaffe je clique sur la ligne 1 où y'a les titres (je ne veux pas retirer les titres) que le programme ne se mette pas en erreur serait un top.

j'ai ce code pour le moment qui ne marche pas pour ce que j'ai envie de faire..

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
Private Sub CommandButton1_Click()
 
 
 
Dim g As Byte
Dim Total As Long
Dim total1 As Long
Dim total2 As Integer
Dim val As Integer
 
 
val = ListBox1.ListIndex
            If val = 0 Then
            MsgBox ("Vous ne pouvez pas selectionné la première ligne !")
 
 
 
    For g = 0 To ListBox1.ListCount - 1
 
 
            If ListBox1.Selected(g) = True Then
 
 
 
 
 
 
            Total = Total + ListBox1.Column(0, g)
            Sheets("feuil1").Range("BB2") = Total
 
            total1 = total1 + ListBox1.Column(1, g)
            Sheets("feuil1").Range("BC2") = total1
 
            total2 = total2 + ListBox1.Column(8, g)
            Sheets("feuil1").Range("BD2") = total2
          End If
    Next g
 
 
 
 
 
   Dim n As Long, kR As Long
   kR = 0
   Sheets("Feuil1").Range("BM1:CM65536") = ""
 
   For n = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(n) Then
         Debug.Print n, ListBox1.List(n)
         '--- copier la ligne n + k, k étant le décalage entre n° ligne feuille et n° dans liste
         '--- exemple: k=1 => si ligne 1 séletionnée dans ListBox1, copier la ligne 2 de la feuille A dans feuille B
         kR = kR + 1
         Range(Cells(n + 1, 12), Cells(n + 1, 26)).Copy Sheets("Feuil1").Cells(kR, 65)
      End If
   Next
End Sub