Discussion :

[jpvba]

Bonjour a vous,


J'ai fais une petite sub permettant de'arrondir les éléments d'une sélection à 2 décimal. Si un des champs n'est pas numérique, j'ai une message box qui apparait en donnant la valeur et les coordonnés de l'erreur.
Étant donné que si j'ai plusieurs erreurs j'ai plusieurs fenêtre qui apparait, mais je voudrais avoir un message box avec toute les erreurs aux lieu d'en avoir plusieurs.

Ma première idée était de faire une première boucle au lieu de l'intégré mais je risque d'avoir le même résultat.


Est-ce que vous pouvez m'aider à pouvoir avoir mon résultat voulu, je présume différemment d'une boucle ?

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
Sub arrondi_selection()
 
Dim cellules As Variant
 
 
For Each cellules In Selection
    If IsNumeric(cellules) = True Then
        cellules.Value = Round(cellules, 2)
    Else: MsgBox "n'est pas numérique  " & cellules & " rangée " & cellules.Row & " colonne " & cellules.Column, vbCritical
    End If
 
 
Next cellules
 
 
 
End Sub

merci encore une fois

[jpvba]

Je crosi que je dois utiliser un dictionnaire mais c'est la première tentative que j'utilise ceux-ci


j'Arrive à le code suivant mais je n'est pas la liste des velaur possible

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
31
Sub test_arrondi_selection2()
 
Dim cellules As Variant
Dim x As Long
Dim dico As Scripting.Dictionary
Dim dico_resultat As Variant
 
x = 0
 
Set dico = New Scripting.Dictionary
 
 
For Each cellules In Selection
 
    If IsNumeric(cellules) = True Then
        cellules.Value = Round(cellules, 2)
 
    Else
 
        dico.Add cellules, x
        dico_resultat = dico(x)
 
        x = x + 1
 
 
    End If
 
Next cellules
 
 
If x >= 1 Then MsgBox dico_resultat, vbCritical

en vous remerciant

[Pierre Fauconnier]

Salut

Perso, pas fan du dico qui est externe à VBA

Tu peux construire le message dans la boucle et l'afficher après:

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
Sub Test()
  Dim r As Range
  Dim Message As String
 
  For Each r In Selection
    If IsNumeric(r.Value) Then
      r.Value = Round(r.Value, 2)
    Else
      Message = Message & "Erreur sur " & r.Address & ": " & r.Value & vbLf
    End If
  Next
  If Message = "" Then
    MsgBox "Tout est ok"
  Else
    MsgBox Message
  End If
End Sub

[jpvba]

WOW merci beaucoup monsieur Fauconnier,


Je vais étudier votre code !!!


merci mille fois !!!