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

comardud · 19 Mai 2020

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.

job75 · 19 Mai 2020

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 · 19 Mai 2020

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+

comardud · 19 Mai 2020

job75 à dit:
Bonjour comardud,
---------------

Je savais qu'il y avait des spécialistes ici mais une réponse une heure après ma demande, franchement je n'en demandait pas tant !

Merci infiniment à toi et bonne journée

comardud · 19 Mai 2020

Si je peux me permettre d'abuser, pourrais tu m'expliquer ton code, j'aime comprendre pour apprendre ;-)

merci

job75 · 19 Mai 2020

Si vous ne comprenez pas certains mots recherchez-les sur le web.

Sinon dites-moi ce que vous ne comprenez pas.

comardud · 19 Mai 2020

Ok merci

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

comardud

XLDnaute Nouveau

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

comardud

XLDnaute Nouveau

comardud

XLDnaute Nouveau

job75

XLDnaute Barbatruc

comardud

XLDnaute Nouveau

Discussions similaires