Compiler les messages d'erreur

Bonjour à tous,

Comment peut on compiler les messages d'erreur ? pour faire simple sur une plage j'ai les valeurs suivantes :

je passe cette macro afin de vérifier si la valeur est numerique, j'ai donc deux messages d'erreur pour cette serie

For Each cellule In maFeuille.Range("H9:H" & Dlg)
       If Not IsNumeric(cellule) = True Then MsgBox (" la valeur : " & cellule & " ligne " & cellule.Row  & " est à corriger")
Next

est il possible de compiler pour avoir un seul message recapitulant les 2 erreurs ?

Merci pour vos lumieres

Bonjour,

Voici un essai sachant qu'il peut y avoir plein de petites façons d'y parvenir, principalement par concaténation progressive ou en passant par une variable tableau :

dim messages()

For Each cellule In maFeuille.Range("H9:H" & Dlg)
    If Not IsNumeric(cellule) = True Then
        redim preserve messages(n)
        messages(n) = cellule.Row
        n = n + 1
    end if
Next

msgbox "les valeurs des lignes : " & join(messages, " - ") & "sont à corriger"

Cdlt,

Merci, c'est parfait !

Je vous en prie ! Mais si je peux me permettre, il est possible de forcer la saisie numérique via la validation de données d'excel directement. Ca pourrait être plus simple si les valeurs en question résultent d'une saisie.

Cdlt,

Non malheureusement c'est d'un import, mais merci du conseil