évaluation du type de contenu d'une sélection
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:
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