Les variables tableau

Le 17/01/2013 à 00:46

Bonjour j'ai un soucis dans le code ci=dessous je suis un peu perdu avec les variable tableau. Seul le MsgBox nnoComplet(3) contient le bon contenu . Les 3 précédentes sont vide... Je nage

Private Sub BTN_recherche_Click()
Dim recherche As String
Dim compteur As Integer
Dim i As Integer
Dim dercell As Integer
Dim nnoComplet() As String, j As Integer
'on verifie que la saisie utilisateur soit bien des chiffres
If (IsNumeric(TB_nno)) Then
        'Si la saisie n'est pas de 4 chiffres
        If (Len(TB_nno) < 4 Or Len(TB_nno) > 4) Then
                MsgBox ("Attention, merci de saisir les 4 derniers chiffres de votre NNO")
                Else
                'sinon c'est que la recherche est bien de 4 chiffres
                recherche = TB_nno
                'on recherche la derniere cellule de la colonne
                dercell = Range("A1").End(xlDown).Row
                For i = 1 To dercell
                    'Si la recherche correspond au 4 dernier de la cellule en cours d'analyse
                    If Right(Range("A" & i).Value, 4) Like recherche Then
                        'on incremente le nombre de recherche
                        ReDim nnoComplet(compteur)
                        nnoComplet(compteur) = Range("B" & i)
                        compteur = compteur + 1
                    End If
                Next
                    'Vérification du nombre de nno trouvé
                    If (compteur = 0) Then
                        MsgBox ("Désolé mais je ne trouve aucun NNO correspondant a votre recherche")
                    Else
                        UF_recherche_nno.Hide
                    End If
                    MsgBox nnoComplet(0)
                    MsgBox nnoComplet(1)
                    MsgBox nnoComplet(2)
                    MsgBox nnoComplet(3)
                'UF_multiple_nno.Show
        End If
    Else
    MsgBox ("Attention, seul les chiffres sont autorisés")
End If
End Sub

Le 17/01/2013 à 01:44

Bonjour

sans test (pas de fichier)

Utilises