Ouverture sur cellule precise

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

Bonjour

Avec un Code de Feuille.

Ex: pour la feuille "nouvelle ref"

Private Sub Worksheet_Activate()
Range("b8").Select
End Sub

Cordialement

Bonsoir Amadeus

en 2 mots

grand merci

merci pour la leçon

A+

Aiglon74