remplir un tableau en vbaRésolu

Question

Bonjour, je souhaite remplir un tableau sur la feuille4 allant de B8-M8 à B41-M41 par des valeur que je calcule dans 1 macro.
En fait je veux affecter mes calculs à ce tableau mais je ne sais pas comment on le définit en VBA.

Merci d'avance

jrivet · Accepted Answer

Salut,


Dim MonTableau(1 To 408) As String (ou as integer, ...)










@+, Julien
Pensez:

jrivet · Answer

Salut,
Ceci nous donne un tableau de 34 * 12 = 408 elements.
Si ce tableau est deja rempli il en te reste plsu que a faire une boucle qui increment les numero de ligne et de colonne pour te permettre de rempli tes cellules.

Je ne vois pas tres bien ou se toruve ton problème.

@+, Julien
Pensez:

tortuegenie · Answer

Ma question se trouve là, comment créer ce tableau dans la macro???

tortuegenie · Answer

Ok merci bcp mais pour lui dire de commercer à la case B8 de la feuille 4 faut bien que je rajoute qq chose non????

cs_MPi · Answer

Salut,

Ça peut être quelque chose comme ça


Dim Ligne as integer, Colonne as Integer


For ligne =  8 to 41  'lecture de chaque ligne

For Colonne = 2 to 13   'lecture de chaque colonne

    sheets("Feuil4").cells(ligne, colonne) = MacroCalculerMaValeuràMettre

Next

Next


Si tu utilises un tableau comme  jrivet  te conseillait, il faut que tu boucles ton tableau

For I  = 0 to UBound(MonTableau) 'lecture de chaque élément du tableau

Là tu détermines la cellule où copier le résultat pour ne pas déborder


Ça pourrait aussi être une Function qui retourne la valeur directement
dans la cellule. Ça dépend du genre de calculs que tu as à faire et si
la cellule à quelque chose à voir avec ce calcul... À toi de voir

Ta Function doit se trouver dans un Module et retourner le type de données que tu veux y inscrire

Exemple:

Dans B8, tu inscris 

=MaFonction(15,5)  ' Le nombre de paramètres dépend des besoins

                               
' ici je veux multiplier ces 2 chiffres


Dans le module

Function MaFonction(Val1,Val2) as Integer

      MaFonction = Val1 * Val2  'retourne le résultat de la multiplication des 2 valeurs

End Function

MPi

Remplir un tableau en vba

5 réponses

Votre réponse