Discussion :

[luksvibes]

Bonsoir,

Je lance une macro a partir d'un userform.
Dans ce userform j'ai une boite de texte où je rentre un chiffre et quand j'appuie sur le bouton ca me lance la macro.
Macro("Textbox")
Par exemple si je rentre 30 dans le texte, j'appuierai sur le bouton et ça me lance la macro Macro("30").
Je voulais que dans la boite de texte, je puisse entrer "30-35;40-41" par exemple
et que ça me lance :

Code :

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

1
2
3
4
5
6
7
8
Macro("30")
Macro("31")
Macro("32")
Macro("33")
Macro("34")
Macro("35")
Macro("40")
Macro("41")

Mais que par exemple ça marche aussi si je rentre "32" ou "9-10;101-105;20-25"

Vous avez des idées?

[Marc-L]

Bonsoir,

une boucle principale sur les éléments délimités par un point-virgule combinée à une boucle interne sur les bornes délimitées par un tiret :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Demo()
    TextBox$ = "32;9-10;101-105;20-25"
 
    For Each V In Split(TextBox, ";")
        V = Split(V, "-")
 
        For N& = V(0) To V(UBound(V))
            Macro N
        Next N
    Next V
End Sub
 
 
Sub Macro(V)
    Debug.Print V
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[luksvibes]

Déjà merci pour la réponse mais je n'arrive pas à la faire marcher.

J'ai mis ce programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim i
Dim V
 
Sub CommandButton1_Click()
    'TextBox$ = "32;9-10;101-105;20-25"
 
    For Each V In Split(TextBox1, ";")
        V = Split(V, "-")
 
        For i& = V(0) To V(UBound(V))
            Traitement_RC (i)
        Next i
    Next V
End Sub
 
Private Sub TextBox1_Change()
 
End Sub

Et quand je le lance, on me dit "Erreur de compilation : le caractère de déclaration de type ne correspond pas au type de données déclaré ce qui se réfère à "i&". Du coup j'ai pensé à enlever le "&" mais ça ne marche pas et j'avoue que je ne sais pas trop ce que je fais... Merci pour ton aide...

[Invité]

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Demo()
 
  Dim TextBox$, N&
  Dim V
 
  TextBox$ = "32;9-10;101-105;20-25"
 
  For Each V In Split(TextBox$, ";")
    V = Split(V, "-")
    For N& = V(0) To V(UBound(V))
      Macro N&
    Next N&
  Next V
 
End Sub
 
Sub Macro(V)
  Debug.Print V
End Sub

[luksvibes]

Bon je vais peut-être me répéter mais je ne vois pas pourquoi ça ne marche pas.

J'ai définit une très longue macro Traitement_RC(chiffre1 As String).
Jusqu'à aujourd'hui j'avais dans mon userform avec ces macros :

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
Call Traitement_RC(TextBox1)
End Sub
 
Private Sub TextBox1_Change()
End Sub

J'ai tenté de lancer ta macro en l'adaptant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub CommandButton1_Click()
 
  Dim TextBox$, N&
  Dim V
 
  TextBox$ = "32;9-10;101-105;20-25"
 
  For Each V In Split(TextBox, ";")
    V = Split(V, "-")
    For N& = V(0) To V(UBound(V))
      Traitement_RC N&
    Next N&
  Next V
 
End Sub

Mais ça ne marche pas, de plus moi je ne veux pas devoir marquer dans la macro directement donc j'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub CommandButton1_Click()
 
  Dim N&
  Dim V
 
 
  For Each V In Split(TextBox1, ";")
    V = Split(V, "-")
    For N& = V(0) To V(UBound(V))
      Traitement_RC N&
    Next N&
  Next V
 
End Sub

Mais ça ne marche pas non plus...

[luksvibes]

Bon bah j'ai fini par réussir, le debug.print bloquait le lancement de ma macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CommandButton1_Click()
 
  Dim N&
  Dim V
 
 
  For Each V In Split(TextBox1, ";")
    V = Split(V, "-")
    For N& = V(0) To V(UBound(V))
      Traitement_RC (N&)
    Next N&
  Next V
 
 
End Sub

Par contre j'aimerai bien comprendre à quoi correspont la UBound, c'est pas la première fois que je le vois et que je comprends pas à quoi ça correspond...

[EngueEngue]

Upper Bound, c'est le contraire de lower bound...

Code :

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

1
2
3
4
5
Dim tablo(45 to 1357) as double
msgbox(Ubound(tablo))
'renvoit 1357
msgbox(Lbound(tablo))
'renvoit 45