Disparaisse de l'écran toupie

Bonsoir le forum

je clique sur recherche par référence

sur emplacement je tape D3C exemple

une toupie apparait

je défile avec pas de problème

je clique sur retour

je clique sur recherche par référence

la toupie est toujours la

je voudrais que celle-ci disparaisse de l'écran quand je clique sur retour (macro ouvrir_feuil)

ps je joins un fichier ex

cordialement

Aiglon74

Bonsoir

Modifie la macro

Sub ouvrir_feuil()

Dim feuilles, f%
  feuilles = Split("base;nouvelle ref;recherche emp;recherche ref;acceuil", ";")
  On Error GoTo errfeuil
  f = CInt(Right(Application.Caller, 1))
  Select Case f
    Case 1 To 5
      Application.ScreenUpdating = False
      If f = 5 Then
        ActiveSheet.Visible = False
        Sheets("nouvelle ref").Range("B8,D8,F8,H8").ClearContents
        With Sheets("recherche emp")
          .Unprotect
          .SpinButton1.Visible = False
          .Range("D12,F12,H12,J12,E17").ClearContents
          .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
        End With
        Sheets("recherche ref").Range("D12,F12,H12").ClearContents
      End If
      With Worksheets(feuilles(f))
        .Visible = True
        .Activate
      End With
      Application.ScreenUpdating = True
    Case Else
      Exit Sub
  End Select
errfeuil:

  'ActiveWorkbook.Save 'enregistre en quittant la feuil

End Sub

Bonsoir Banzai64

je viens de teste ta solution

problème il faut faire 2 fois la manipes pour que ca fonctionne

retour

recherche par référence

toujours la toupie

retour

recherche par référence

et la plus de toupie

Bonsoir

Je ne comprends pas

Modifie la macro

Sub ouvrir_feuil()

    Dim feuilles, f%
    Sheets("recherche emp").SpinButton1.Visible = False
    feuilles = Split("base;nouvelle ref;recherche emp;recherche ref;acceuil", ";")
    On Error GoTo errfeuil
    f = CInt(Right(Application.Caller, 1))
    Select Case f
        Case 1 To 5
            Application.ScreenUpdating = False
            If f = 5 Then
              ActiveSheet.Visible = False
              Sheets("nouvelle ref").Range("B8,D8,F8,H8").ClearContents
              With Sheets("recherche emp")
               .Unprotect
                .Range("D12,F12,H12,J12,E17").ClearContents
            .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
              End With
              Sheets("recherche ref").Range("D12,F12,H12").ClearContents
            End If
            With Worksheets(feuilles(f))
                .Visible = True
                .Activate
            End With
            Application.ScreenUpdating = True
        Case Else
            Exit Sub
    End Select
errfeuil:

'ActiveWorkbook.Save 'enregistre en quittant la feuil

End Sub

Re

ok pour moi

merci pour la leçon

A+

Aiglon74