Microsoft 365 Besoin d'aide sur la fonction find en vba

comardud

XLDnaute Nouveau
Bonjour à tous,
j'ai une nouvelle fois besoin des spécialistes Excel.
Je bute sur la fonction find en vba, je vous explique mon soucis:

Dans le fichier joint j'ai 2 onglets (Feuil1 et Feuil2),
ce que je voudrais obtenir c'est que dans l'onglet Feuil2 quand je double clic dans une cellule de la colonne I (i) ça sélectionne le numéro qui se trouve 2 cellules à droite (colonne K) et que ce numéro soit recherché (fonction find ?) dans l'onglet Feuil1 et quand celui ci est trouvé ça sélectionne la 4eme cellule à gauche de ce résultat.

Je ne sait pas si je suis très clair :) j'ai mis en PJ un extrait du fichier en question avec les explications, ce sera surement plus parlant.

Merci de votre aide.
 

Pièces jointes

  • Ex-PlanningPeint.xlsx
    28.5 KB · Affichages: 11
Solution
Bonjour comardud,

La macro dans le code de Feuil2 :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
If Intersect(Target, [I:I]) Is Nothing Or CStr(Target(1, 3)) = "" Then Exit Sub
Cancel = True
With Feuil1
    .Visible = xlSheetVisible 'si la feuille est masquée
    Set c = .Columns(5).Resize(, .Columns.Count - 4).Find(CStr(Target(1, 3)), , xlValues, xlWhole)
End With
If Not c Is Nothing Then Application.Goto c.Offset(, -4)
End Sub
Notez qu'en VBA il est déconseillé de sélectionner...

A+

job75

XLDnaute Barbatruc
Bonjour comardud,

La macro dans le code de Feuil2 :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
If Intersect(Target, [I:I]) Is Nothing Or CStr(Target(1, 3)) = "" Then Exit Sub
Cancel = True
With Feuil1
    .Visible = xlSheetVisible 'si la feuille est masquée
    Set c = .Columns(5).Resize(, .Columns.Count - 4).Find(CStr(Target(1, 3)), , xlValues, xlWhole)
End With
If Not c Is Nothing Then Application.Goto c.Offset(, -4)
End Sub
Notez qu'en VBA il est déconseillé de sélectionner...

A+
 

Pièces jointes

  • Ex-PlanningPeint(1).xlsm
    36.1 KB · Affichages: 8

Discussions similaires

Réponses
7
Affichages
485

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T