Utilisez les données d'un Inputbox Type 8

Version imprimable

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:

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:

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 :D

09/01/2020, 16h11
Philippe Tulliez

Bonjour,
N'ai je pas répondu à une question similaire dans cette discussion ?
09/01/2020, 16h16
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:

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 ?

Bonjour,
Voici un exemple qui fonctionne parfaitement

Code:

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

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:

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:

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 ?

10/01/2020, 10h32
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 ?
10/01/2020, 11h32
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 :D.
Je vais essayer de tout garder sur le même bouton, on verra si ca marche.

Merci encore!