comment ouvrir une feuille automatiquement

[hector01]

Bonjour
Je tente en vain d'ouvrir une feuille sur une cellule précise à partir d'une rechercheV d'une autre feuille... je m'explique.
Feuille 1 avec choix déroulant. Selon choix fait, on a un nom correspondant via une recherchev : ca pas de probleme.
Sur feuille 2, j'ai des noms et des coordonnées.
Par exemple, A2 nom 1;prenom,tel...
A17 nom 2, prenom.... A47 3...etc

Je souhaite que lorsqu'on obtient le nom 1 sur la feuille 1, la feuille 2 s'ouvre en A1...si j'ai le nom 2 alors la feuille 2 s'ouvre sur A17...
AU SECOURS.

Merci d'avance
Hector

 

[ledzepfred]

Re : comment ouvrir une feuille automatiquement

bonsoir,

avec un fichier exemple, ce serait mieux, toutefois regarde si cela te conviendrait (attention aux doublons)



A+

 

[hector01]

Re : comment ouvrir une feuille automatiquement

ok voila
en F1 C6 : liste de choix avec base colonne I (famille)
F16 : rechercheV pour base colonne IJK par exemple :Evelyne gere la famille feutre.

Lorsque F16 = un nom = ouverture de Feuille 2 sur la case du nom correspondant
ex : Evelyne gere famille Feutre alors ouvrir feuille 2 cellule A43 pour que je voies ses coordonnées.
Si jean gere famille notée en C6 = alors ouvre moi la feuille 2 en cellule A2.
Merci pour ton aide.
cdt

 

[ledzepfred]

Re : comment ouvrir une feuille automatiquement

re...

ci-joint fichier modifié, ai ajouté une procédure dans la feuille 2 un double clic sur n'importe quel cellule du feuillet te ramène sur la feuille 1 au niveau de ta liste

Dis-moi si cela te convient et/ou si tu souhaites des explications.

A+

 

[hector01]

Re : comment ouvrir une feuille automatiquement

Je te remercie.
Je teste ca demain et je te repond.
cdt

 

[ledzepfred]

Re : comment ouvrir une feuille automatiquement

RE...

le code ci-joint tient compte de l'absence dans le feuillet 2 de la valeur choisie grâce à la liste
A+

 

[hector01]

Re : comment ouvrir une feuille automatiquement

Bonjouor

Merci vraiment pour ton aide.
La seule petite chose, c'est que dans la feuille 2, je risque d'avoir des familles notées sur la colonne A et B. Le code peut il chercher sur 2 colonnes ?
En gros, tu refait comme un principe de recherchev sur la 2 e feuille. J'y pensais mais je ne savais pas comment ouvrir la feuille.
par avance, merci.
hector

 

[ledzepfred]

Re : comment ouvrir une feuille automatiquement

re...

essaye ceci (je n'ai pas testé mais a priori cela devrait marcher)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 6 And Target.Column <> 3 Then Exit Sub
With Sheets("Feuil2")
Dim x, y As Integer
x = Application.WorksheetFunction.CountIf(.Columns("A:B"), Target)
If x > 0 Then
.Activate
.Columns("A:B").Find(what:=Target.Value).Activate
Else: MsgBox ("La valeur choisie n'est pas présente dans le feuillet 2")
End If
End With
End Sub

A+

 

[hector01]

Re : comment ouvrir une feuille automatiquement

T'es un chef....merci

 

[hector01]

Re : comment ouvrir une feuille automatiquement

Hello
encore moi.
J'ai repris ta formule et j'ai essaye de mettre encore une autre colonne en rajoutant(B:C😀) mais cela ne marche plus.
Y a t il un blocage apres 2 colonne ?

 

[ledzepfred]

Re : comment ouvrir une feuille automatiquement

salut

pour trois colonnes, cela donnerait

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 6 And Target.Column <> 3 Then Exit Sub
With Sheets("Feuil2")
Dim x As Integer
x = Application.WorksheetFunction.CountIf(.Columns("A:[COLOR="Red"][B]C[/B][/COLOR]"), Target)
If x > 0 Then
.Activate
.Columns("A:[COLOR="red"][B]C[/B][/COLOR]").Find(what:=Target.Value).Activate
Else: MsgBox ("La valeur choisie n'est pas présente dans le feuillet 2")
End If
End With
End Sub

A+