Recherche V

Bonsoir à tous,

Voici mon problème.

J'ai un code qui me permet de faire un double clic sur une cellule et d'ouvrir une autre feuil avec le renvois de la valeur de la même cellule.

Voici mon code qui fonctionne très bien:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("B7:B21")) Is Nothing Then

Cancel = True

If Target.Value Like "LSPCC E*" Then

Sheets("controlelspccech").Range("J4") = Target.Value

Sheets("controlelspccech").Activate

Sheets("controlelspccech").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

ElseIf Target.Value Like "LSPCC*" Then

Sheets("controlelspcc").Range("J4") = Target.Value

Sheets("controlelspcc").Activate

Sheets("controlelspcc").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End If

End If

End Sub

Je souhaiterais maintenant lorsque la page s'ouvre, qu'il y ait une recherche verticale avec la valeur renvoyé.

J'ai un code mais je n'arrive pas à l'intégrer.

Quelqu'un pourrait-il me venir en aide svp.

Voici le code pour la recherche v:

Dim plage_de_recherche As Range

Dim valeur_rechercher As Integer

Dim adresse_trouvee As Integer

Dim i As Long

Dim Cel As Range

'Affectation des valeurs aux variables

'dans la première colonne de la base1

Set plage_de_recherche = Worksheets("sauvegarde").Columns("A")

'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)

Set valeur_recherchee = plage_de_recherche.Cells.Find(Range("J4").Value, LookAt:=xlWhole)

If Not valeur_recherchee Is Nothing Then

Sheets("controlelspcc").Range("C10").Value = valeur_recherchee.Offset(0, 3).Value

End If

Bonjour,

déjà pourquoi faire 2 fois la même chose ???

Si tu fais If Target.Value Like "LSPCC*" Then les "LSPCC E*" seront faits aussi.

Pour le reste utilise l'icone </> pour garder la mise en forme et l'indentation de ton code, trop pénible à lire là.

Au bout de 106 posts et 5 ans tu devrais le savoir.

Tu devrais savoir aussi qu'avec un fichier de travail tu augmentes le taux et la qualité des réponses.

eric

Bonsoir Eriiic

Voici mon fichier si cela peut aider.

Merci d'avance

Attention pour les suivants, workbook_open() non désactivé.

Quand tu déposes un fichier, met en commentaire toute cette proc.

• ça évite de faire des dégâts chez ceux disposés à t'aider
• on aime bien avoir NOTRE excel tel qu'on l'a décidé, et pas celui décidé par un autre.

Donner la ligne en erreur et le message ne peut pas aider quand tu poses une question ?

Dim valeur_recherchee As Range

eric

Dsl mais je ne suis pas un pro du vba.

J'ai modifié un peu mon fichier pour qu'il n'y ai pas d'erreur.

Lorsque que tu double clic sur LSPCC 02 par exemple, cela fait changer de feuil et cela renvoie la valeur.

Ce que je souhaiterais, c'est que lorsque la feuil s'ouvre cela enclenche la recherchev.

Pourrais tu me venir en aide stp

Et bien tu insères le nom de ta proc à appeler.

Comme tu n'as pas mis en forme le code de ta question comme demandé, ni changé le fichier que je ne veux plus ouvrir, je ne peux t'en dire plus.

Tu peux aussi apporter la correction que je t'ai mise.

eric

Ok mais je ne comprends pas pourquoi tu ne veux plus ouvrir mon fichier?

C'est bon j'ai réussi.

Le seul problème maintenant, c'est que je n'arrive pas à appeler la formule dans le module.

Quand tu déposes un fichier, met en commentaire toute cette proc.

• ça évite de faire des dégâts chez ceux disposés à t'aider
• on aime bien avoir NOTRE excel tel qu'on l'a décidé, et pas celui décidé par un autre.

Je le réserve à ceux qui font des efforts et tu n'es pas au TOP 10 là-dessus

eric