Prendre des données dans un tableau avec VBA

Version imprimable

05/05/2015, 14h24
tombain35

Prendre des données dans un tableau avec VBA

Bonjour à tous, je précise d'abord que je débute en VBA et qu'il y a certains points où j'aurais besoin d'aide.

J'ai ma feuille de calcul classique sur excel avec mon tableau où j'effectue des calculs de base ! Dans ce tableau j'ai :

- 5 fréquences différentes
- une valeur mesurée pour chaque fréquence
- une valeur de référence pour chaque fréquence

J'aimerais savoir comment déclaré ce tableau (5 lignes et 3 colonnes) dans VBA pour ensuite faire une boucle de calcul, je bloque sur la partie déclaration donc je ne peux pas savoir si le reste est correct.

En espérant avoir été assez clair.

Merci d'avance pour votre aide

Bonjour,

D'après ce que je comprends, ceci pourrait te donner une piste de départ

Code:

1
2
3
4
5
6
7
8
9
    Dim I As Long, J As Long
    Dim MonTableau As Variant
 
    MonTableau = Range("A2:C6").Value  'en présumant que les données se trouvent dans cette plage
    For I = 1 To UBound(MonTableau)
        For J = 1 To 3
            Debug.Print MonTableau(I, J)  'imprime les résultats dans la fenêtre Exécution
        Next
    Next

05/05/2015, 15h27
tombain35

1 pièce(s) jointe(s)

Merci de ta réponse parmi

Je vous met le lien de mon tableau pour mieux comprendre.

Je dois donc déclarer mes fréquences, mes valeurs corrigées et mes valeurs références.

Le but de ma manœuvre est de faire une boucle en retirant 1 point à chaque valeur de référence pour s'approcher le plus près possible des valeurs corrigées.
Arrêt de la boucle quand la somme des écarts est <= 10 !!!

J'ai eu l'habitude faire des petites macros simplistes durant mes cours mais j'avoue que la ça me parait bien plus complexe et même en écrivant mes calculs sur papier j'ai du mal a voir d'où je dois partir.

Pas simple de débuter :/

Est-ce nécessaire de passer par un tableau ?
Je ne suis pas certain de tout bien comprendre, mais est-ce que ce petit bout de code fait ce que tu veux ?

Code:

1
2
3
4
5
6
7
8
9
    Dim I As Long
    Dim Fini As Boolean
 
    Do Until Fini = True
        For I = 3 To 7
            Range("D" & I) = Range("D" & I) - 1   'réduit de 1 chaque valeur en D
        Next
        If Range("G3") <= 10 Then Fini = True   'si G3 <= 10 on sort
    Loop

06/05/2015, 10h46
tombain35

Merci parmi c'est exactement ce dont j'avais besoin vraiment merci beaucoup :)