Discussion :

[mulderscully]

bonjour à tous,
je débute en vba, donc excusez ma question basique
voilà mon soucis, je veux remplir un tableau avec des données (nombres décimaux) qui sont dans le classeur de la cellule C2 à une cellule cx qui dépend d'une variable.
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub tableaux_notes()
Dim taille_classe As Integer
Dim a As Integer
Dim i As Integer
Dim notes() As Double
 
 
Range("Q9").Select
taille_classe = ActiveCell.Value
a = taille_classe - 1
 
Range("C2").Select
For i = 0 To a Step 1
notes(i) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Next
 
'pour tester
MsgBox notes(1)
 
End Sub

seulement ça bugge à la ligne
notes(i) = ActiveCell.Value

et j'ai beau chercher sur internet, je ne trouve pas pourquoi! lorsque j'utilise activecell.value en dehors des tableaux cela fonctionne correctement, mais ici, rien à faire!
est-ce que quelqu'un pourrait m'expliquer ce qui ne fonctionne pas, svp, car là j'avoue que je suis dessus depuis plusieurs heures à essayer d'autres méthodes, mais je sèche
merci d'avance

mulderscully

[camarchepas]

Bonjour, ca marchera mieux avec ceci en remplaçant "Feuil1" par le nom de la feuille sur laquelle vous travaillez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub tableaux_notes()
    Dim i%, notes() As Double
    ReDim notes(Feuil1.[q9]-1)
    For i = 1 To UBound(notes)
        notes(i) = Feuil1.Cells(2, i + 2)
    Next
End Sub

[mulderscully]

merci beaucoup çamarche pas,

j'ai testé et cela fonctionne très bien.

[camarchepas]

Merci pour le feed back. C'est pas votre code mais cela fait la même chose