[VBA] Dimensionnement de tableaux

[deniooo]

Bonjour à tous !

Voila j'ai le code suivant, et à la compilation il me sort l'erreur :

         Tableau déja dimensionné

en me surlignant le bout de code que j'ai mis en gras

Sub test()
    
    Dim i As Integer, j As Integer
    Dim VarTab(1 To 2, 1 To 1) As String
    Set plage = ActiveSheet.UsedRange.Columns(1).Cells
    
    For Each cel In plage
        parcours = 1
        n = 0
        bernard = cel.Offset(0, 6).Value
        Do Until parcours > UBound(VarTab, 2)
            If bernard = VarTab(1, parcours) Then
                VarTab(2, parcours) = VarTab(2, parcours) + 1
            Else
                n = n + 1
                If n = UBound(VarTab, 2) Then
                    ReDim Preserve VarTab(2, UBound(VarTab, 2) + 1)
                    VarTab(1, n) = bernard
                    VarTab(2, n) = 1
                End If
            End If
            parcours = parcours + 1
        Loop
    Next

End Sub

Je m'essaye aux tableaux, docn je ne sais pas encore bien les maitriser, à quoi est dûe cette erreur ?!

(je joint un fichier exemple)

 

[Pierrot93]

Re : [VBA] Dimensionnement de tableaux

Bonjour Denio

tu ne peux utiliser l'instruction "redim" si les dimensions de ton tableau sont déjà déclarées, cf aide vba ci dessous :

ReDim permet de dimensionner et de redimensionner un tableau dynamique ayant déjà été déclaré de manière formelle par le biais d'une instruction Private, Public ou Dim suivie de parenthèses vides (sans indices de dimension).

déclare ton tableau comme suit :

Dim VarTab() As String

pas regardé le reste...

bon après midi
@+

 

[pierrejean]

Re : [VBA] Dimensionnement de tableaux

bonjour deniooo

Salut Pierrot

C'est une particularité particulierement agaçante des tableaux

dans le code , ne pas oublier le 1er ReDim si necessaire

  ReDim VarTab(1 To 2, 1 To 1) As String

 

[deniooo]

Re : [VBA] Dimensionnement de tableaux

Voila le code que je viens de modifier, et là BIM, excel plante et windows va suivre je pense, l'explorer est déja tombé ! xD

Sub test()
    
    Dim i As Integer, j As Integer
    Dim VarTab() As String
    Set plage = ActiveSheet.UsedRange.Columns(1).Cells
    ReDim VarTab(1 To 2, 1 To 1)
    
    For Each cel In plage
        parcours = 1
        n = 0
        bernard = cel.Offset(0, 6).Value
        MsgBox (UBound(VarTab, 2))
        
        Do Until parcours > UBound(VarTab, 2)
            If bernard = VarTab(1, parcours) Then
                VarTab(2, parcours) = VarTab(2, parcours) + 1
            Else
                n = n + 1
                If n = UBound(VarTab, 2) Then
                    ReDim Preserve VarTab(2, 1 To (UBound(VarTab, 2) + 1))
                    VarTab(1, n) = bernard
                    VarTab(2, n) = 1
                End If
            End If
            parcours = parcours + 1
        Loop
    Next
 
End Sub

une idée de ce qu'il ce passe ?

(Merci pour vos explications !)

 

[pierrejean]

Re : [VBA] Dimensionnement de tableaux

Re

Pas tout étudié

mais je crois bien que je l'avais prévu

voir post juste au dessus

 

[deniooo]

Re : [VBA] Dimensionnement de tableaux

J'ai bien mon premier redim,
aprés tests, je m'apperçois que lorsque je met

ReDim Preserve VarTab(1 To 2, 1 To (UBound(VarTab, 2) + 1))

Excel plante lamentablement.

Je ne pige pas pourquoi, peut-être la syntaxe

1 To (UBound(VarTab, 2) + 1

.

Une idée ?!

 

[Eric 45]

Re : [VBA] Dimensionnement de tableaux

Bonjour à tous
Bonjour deniooo

Si tu déposais ton fichier, je pense que l'on pourrait t'aider plus facilement. Attention aux données perso

Eric

 

[deniooo]

Re : [VBA] Dimensionnement de tableaux

Et un fichier qui fait planter un !

 

[BOISGONTIER]

Re : [VBA] Dimensionnement de tableaux

Bonjour,

Qq exemples simples sur les tableaux

http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip

JB

 

[deniooo]

Re : [VBA] Dimensionnement de tableaux

Merci !

Je viens de comprendre mon erreur, sur la premiére valeur trouvée je créait un tableau infini parce que j'ai passé en paramétre la taille dynamique du tableau.
Avec le code suivant tout fonctionne !

Sub test()
    
    Dim i As Integer, j As Integer
    Dim VarTab() As String
    Set plage = ActiveSheet.UsedRange.Columns(1).Cells
    ReDim VarTab(1 To 2, 1 To 1)
    
    For Each cel In plage
        parcours = 1
        n = 0
        bernard = cel.Offset(0, 6).Value
        FinTab = UBound(VarTab, 2)
        
        Do Until parcours > FinTab
            If bernard = VarTab(1, parcours) Then
                If bernard = "" Then
                    VarTab(2, parcours) = 1
                Else
                    VarTab(2, parcours) = VarTab(2, parcours) + 1
                End If
            Else
                n = n + 1
                If n = UBound(VarTab, 2) Then
                    ReDim Preserve VarTab(1 To 2, 1 To (n + 1))
                    VarTab(1, n) = bernard
                    VarTab(2, n) = 1
                End If
            End If
            parcours = parcours + 1
        Loop
    Next
    For i = 1 To FinTab
        Cells(2, i + 9).Value = VarTab(1, i)
        Cells(3, i + 9).Value = VarTab(2, i)
    Next
End Sub

Merci pour l'attention que vous y avez porté ! (encore une fois )

edit : condition si bernard est vide + affichage