Discussion :

[Chouls]

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.

[zazaraignée]

Ceci t'irait peut-être mieux.

Code :

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

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

[SfJ5Rpw8]

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

Code :

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

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

[Vesta]

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

Code :

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

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

[Chouls]

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.

[Chouls]

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.

[SfJ5Rpw8]

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

Code :

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

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

[Chouls]

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.

[Chouls]

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 :

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

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))

[Chouls]

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