comment ouvrir une feuille automatiquement

ledzepfred

XLDnaute Impliqué

• 12 Janvier 2009

• #2

Re : comment ouvrir une feuille automatiquement

bonsoir,

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



A+

 

Pièces jointes

• Classeur2.xls

  27.5 KB · Affichages: 86
• Classeur2.xls

  27.5 KB · Affichages: 75
• Classeur2.xls

  27.5 KB · Affichages: 80

Dernière édition: 12 Janvier 2009

Vote positif 0 Vote négatif

H

hector01

Guest

• 12 Janvier 2009

• #3

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

 

Pièces jointes

• ex pour macro sur Qui fait quoi.xls

  26.5 KB · Affichages: 70

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 12 Janvier 2009

• #4

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+

 

Pièces jointes

• ex pour macro sur Qui fait quoi(1).xls

  34 KB · Affichages: 66
• ex pour macro sur Qui fait quoi(1).xls

  34 KB · Affichages: 70
• ex pour macro sur Qui fait quoi(1).xls

  34 KB · Affichages: 68

Vote positif 0 Vote négatif

H

hector01

Guest

• 12 Janvier 2009

• #5

Re : comment ouvrir une feuille automatiquement

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

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 12 Janvier 2009

• #6

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+

 

Pièces jointes

• ex pour macro sur Qui fait quoi(1).xls

  35.5 KB · Affichages: 142
• ex pour macro sur Qui fait quoi(1).xls

  35.5 KB · Affichages: 119
• ex pour macro sur Qui fait quoi(1).xls

  35.5 KB · Affichages: 128

Vote positif 0 Vote négatif

H

hector01

Guest

• 13 Janvier 2009

• #7

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

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 13 Janvier 2009

• #8

Re : comment ouvrir une feuille automatiquement

re...

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

Code:

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+

 

Vote positif 0 Vote négatif

H

hector01

Guest

• 13 Janvier 2009

• #9

Re : comment ouvrir une feuille automatiquement

T'es un chef....merci

 

Vote positif 0 Vote négatif

H

hector01

Guest

• 16 Janvier 2009

• #10

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 ?

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 16 Janvier 2009

• #11

Re : comment ouvrir une feuille automatiquement

salut

pour trois colonnes, cela donnerait

Code:

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+

 

Vote positif 0 Vote négatif