XL 2013 recherche erreur sur ligne

[Jacques25]

Bonjour à tous,

J'essaye de faire quelque chose que je pensai simple mais je ne trouve pas mon bonheur.
Je souhaiterai à la fin de mon code vérifier que sur la ligne que je viens de saisir il n'y ait aucune cellule en erreur.

Un truc du genre : si une cellule de la ligne 50 est en erreur je déclenche un message
je n'arrive pas à trouver comment l'écrire.
J'ai essayé aussi en mettant une formule dans une cellule mais je ne vois pas quelle formule utiliser.

Merci d'avance pour votre aide.

Bonne journée.

Jack

 

[Chris24]

Bonjour

Erreur vous avez dit Erreur.....

l'erreur est de ne pas avoir mis un fichier exemple .

Cdt

 

[Jacques25]

Bonjour Chris,

Oui c'est vrai, je joins donc un fichier très simple, en appuyant sur le bouton :
les données de la ligne 1 sont copiées en ligne 5
on fait les 4 additions
si erreur sur ligne 5 msgbox
l'erreur peut venir comme dans le fichier de la saisie d'une lettre au lieu d'un chiffre.
Dans mon fichier c'est bcp plus compliqué, j'ai déjà borné les choses pour limiter les erreurs mais je ne peut pas tout prendre en compte et c'est donc pour ça que je cherche à trouver les erreurs.

@ plus

 

[Robert]

Bojour le fil, bonjour le forum,

Peut-être comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim CEL As Range 'déclare la variable CEL (CELLlule)

For Each CEL In Rows(Target.Row).Cells 'boucle sur toutes les cellules CEL de la ligne de la cellule éditée
    If IsError(CEL.Value) Then 'condition : si la cellule CEL est en erreur
        CEL.Select 'sélectionne la cellule
        MsgBox "Erreur !" 'message
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next CEL 'prochaine cellule de la boucle
End Sub

 

[Jacques25]

Bonjour Robert,

Merci pour ta proposition, je l'intègre à mon code j'essaye et te redis si c'est OK

@Plus

Jack

 

[Jacques25]

Re bonjour à tous

Merci Robert, je me suis inspiré de ton code pour l'intégrer dans le mien, le private sub n'allait pas mon cas ;-)

Bonne journée à tous et encore merci de votre aide précieuse au quotidien.

@ plus

Jack