M
modus57
Guest
Bonsoir le forum, voilà mon petit problème
La cellule A1 contient un nombre X.
La cellule A2 contient un nombre Y.
Après la saisie d’un nombre Z en A1, un Inputbox m’invite à saisir un nombre quelconque qui sera qui sera copié en A2 .
Si aucune valeur n’a été saisie dans l’Inputbox, retour à la valeur X en A1
J’ai essayé ce petit bout de code, ça ne fonctionne pas (boucle sans fin)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target <> [A1] Then Exit Sub
If [A1] = 0 Then
[A2] = 0
Else
If IsNumeric(UserEntry) Then
UserEntry = InputBox('SAISIR UN NOMBRE ')
If UserEntry = '' Then
Application.Undo ‘retour à la valeur X en A1
Exit Sub
Else
Range('A2').Value = UserEntry
End If
End if
End If
End Sub
Merci d’avance pour votre aide à +
La cellule A1 contient un nombre X.
La cellule A2 contient un nombre Y.
Après la saisie d’un nombre Z en A1, un Inputbox m’invite à saisir un nombre quelconque qui sera qui sera copié en A2 .
Si aucune valeur n’a été saisie dans l’Inputbox, retour à la valeur X en A1
J’ai essayé ce petit bout de code, ça ne fonctionne pas (boucle sans fin)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target <> [A1] Then Exit Sub
If [A1] = 0 Then
[A2] = 0
Else
If IsNumeric(UserEntry) Then
UserEntry = InputBox('SAISIR UN NOMBRE ')
If UserEntry = '' Then
Application.Undo ‘retour à la valeur X en A1
Exit Sub
Else
Range('A2').Value = UserEntry
End If
End if
End If
End Sub
Merci d’avance pour votre aide à +