Existe t-il une fonction en VBA qui permette de renvoyer (connaitre)
le nombre de dimension d'un tableau.
Dans la n=E9gative, une solution d=E9tourn=E9e.
Je pense notamment =E0 un gestionnaire d'erreur qui se d=E9clenche quand
on essaie de lire une dimension qui n'existe pas. Mais dans ce cas
cela reste du "bricolage".
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Une bidouille, mais une fonction quand même :
Function NbreDim(tablo) On Error Resume Next For i = 1 To 1000 Var = UBound(tablo, i) If Err.Number <> 0 Then NbreDim = i - 1 Exit Function End If Next i End Function
Cordialement. Daniel a écrit dans le message de news:
Bonjour a tous,
Pourriez-vous me renseigner ?
Existe t-il une fonction en VBA qui permette de renvoyer (connaitre) le nombre de dimension d'un tableau. Dans la négative, une solution détournée.
Je pense notamment à un gestionnaire d'erreur qui se déclenche quand on essaie de lire une dimension qui n'existe pas. Mais dans ce cas cela reste du "bricolage".
Avez vous des solutions.
Bonne journée a tous.
Bonjour.
Une bidouille, mais une fonction quand même :
Function NbreDim(tablo)
On Error Resume Next
For i = 1 To 1000
Var = UBound(tablo, i)
If Err.Number <> 0 Then
NbreDim = i - 1
Exit Function
End If
Next i
End Function
Cordialement.
Daniel
<lapie11@gmail.com> a écrit dans le message de news:
903244a7-1170-4532-9a57-3b9e4f19f5b8@w28g2000hsf.googlegroups.com...
Bonjour a tous,
Pourriez-vous me renseigner ?
Existe t-il une fonction en VBA qui permette de renvoyer (connaitre)
le nombre de dimension d'un tableau.
Dans la négative, une solution détournée.
Je pense notamment à un gestionnaire d'erreur qui se déclenche quand
on essaie de lire une dimension qui n'existe pas. Mais dans ce cas
cela reste du "bricolage".
Bonjour. Une bidouille, mais une fonction quand même :
Function NbreDim(tablo) On Error Resume Next For i = 1 To 1000 Var = UBound(tablo, i) If Err.Number <> 0 Then NbreDim = i - 1 Exit Function End If Next i End Function
Cordialement. Daniel a écrit dans le message de news:
Bonjour a tous,
Pourriez-vous me renseigner ?
Existe t-il une fonction en VBA qui permette de renvoyer (connaitre) le nombre de dimension d'un tableau. Dans la négative, une solution détournée.
Je pense notamment à un gestionnaire d'erreur qui se déclenche quand on essaie de lire une dimension qui n'existe pas. Mais dans ce cas cela reste du "bricolage".
Avez vous des solutions.
Bonne journée a tous.
lapie11
On 19 nov, 12:20, "Daniel.C" wrote:
Bonjour. Une bidouille, mais une fonction quand même :
Exact, de plus une fonction qui fonctionne à merveille .............
Merci beaucoup Daniel
Function NbreDim(tablo) On Error Resume Next For i = 1 To 1000 Var = UBound(tablo, i) If Err.Number <> 0 Then NbreDim = i - 1 Exit Function End If Next i End Function
Cordialement. Daniel
On 19 nov, 12:20, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonjour.
Une bidouille, mais une fonction quand même :
Exact, de plus une fonction qui fonctionne à merveille .............
Merci beaucoup Daniel
Function NbreDim(tablo)
On Error Resume Next
For i = 1 To 1000
Var = UBound(tablo, i)
If Err.Number <> 0 Then
NbreDim = i - 1
Exit Function
End If
Next i
End Function
Bonjour. Une bidouille, mais une fonction quand même :
Exact, de plus une fonction qui fonctionne à merveille .............
Merci beaucoup Daniel
Function NbreDim(tablo) On Error Resume Next For i = 1 To 1000 Var = UBound(tablo, i) If Err.Number <> 0 Then NbreDim = i - 1 Exit Function End If Next i End Function