Discussion :

[NamName]

Bonjour le forum,

Grâce à une première combobox de mon Userform, l'utilisateur doit selectionné une page de données.
Ci-dessous, le code qui lui permets de selectionner la plage.

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
Private Sub CommandButton10_Click()
 
Me.Hide 'Masquer l'Userform le temps de la séléction
 
On Error GoTo SaisieAnnulee
Set DonneesTOTALPRICE = Application.InputBox("selectionnez la plage -Total Price- (sans les entêtes de colonnes).", Type:=8)
DonneesTOTALPRICE.Interior.ColorIndex = 6
 
Me.TextBox10.Value = DonneesTOTALPRICE.Address(External:=True)
 
SaisieAnnulee:
Err.Clear
On Error GoTo 0
UserForm_Test.Show
 
End Sub

Maintenant, lors de l'enclenchement de ma 2eme combobox, je cherche à utiliser la plage définie précédement.

Code :

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

1
2
3
4
5
6
7
8
Dim plage1 As Range
 
    Set plage1 = Range("DonneesTOTALPRICE")
        For Each c In plage1
        c.Value = Replace(c.Value, "€ ", "")
        c.Value = Replace(c.Value, ".", "")
        c.Value = Replace(c.Value, ",", ".")
        Next c

Vous comprenez l'idée, mais le code ne fonctionne pas, malgré tentatives (Erreur 424)
Quelqu'un a une idée de comment régler ça ?

Merci d'avance

[Philippe Tulliez]

Bonjour,
N'ai je pas répondu à une question similaire dans cette discussion ?

[NamName]

Bonjour,
Cette discutions m'a permis d'afficher l'adresse de la plage dans une textbox (Merci encore!)

Mais je n'arrive pas "l'utiliser".
Dans mon cas, maintenant que la plage est définie, j'aimerai pouvoir faire un traitement dessus:

Code :

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

1
2
3
4
5
Dim plage1 As Range
 
    Set plage1 = DonneesTOTALPRICE
        For Each c In plage1
        c.Value = Replace(c.Value, "€ ", "")

Quand je lance cette macro, j'ai eu erreur 424 sur la ligne "For Each c In plage1", et je n'arrive pas à comprendre d'ou est-ce que cela vient.
Est-ce que c'est parce que j'utilise mal cette plage ?

[Philippe Tulliez]

Bonjour,
Voici un exemple qui fonctionne parfaitement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub t()
  '
  Dim rng As Range
  Dim cell As Range
  Dim msg As String
  '
  Set rng = Application.InputBox("selectionnez la plage", Type:=8)
  '
  For Each cell In rng
    msg = msg & vbCrLf & cell.Value
  Next
  MsgBox msg
  Set rng = Nothing: Set cell = Nothing
End Sub

[NamName]

Bonjour,

Désolée pour le temps de réponse.
Hmm, effectivement, si j'appelle la fonction comme ceci, le code fonctionne très bien:

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
20
21
22
23
24
25
Private Sub CommandButton1_Click()
Me.Hide 'Masquer l'Userform le temps de la séléction
 
Dim plage As Range
 
On Error GoTo SaisieAnnulee
Set DonneesQUANTITY = Application.InputBox("selectionnez la plage -Quantité- (sans les entêtes de colonnes).", Type:=8)
DonneesQUANTITY.Interior.ColorIndex = 6
 
Me.TextBox1.Value = DonneesQUANTITY.Address(External:=True)
 
UserForm1.Show
 
SaisieAnnulee:
Err.Clear
On Error GoTo 0
UserForm1.Show
 
    Set plage = DonneesQUANTITY
        For Each Cell In plage
        Cell.Value = Replace(Cell.Value, ".", "")
        Cell.Value = Replace(Cell.Value, ",", ".")
    Next Cell
 
End Sub

Mon point, c'est que j'aurais voulu séparer les 2 actions:
* Le premier bouton qui permets à l'utilisateur de faire sa selection
* Le deuxième bouton effectue les actions sur la plage.

Un peu 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
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub CommandButton1_Click()
Me.Hide 'Masquer l'Userform le temps de la séléction
 
On Error GoTo SaisieAnnulee
Set DonneesQUANTITY = Application.InputBox("selectionnez la plage -Quantité- (sans les entêtes de colonnes).", Type:=8)
DonneesQUANTITY.Interior.ColorIndex = 6
 
Me.TextBox1.Value = DonneesQUANTITY.Address(External:=True)
 
UserForm1.Show
 
SaisieAnnulee:
Err.Clear
On Error GoTo 0
UserForm1.Show
 
End Sub
 
Private Sub CommandButton2_Click()
 
Dim plage As Range
 
    Set plage = DonneesQUANTITY
        For Each Cell In plage
        Cell.Value = Replace(Cell.Value, ".", "")
        Cell.Value = Replace(Cell.Value, ",", ".")
    Next Cell
 
End Sub

Sauf qu'ici, le code ne fonctionne pas.
Ce n'est pas possible de "rappeler" une plage définie précédemment dans le code ?

[Philippe Tulliez]

Bonjour,
Il est bien entendu possible de passer un objet en argument à une procédure Sub ou Fonction et même à un UserForm bref on peut tout faire mais cependant, il serait préférable d'expliquer les tenants et aboutissants.

Pourquoi deux boutons et pas un seul qui fait tout ?

[NamName]

Effectivement.

J'avais récupéré un Userform fait de cette façon:
* Un bouton pour définir chaque plage
* Un bouton qui effectue toute les actions.

J'ai essayé d'améliorer l'Userform qui m'a été fournit, mais l'amélioration ça peut aussi passer par ce genre de modification .
Je vais essayer de tout garder sur le même bouton, on verra si ca marche.

Merci encore!