Bonjour,
Dans une macro existante ( voir ci-dessous) j'aimerai qu'une boîte de dialogue s'ouvre ( du genre "Saisie déjà effectuée, voulez-vous continuer ?) si la cellule active n'est pas vide.
Merci de votre aide.
Sub saisie_1()
'
' saisie_1 Macro
Application.Goto Reference:="C_1"
Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Saisir numéro de dossard")
Selection.Find(What:=(Var), After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
With Application.ActiveCell
End With
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Application.InputBox("Saisir le temps", , , , , , , 2)
Dim Retour As Integer
Retour = MsgBox("Voulez-vous continuer", vbYesNo + vbCritical + vbDefaultButton1, "ATTENTION")
If Retour = vbYes Then
Call saisie_1
Call alfa
End If
End Sub
Dans une macro existante ( voir ci-dessous) j'aimerai qu'une boîte de dialogue s'ouvre ( du genre "Saisie déjà effectuée, voulez-vous continuer ?) si la cellule active n'est pas vide.
Merci de votre aide.
Sub saisie_1()
'
' saisie_1 Macro
Application.Goto Reference:="C_1"
Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Saisir numéro de dossard")
Selection.Find(What:=(Var), After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
With Application.ActiveCell
End With
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Application.InputBox("Saisir le temps", , , , , , , 2)
Dim Retour As Integer
Retour = MsgBox("Voulez-vous continuer", vbYesNo + vbCritical + vbDefaultButton1, "ATTENTION")
If Retour = vbYes Then
Call saisie_1
Call alfa
End If
End Sub