XL 2013 Recherche valeur et aller au résultat - (RÉSOLU)

[chantalc33]

Bonjour encore!!

Encore un petit problème de recherche...
Donc, disons que j'ai la Feuille1 avec en A1 une donnée qui peut variée.
Je veux une macro pour chercher cette donnée dans la Feuille2, dans toute la colonne A.
Si on trouve la donnée, je veux que ça m'apporte à la feuille2 sur la ligne du résultat.

Est-ce que c'est possible de faire ça?

Merci beaucoup! 🙂

 

[Jauster]

Hello,

A tester

Sub chchval()
Dim LR, i As Integer
Dim sht1, sht2 As Worksheet

Set sht1 = Worksheets("Feuil1")
Set sht2 = Worksheets("Feuil2")
  LR = sht2.Cells(sht2.Rows.Count, "A").End(xlUp).Row
 
For i = 1 To LR
If sht2.Cells(i, 1) <> sht1.Cells(1, 1) Then
        i = i + 1
Else: sht2.Activate
ActiveSheet.Cells(i, 1).Select
End If
Next i

End Sub

 

[DoubleZero]

Bonjour à toutes et à tous,

Autre suggestion avec le code ci-après, logé dans le module de l'onglet "Feuil1" :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Dim mot As Range
    If c.Address <> "$A$1" Then Exit Sub
    Set mot = Sheets("Feuil2").Columns(1).Find(c)
    If Not mot Is Nothing Then Application.Goto mot, True
End Sub

Action par clic double en a1.

A bientôt 🙂

 

[chantalc33]

Merci à vous deux!
Jauster, malheureusement, ça ne fonctionne pas... Je n'ai pas de message d'erreur ni rien, mais rien ne se produit.

J'ai changé les noms des feuil1 pour mettre les miennes bien sûr... :

Sub chchval()
Dim LR, i As Integer
Dim sht1, sht2 As Worksheet

Set sht1 = Worksheets("Save")
Set sht2 = Worksheets("MARS-COMM 2018")
  LR = sht2.Cells(sht2.Rows.Count, "A").End(xlUp).Row

For i = 1 To LR
If sht2.Cells(i, 1) <> sht1.Cells(1, 1) Then
        i = i + 1
Else: sht2.Activate
ActiveSheet.Cells(i, 1).Select
End If
Next i

End Sub

DoubleZero : Ça fonctionne super bien! Par contre, est-ce que tu crois que ça pourrait être adapter pour se produire lors d'un clique sur un bouton au lieu d'un double-clique? Ça m'aiderait... 🙂

Merci bien!!

 

[DoubleZero]

Re-bonjour,

Comme ceci ?

Option Explicit
Sub Atteindre()
    Dim c As String, mot As Range
    c = Sheets("Feuil1").Range("a1")
    Set mot = Sheets("Feuil2").Columns(1).Find(c)
    If Not mot Is Nothing Then Application.Goto mot, True
End Sub

A bientôt 🙂

 

[chantalc33]

Oh Seigneur!!!!
Je saute littéralement de joie!!!!
J'ai passé une partie de ma journée à tenter de résoudre cette énigme!!
Merci IN-FI-NI-MENT!!!!! 🙂 🙂

 

[chantalc33]

DoubleZero... Je tente ma chance pour te soutirer encore un peu de ton savoir!! 😉
Est-ce que ce serait possible qu'une fois qu'on a fait le .Goto, ça sélectionne la ligne complète où le mot a été trouvé?
Tant qu'à passer encore des heures à chercher, je me suis dite que si tu savais, ce serait plus rapide 😉

Merci encore!!! 🙂

 

[DoubleZero]

Re-bonjour,

Comme cela ?

Option Explicit
Sub Atteindre()
    Dim c As String, mot As Range
    c = Sheets("Feuil1").Range("a1")
    Set mot = Sheets("Feuil2").Columns(1).Find(c)
    If Not mot Is Nothing Then
        Application.Goto mot, True
        mot.EntireRow.Select
    End If
End Sub

A bientôt 🙂

 

[chantalc33]

Haaaa!!! C'est absolument parfait!!! 😀
Tu es soudainement devenu mon meilleur ami!!! hihi 😉

Merci encore!! Et Bonne Année!! 🙂 🙂

 

[DoubleZero]

Re-bonjour,

Haaaa!!! C'est absolument parfait!!!...

Cela me ravit 😀

...Et Bonne Année!!

Heureuse Année, it😀u !

A bientôt 🙂