affecter le contenu d'une variable tableau à un range et vice-versa
3 réponses
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
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
Bonsoir,
Dim b(1 To 5, 1 To 1)
For i = 1 To 5
b(i, 1) = i * 3
Next i
[A1:A5] = b
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
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
Bonsoir,
Dim b(1 To 5, 1 To 1) For i = 1 To 5 b(i, 1) = i * 3 Next i [A1:A5] = b
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?
Bonsoir,
Dim b(1 To 5, 1 To 1)
For i = 1 To 5
b(i, 1) = i * 3
Next i
[A1:A5] = b
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?
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
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 <"vball1(supprimer)"@free.fr> wrote:
Bonsoir,
Dim b(1 To 5, 1 To 1) For i = 1 To 5 b(i, 1) = i * 3 Next i [A1:A5] = b
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 -
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 <"vball1(supprimer)"@free.fr> wrote:
Bonsoir,
Dim b(1 To 5, 1 To 1)
For i = 1 To 5
b(i, 1) = i * 3
Next i
[A1:A5] = b
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 -
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 <"vball1(supprimer)"@free.fr> wrote:
Bonsoir,
Dim b(1 To 5, 1 To 1) For i = 1 To 5 b(i, 1) = i * 3 Next i [A1:A5] = b
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 -