Ouverture msbox sous condition

bonsoir à toutes et tous,

dernière question sur ce sujet, j'espère

si je clique, par erreur, ce qui ne m'arrive jamais , sur le bouton "valeur cible", avec le code fourni par xorsankukai et que clique sur annuler j'ai une erreur 424 objet requis

il est possible d'éviter celà ?

cordialement

Bonsoir pskyl,

voici le code modifié:

Sub ValeurCible()

 Dim celdef As Range, celmod As Range, valeur As Integer

  On Error Resume Next

  Set celdef = Application.InputBox("Cellule à définir", Type:=8)

  If celdef = False Then Exit Sub

  valeur = InputBox("Valeur à atteindre : ")
  Set celmod = Application.InputBox("Cellule à modifier", Type:=8)

      celmod.ClearContents
      celdef.GoalSeek Goal:=valeur, ChangingCell:=celmod

    If IsNumeric(Range("N7")) And [N7] > 440 Then MsgBox "Valeur en N7 supérieure à 440 !!!"

End Sub

Bonjour pskyl, Sequoyah,

si je clique sur le bouton "valeur cible" et clique sur annuler j'ai une erreur 424 objet requis

il est possible d'éviter celà ?

A tester....

Option Explicit

Sub ValeurCible()

On Error GoTo 1

 Dim celdef As Range, celmod As Range, valeur As Integer

  Set celdef = Application.InputBox("Cellule à définir", Type:=8)
      valeur = InputBox("Valeur à atteindre : ")
  Set celmod = Application.InputBox("Cellule à modifier", Type:=8)

      celmod.ClearContents
      celdef.GoalSeek Goal:=valeur, ChangingCell:=celmod

    If IsNumeric(Range("N7")) And [N7] > 440 Then MsgBox "Valeur en N7 supérieure à 440 !!!"
1
End Sub

Cordialement,

bonjour,

je viens de tester les 2 codes.

celui de Sequoyah fonctionne, mais dans certains cas il bug par exemple si je fais annuler après avoir valider une première étape.

celui de xorsankukai fonctionne nickel, on peut arrêter la séquence à n'importe quelle étape aucun soucis.

merci à vous deux