Charger un tableu dynamique dans une procedure (byref)

Commenter

Contenu du snippet

Apres avoir lu la litterature sur le site concernant le passage de tableaux a une procedure je pense qu'il faut remettre l'eglise au milieu du village.
En fait tout tient dans la definition des variables.

it's so simple

P.S. desole pour les accents mais je n'ai qu'un clavier QWERTY

Source / Exemple : 


Option Explicit
'FORM
Private Sub Form_Load()
  'Definir mon tableau de caracteres
  Dim MonTableau() As String
  'variable pour les besoins de la boucle vTmp
  Dim vTmp As Variant
  Dim Msg As String
  
  'remplir mon tableau en fonction de la procedure
  Remplir MonTableau
  
  'afficher le contenu de mon tableau dans un message box
  For Each vTmp In MonTableau
    Msg = Msg + vTmp + vbLf
  Next vTmp
  
  MsgBox Msg
  
  End 'That's all
End Sub

'PROCEDURE
'le type doit etre obligatoirement variant car
'un tableau de string n'est pas de type string
Sub Remplir(MonTableauProcedure As Variant) 'byRef par defaut
  Dim I As Long 'Index
  For I = 0 To 10
    'redimentionner le tableau et conserver les valeurs deja contenues
    ReDim Preserve MonTableauProcedure(I)
    'affecter un caractere de A a .. X fonction de l'index I
    MonTableauProcedure(I) = Chr(Asc("A") + I)
  Next I
End Sub

Conclusion :


Si vous pensez que ce prog est inutile expliquez-vous.
Allez-y vous pouvez charger la mule...
mais c'est du beton.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (zoubi57)