Bonjour à tous,
J'ai une macro qui me permet d'afficher sans action de ma part à l'écran la différence ou le rapport entre deux cellules que j'ai sélectionnées. Le problème est que si par erreur je sélectionne une cellule contenant un nombre avec une cellule ne contenant pas un nombre (cellule vide ou texte par exemple) un message d'erreur intervient "erreur d'excution "11" et ma macro ne fonctionne plus. Je suis obligé de sortir et re rentrer pour pouvoir ré-utiliser cette macro.
Quelqu'un pourrait-il m'aider pour modifier mon code en conséquence.
Voici mon code :
If Target.Areas.Count = 2 Then
Application.StatusBar = "Différence : " & Format(WorksheetFunction.Sum(Target.Areas(1)) - WorksheetFunction.Sum(Target.Areas(2)), "# ##0.00") _
& " Rapport % : " & Format(WorksheetFunction.Sum(Target.Areas(1)) / WorksheetFunction.Sum(Target.Areas(2)) * 100, "# ##0.00")
Merci beaucoup pour votre aide.
Pol
J'ai une macro qui me permet d'afficher sans action de ma part à l'écran la différence ou le rapport entre deux cellules que j'ai sélectionnées. Le problème est que si par erreur je sélectionne une cellule contenant un nombre avec une cellule ne contenant pas un nombre (cellule vide ou texte par exemple) un message d'erreur intervient "erreur d'excution "11" et ma macro ne fonctionne plus. Je suis obligé de sortir et re rentrer pour pouvoir ré-utiliser cette macro.
Quelqu'un pourrait-il m'aider pour modifier mon code en conséquence.
Voici mon code :
If Target.Areas.Count = 2 Then
Application.StatusBar = "Différence : " & Format(WorksheetFunction.Sum(Target.Areas(1)) - WorksheetFunction.Sum(Target.Areas(2)), "# ##0.00") _
& " Rapport % : " & Format(WorksheetFunction.Sum(Target.Areas(1)) / WorksheetFunction.Sum(Target.Areas(2)) * 100, "# ##0.00")
Merci beaucoup pour votre aide.
Pol