affecter le contenu d'une variable tableau à un range et vice-versa

Le
vincent
Bonsoir à tous et toutes
Pardonnez ma question de béotien mais je cherche à affecter le contenu
d'une variableau tableau à une série de cellules range de la feuille
active le code suivant ne donne pas le résultat escompté:

Dim mavar(5) As Single

Sub affectation()
Range("mavariable").Value = 170860
For i = 1 To 5
mavar(i) = i * 3
Next
Range("a1:a5") = mavar
End Sub


merci de votre adide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4639461
Bonsoir,

Dim b(1 To 5, 1 To 1)
For i = 1 To 5
b(i, 1) = i * 3
Next i
[A1:A5] = b

ou

Dim b(1 To 5)
For i = 1 To 5
b(i) = i * 3
Next i

For i = 1 To 5
Cells(i, 1) = b(i)
Next i

http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip

JB
http://boisgontierjacques.free.fr/

On 2 août, 21:57, vincent
Bonsoir à tous et toutes
Pardonnez ma question de béotien mais je cherche à affecter le contenu
d'une variableau tableau à une série de cellules range de la feuille
active le code suivant ne donne pas le résultat escompté:

Dim mavar(5) As Single

Sub affectation()
Range("mavariable").Value = 170860
For i = 1 To 5
mavar(i) = i * 3
Next
Range("a1:a5") = mavar
End Sub

merci de votre adide


supprimer
Le #4639341
Bonsoir,

Dim b(1 To 5, 1 To 1)
For i = 1 To 5
b(i, 1) = i * 3
Next i
[A1:A5] = b

ou

Dim b(1 To 5)
For i = 1 To 5
b(i) = i * 3
Next i

For i = 1 To 5
Cells(i, 1) = b(i)
Next i

http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip

JB
http://boisgontierjacques.free.fr/

On 2 août, 21:57, vincent
Bonsoir à tous et toutes
Pardonnez ma question de béotien mais je cherche à affecter le contenu
d'une variableau tableau à une série de cellules range de la feuille
active le code suivant ne donne pas le résultat escompté:

Dim mavar(5) As Single

Sub affectation()
Range("mavariable").Value = 170860
For i = 1 To 5
mavar(i) = i * 3
Next
Range("a1:a5") = mavar
End Sub

merci de votre adide



Merci le tutoriel

http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip répond
parfaitement à mon attente.
Question suppléméntaire:
comment affecter à un tableau le résultat d'une formule matricielle, y
a-t'il une syntaxe particulière?


JB
Le #4639331
Function NomsTousOnglets() ' fonction matricielle
Application.Volatile
Dim temp()
ReDim temp(1 To Sheets.Count)
j = 1
For i = 1 To Sheets.Count
temp(j) = Sheets(i).Name
j = j + 1
Next i
NomsTousOnglets = Application.Transpose(temp)
End Function

Sub essai()
a = NomsTousOnglets()
For i = LBound(a) To UBound(a)
MsgBox a(i, 1)
Next i
End Sub

JB


On 2 août, 23:33, supprimer



Bonsoir,

Dim b(1 To 5, 1 To 1)
For i = 1 To 5
b(i, 1) = i * 3
Next i
[A1:A5] = b

ou

Dim b(1 To 5)
For i = 1 To 5
b(i) = i * 3
Next i

For i = 1 To 5
Cells(i, 1) = b(i)
Next i

http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip

JB
http://boisgontierjacques.free.fr/

On 2 août, 21:57, vincent
Bonsoir à tous et toutes
Pardonnez ma question de béotien mais je cherche à affecter le con tenu
d'une variableau tableau à une série de cellules range de la feuil le
active le code suivant ne donne pas le résultat escompté:

Dim mavar(5) As Single

Sub affectation()
Range("mavariable").Value = 170860
For i = 1 To 5
mavar(i) = i * 3
Next
Range("a1:a5") = mavar
End Sub

merci de votre adide



Merci le tutorielhttp://boisgontierjacques.free.fr/fichiers/jb-tableaux.z ip répond
parfaitement à mon attente.
Question suppléméntaire:
comment affecter à un tableau le résultat d'une formule matricielle , y
a-t'il une syntaxe particulière?- Masquer le texte des messages préc édents -

- Afficher le texte des messages précédents -




Publicité
Poster une réponse
Anonyme