Affecter ranges non-contiguës au tableau

[julia_kap]

Bonjour. Je voudrais affecter les valeurs des cellules dans un MyRange = Range("B2, B9:B40, C2:M2") ou la MyRange = Union(Range("B2"), Range("B9:B40"), Range("C2:M2")) au teableau(matrice) unidimensionnel MyTableau(). Mon code ci-dessous (ainsi que les autres que j'ai tester) ne marche pas :

Sub CreerTableau()
Dim MyTableau()
Dim MyRange As Range, i As Integer
MyRange = Union(Range("B2"), Range("B9:B40"), Range("C2:M2"))
i = 1
For Each cell In MyRange
MyTableau(i) = cell.Value
i = i + 1
Next cell
End Sub

Merci de votre aide

 

[JNP]

Re : Affecter ranges non-contiguës au tableau

Bonjour Julia Kap et bienvenue 🙂,

Sub CreerTableau()
Dim MyTableau()
Dim MyRange As Range, i As Integer, cell As Range
[COLOR=red][B]Set[/B][/COLOR] MyRange = Union(Range("B2"), Range("B9:B40"), Range("C2:M2"))
i = [COLOR=red][B]0[/B][/COLOR]
For Each cell In MyRange
[COLOR=red][B]ReDim MyTableau(i + 1)[/B][/COLOR]
MyTableau(i) = cell.Value
i = i + 1
Next cell
End Sub

devrait fonctionner.
Bon courage 😎

 

[tototiti2008]

Re : Affecter ranges non-contiguës au tableau

Bonjour Julia, Bonjour JNP,

il manquerait pas un Preserve dans ton REDIM ?

Sub CreerTableau()
Dim MyTableau()
Dim MyRange As Range, i As Integer, cell As Range
Set MyRange = Union(Range("B2"), Range("B9:B40"), Range("C2:M2"))
i = 0
For Each cell In MyRange
ReDim [COLOR=red]Preserve[/COLOR] MyTableau(i)
MyTableau(i) = cell.Value
i = i + 1
Next cell
End Sub

Edit : ça m'est arrivé plus souvent qu'à mon tour 😉
Bonne soirée 🙂

 

[JNP]

Re : Affecter ranges non-contiguës au tableau

Re 🙂,

il manquerait pas un Preserve dans ton REDIM ?

Shame on me 😱...
Merci TotoTiti 😉
Bonne soirée 😎

 

[julia_kap]

Re : Affecter ranges non-contiguës au tableau

JNP, tototiti2008,

Grand merci de votre aide, ca fonctionne tres bien.

Bonne journée a vous