Bonjour à tous !
Voila j'ai le code suivant, et à la compilation il me sort l'erreur :
en me surlignant le bout de code que j'ai mis en gras
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)
Voila j'ai le code suivant, et à la compilation il me sort l'erreur :
Code:
Tableau déja dimensionné
Code:
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)