[RESOLU]Pb avec procédure

[Ternoise]

Bonjour le forum

Je doit utiliser ces procédure dans la même feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TestProtect
End Sub

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Intersect(R, [AK6:AK14]) Is Nothing Then Exit Sub
Sheets(R.Value).Visible = -1
Sheets(R.Value).Select
End Sub

Mais forcement erreur "Nom ambigu détecté" car il y a cette procédure identique

Private Sub Worksheet_SelectionChange

Comment faire pour associer ces deux procédures ?

ByVal Target As Range

et

ByVal R As Range

Merci de votre aide
David

 

[Staple1600]

Re : Pb avec procédure

Re


Tu ne peux pas avoir deux procédures avec un nom identique dans le code de ta feuille.

Essayes ainsi

Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If Intersect(R, [AK6:AK14]) Is Nothing Then Exit Sub
TestProtect
  Sheets(R.Value).Visible = -1
  Sheets(R.Value).Select
End Sub

PS:Tu aurais du rester dans ton fil initial
Au moins il y a déjà un fichier exemple 😉

 

[Ternoise]

Re : Pb avec procédure

Merci cela fonctionne avec petite modif !

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Intersect(R, [AK6:AK14]) Is Nothing Then Exit Sub
TestProtect
Sheets(R.Value).Visible = -1
Sheets(R.Value).Select
End Sub

 

[Staple1600]

Re : Pb avec procédure

Re

Je ne vois pas "petite modif" entre ma proposition et ton dernier message 😉

 

[Ternoise]

Re : Pb avec procédure

Re

Oups. Erreur dans le copier/coller !

Il faut que TestProtect soit en premier sinon cela fonctionne pas correctement

Private Sub Worksheet_SelectionChange(ByVal R As Range)
TestProtect
If Intersect(R, [AK6:AK14]) Is Nothing Then Exit Sub
Sheets(R.Value).Visible = -1
Sheets(R.Value).Select
End Sub