Bonjour le forum
pour ouvrir les feuilles de mon classeur j'utilise
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,J8").ClearContents
With Sheets("recherche emp")
.Unprotect
.Range("B12,D12,F12,H12,E17").ClearContents
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End With
Sheets("recherche ref").Range("B12,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:
End Sub
mais quand j'ouvre la feuille "nouvelle ref" je voudrais que la cellule B8 soit sélectionner
quand j'ouvre la feuille ";recherche emp" je voudrais que la cellule E17 soit sélectionner
quand j'ouvre la feuille ";recherche ref" je voudrais que la cellule B12 soit sélectionner
si vous avez des idées
merci par avance
je joins un fichier
Aiglon74