[VBA-E] Problème de tableau dans macro VBA

Bonjour,

j'ai fait un petit code qui permet de repartir des valeurs sur plusieurs colonnes suivant le poids d'autres colonnes.

Mon problème est que je n'arrive pas à récupérer une selection non contigue de cellules dans excel.

TableauS = Range(Source).Value

Ou Source = (par exemple) : "Feuil1!$K$29;Feuil1!$K$31"

Ensuite dans TableauS je n'obtient pas les valeurs des deux cellules séléctionnés alors que lorsque je selectionne deux ou plus de cellules contigues je n'ai pas de problème.

Avez vous une idée pour résoudre mon problème???

Merci.

Ceci t'irait peut-être mieux.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub toto() Dim tblData() As Integer Dim cellule As Range, i As Integer i = 0 For Each cellule In Feuil1.Range("A2:A10") ReDim Preserve tblData(i) tblData(i) = cellule.Value i = i + 1 Next MsgBox tblData(3) End Sub

---

et tu ve récupérer quoi avec ce code ? la valeur de la 1° cellule ..?

Code:

---

TableauS = Range("Feuil1!$K$29,Feuil1!$K$31").Value

---

Question au passage... On peut assigner un Tableau directement à un Range?

Code:

---

1 2 3

Tab1 = Feuil1.Columns(3) 'un peu inutile mais ca l'est plus : Tab2 = Feuil1.Range("A3:A100")

---

En fait j'ai créé une petite fenêtre avec laquelle je récupère via un refEdit des cellules séléctionnés. Lorsque ces cellules sont contigues j'ai bien un tableau qui est créé avec la ligne de code:

TableauS = Range(Source).Value

Source est le nom de mon refEdit.

En revanche lorsque la selection dans mon refedit ne presente pas des cellules contigues, mon tableauS ne se remplie pas comme je le voudrais avec toutes les valeurs des cellules selectionnés.

En fait le code fourni par zaza... m'irait presque si au lieu de "A2:A10" on pouvait utiliser "A2;A10;B8" par exemple. Si je reprend le code de zaza... il fonctionne bien mais tout comme le mien il faut des cellules qui sont toutes les unes apres les autres...

Merci pour votre aide en tous cas, c'est très sympa.

à priori un probléme de ; et , ..... bon j'ai pas trouvé de solution plus élégante que le replace :

Code:

---

1 2 3 4 5 6 7 8 9

Dim r As Range If RefEdit1 <> "" Then Set TableauS = Range(Replace(RefEdit1.Value, ";", ",")) For Each r In TableauS MsgBox r.Address & " : " & r.Value Next End If

---

Merci beaucoup, j'avais testé avec le replace mais je n'avais pas mis de "set"...


Merci encore.

Si j'ai encore un problème je reviens vous voir.

Ciao Ciao.:lol:

Bonjour, je suis toujours sur le même code qui marche bien sauf lorsque l'utilisateur selectionne une seule case avec le refedit, la j'ai une erreur de type incompatible.

Une idée?

Voici mon code: (ca plante sur le message box)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim tableauS As Variant   If Source <> "" Then   Set T = Range(Replace(Source.Value, ";", ","))   End If   tableauS = T   MsgBox ("coucou" & UBound(T, 2))

---

http://www.developpez.net/forums/sho...d.php?t=163883