Bonjour,

j'ai le bout de code suivant et la fenêtre s'affiche toujours malgrès que la valeur "nfich" soit à 0 ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
        If nfich = 0 Then
            MessageBox.Show("Aucune collection n'est ouverte. Dans menu choisissez : Collections >Ouvrir une collection", "ATTENTION", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Me.Visible = False
            Exit Sub
 
        Else
        For j = 1 To 16
            LSTliste.Row(k).Height = 40
            LSTliste.Cell(0, j).ForeColor = Color.Red
            LSTliste.Col(j).Width = larg(j)
            LSTliste.Cell(0, j).Text = titre(j)
 
        Next