userform et checkbox ... suite et fin (j'espère !!!)

Question

Voilà, apres mon 1er probleme resolu, en voici un dernier ...

Maintenant je voudrais pouvoir effacer de mon tableau la valeur associée à mon checkbox dans le cas ou celui ci est coché pui décoché.

Pour moi il me semble qu'il faut que je recherche l'endroit dans mon tableau ou j'ai ma valeur à retirer, ensuite, il faut que je décale mon tableau ...

J'ai essayé cela mais sans succès .....

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
tableau1(indice1) = "janvier"
ReDim Preserve tableau1(UBound(tableau1) + 1)
indice1 = indice1 + 1
End If
If CheckBox1.Value = False Then
For i = 0 To indice1
If tableau1(i) = "janvier" Then
For j = i To indice1
tableau1(j) = tableau1(i + 1)
i = i + 1
Next j
End If
Next i
End If
End Sub

Merciiiiiii encore beaucoup beaucoup !

Guitch.

econs · Answer

Ce bout de code est valable pour tout type de tableau.
Si t est ton tableau et ma_valeur la valeur que tu souhaites effacer

Dim i as Long
Dim j as Long
For i=Lbound(t) To UBound(t)
If t(i)=ma_valeur Then 'On recherche la valeur à effacer
Exit For
End If
Next i

For j=i to UBound(t)-1
t(j)=t(j+1) 'Décalage
Next j
t(UBound(t))="" 'Rien dans la dernière case du tableau


Manu

guitch1101 · Answer

merci pour l'explication, cependant je n'arrive toujours pas à le faire fonctionner dans mon travail ...

A savoir que le problème que je rencontre maintenant, c'est que si par exemple, je coche le mois de janvier, puis je le décoche, et je coche le mois de fevrier, et bien dans mon tableau, je n'ai plus rien .... ?????????

Voici mon code modifié que pour mon mois de janvier :

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        tableau1(indice1) = "janvier"
        ReDim Preserve tableau1(UBound(tableau1) + 1)
        indice1 = indice1 + 1
    End If
    If CheckBox1.Value = False Then
        For i = 0 To indice1 - 1
            If tableau1(i) = "janvier" Then
                Exit For
            End If
        Next i
        
        For j = i To UBound(tableau1) - 1
            tableau1(j) = tableau1(j + 1)
        Next j
        tableau1(UBound(tableau1)) = ""
    End If
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2.Value = 1 Then
        tableau1(indice1) = "fevrier"
        ReDim Preserve tableau1(UBound(tableau1) + 1)
        indice1 = indice1 + 1
    End If
End Sub

merciii encore :)

Guitch

Userform et checkbox ... suite et fin (j'espère !!!)

2 réponses

Discussions similaires