rechercher valeur

[vicottin]

Bonjour,
J’ai des problèmes pour créer une macro. Pourriez-vous m’aider.

J’ai un classeur avec deux feuilles.

Une feuille « Entreprise » et une autre feuille« employés ».

Ce que je cherche à faire : Quand je clique sur le nom d’un employé dans ma feuille « Entreprise » arriver directement sur la ligne de cet employé dans ma feuille « employés »

Pensez-vous que cela est réalisable ?

Un exemple de fichier est en pièce jointe.
Je vous remercie par avance pour votre aide.

 

[sousou]

Re : rechercher valeur

bonjour
Colle le code suivant dans le code de la feuille employés, et regarde si cela te convient

Public colonnes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
colonnes = Array(18, 19, 20)
If col(Target) = True Then
With Sheets("employés") 'Recherche de l'employé
.Activate
Set r = .UsedRange.Find(Target.Value)
r.Select
End With
End If

End Sub

Function col(cellule) ' controle si la colonneselection nous intéresse
For n = 0 To UBound(colonnes)
If cellule.Column = colonnes(n) Then
col = True
Exit Function
End If
Next
End Function

 

[vicottin]

Re : rechercher valeur

Un grand, grand, grand merci pour votre code qui fonctionne parfaitement.
C'est super et ce code va me faire gagner beaucoup de temps.

Juste une précision: est-il possible de sélectionner ma cellule sans avoir la fonction qui s'active pour modifier le mon de la personne par exemple?

Merci de votre retour

 

[vicottin]

Re : rechercher valeur

Je reviens vers vous,
L'idéal serait de pouvoir appliquer ce code par un clique droit sur la cellule concernée pour activer la fonction.
Cela est-il possible?

Merci d'avance

 

[Caillou]

Re : rechercher valeur

Bonjour,

Modifie le code comme suit :

Public colonnes

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 colonnes = Array(18, 19, 20)
 If col(Target) = True Then
 With Sheets("employés") 'Recherche de l'employé
 .Activate
 Set r = .UsedRange.Find(Target.Value)
 r.Select
 End With
 End If
 Cancel = True
End Sub

 Function col(cellule) ' controle si la colonneselection nous intéresse
 For n = 0 To UBound(colonnes)
 If cellule.Column = colonnes(n) Then
 col = True
 Exit Function
 End If
 Next
 End Function

Caillou

 

[vicottin]

Re : rechercher valeur

Merci beaucoup Caillou,
Cela fonctionne parfaitement