Discussion :

[Chouls]

Bonjour,

j'ai écrit ce code (avec votre aide):

Code :

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

1
2
3
4
5
6
7
 If Source <> "" Then  --> Source est de type: "Feuil1!$A$8"
 
   Set T = Range(Replace(Source.Value, ";", ","))
 
 End If
 
MsgBox ("coucou" & UBound(T, 2))

Cependant lorsqu'il n'y a qu'une valeur de selectionnée je me retrouve avec un message d'erreur, comment puis je faire pour que cela marche? Car j'ai besoin de la taille de la selection.

Merci.

[ouskel'n'or]

Qu'entends-tu par

Cependant lorsqu'il n'y a qu'une valeur de selectionnée je me retrouve avec un message d'erreur, comment puis je faire pour que cela marche? Car j'ai besoin de la taille de la selection

... de la taille du tableau ? Sur quelle ligne, l'erreur ?
Donne-nous un exemple de valeur de "source"

A+

[Chouls]

J'ai une erreur d'execution 13. Incompatibilité de type.

Je voudrais pouvoir récupérer le nombre de ligne et de colonne du tableau T.

La selection de source se fait avec un refedit et pose problème lorsqu'une seule cellule est selectionnée.

Source = "Feuil1!$A$8"

Merci de ton aide.

[ouskel'n'or]

Je n'ai pas replace (vba97) mais pour le reste, tu as un pb dans ton code

Code :

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

1
2
3
4
5
6
7
Source = Range("Feuil1!$A$8").Address
If Source <> "" Then
    Valeur = Range(Source).Value
    'Set T = Replace(Valeur, ";", ",")
End If
 
MsgBox ("coucou" & UBound(T, 2))

Sinon, tu dois instancier Source pour pouvoir dire "Source = Range("Feuil1!$A$8")
Tu dis

A+

[Chouls]

En fait source c'est le nom de mon refedit, donc je ne m'en occupe pas, mon code marche sauf si je ne selectionne qu'une seule case. J'ai l'impression que lorsqu'il n'y a qu'une case il ne le considere plus comme un tableau!!!
Je voudrais pouvoir savoir que mon tableau est de taille (1,1)!!!
Merci de ton aide.

[ouskel'n'or]

Alors tu devras dimensionner ton tableau au départ, analyser les valeurs de ta cellule dans une boucle en fonction du nombre de ";" et redimensionner pour chacun d'eux avec redim preserve.
Je n'ai jamais entendu parler d'un code permettant d'avoir un tableau à deux dimensions avec ta syntaxe Mais si ça existe, je serai ravi d'apprendre

Bonne chance

[SfJ5Rpw8]

Bonjour,

j'ai écrit ce code (avec votre aide):

Code :

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

1
2
3
4
5
6
7
 If Source <> "" Then  --> Source est de type: "Feuil1!$A$8"
 
   Set T = Range(Replace(Source.Value, ";", ","))
 
 End If
 
MsgBox ("coucou" & UBound(T, 2))

Cependant lorsqu'il n'y a qu'une valeur de selectionnée je me retrouve avec un message d'erreur, comment puis je faire pour que cela marche? Car j'ai besoin de la taille de la selection.

Merci.

ben si je regarde ton code T n'est pas un tableau mais un range... , utilise les propriétés d'un range !!!

Code :

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

MsgBox t.Rows.Count & " --- " &  t.Columns.Count

[Chouls]

Je n'ai tojours pas trouvé de réponse "simple", j'ai bidouillé quelque chose qui marche mais ce n'est pas forcément génial.

Merci de votre aide.

[AlainTech]

Plutôt que de passer par un tableau, je te conseille d'utiliser un Range.

Petit exemple qui marche à tous les coups:

Code :

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

1
2
3
4
5
6
Private Sub cmdStart_Click()
  Dim rSelection As Range
  MsgBox RefEdit1.Text
  Set rSelection = Range(Replace(RefEdit1.Text, ";", ","))
  MsgBox rSelection.Count
End Sub

Si tu veux parcourir toutes les cellules de cette sélection:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmdStart_Click()
  Dim rSelection As Range
  Dim rCell As Range
  MsgBox RefEdit1.Text
  Set rSelection = Range(Replace(RefEdit1.Text, ";", ","))
  MsgBox rSelection.Count
  For Each rCell In rSelection
    MsgBox rCell.Address & ": " & rCell.Value
  Next rCell
End Sub