XL 2010 Recherche valeur numérique.

[Francky79]

Bonsoir le forum,

Ce petit bout de code me conviendrait pour rechercher une valeur dans la feuille 1 à partir de la feuille 2.
Mais il ne marche qu'avec des lettres et moi ma recherche serait sur des chiffres du genre 124523.
Je ne vois pas du tout ou ce fait la sélection en chiffres et lettres.

Sub Recherche_OF()

Quoi = InputBox("Saisir OF")
vOU = Application.Match(Quoi, [A6:A1600], 0)

Application.Goto Cells(vOU, 1), True
End Sub

Merci de votre aide.

 

[Staple1600]

Bonsoir

Testé avec des chiffres

Sub Recherche_OF()
Quoi = Val(InputBox("Saisir OF"))
vOU = Application.Match(Quoi, [A6:A1600], 0)
Application.Goto Cells(vOU + 5, 1), True
End Sub

OK chez moi.

 

[Francky79]

Bonsoir Staple1600,

Merci pour cette réponse rapide et impeccable.
C'est juste +5 qui fait la différence, j'aurais chercher un moment.
Et pour la recherche que dans la feuille 1 c'est le 0 ?
[A6:A1600], 0)

Il y aurait-il un moyen de mettre la cellule active directement dans l'InputBox ?

Encore merci.

 

[Francky79]

je ne comprend pas ces 2 parties de code
[A6:A1600], 0)
et
(vOU + 5, 1)
je voulais l'appliquer pour la colonne C mais ça ne marche pas.

 

[Francky79]

Si ça marche.
Il y a t'il une solution pour mettre la cellule active dans inputBox ?

Merci de votre aide.

 

[Staple1600]

Bonsoir

Test OK chez moi

Sub Recherche_OF_bis()
On Error Resume Next
Set vCell = Application.InputBox(prompt:="Sélectionner la cellule contenant la valeur à chercher", Type:=8)
    If Err = 0 Then
         Quoi = vCell.Value
         vOU = Application.Match(Quoi, [A6:A1600], 0)
        Application.Goto Cells(vOU + 5, 1), True
    Else
    MsgBox "Opération annulée!", vbCritical, "Annulation"
    End If
On Error GoTo 0
End Sub

NB: Quand l'InputBox s'affiche, sélectionnez avec la souris, la cellule contenant la valeur à chercher.

 

[Staple1600]

Re

Et avec le choix de la colonne de recherche
(PS: C'est juste à titre illustratif)

Sub Test()
Dim Colonne&
Colonne = InputBox("Indiquez le N° de colonne pour la recherche?", "Test", 3)
Call Rechercher(Colonne)
End Sub
Private Sub Rechercher(Col As Long)
Set r = Range(Cells(1, Col), Cells(Rows.Count, Col))
On Error Resume Next
Set vCell = Application.InputBox(prompt:="Sélectionnez la cellule avec la valeur cherchée", Type:=8)
    If Err = 0 Then
         Quoi = vCell.Value
         vOU = Application.Match(Quoi, r, 0)
        Application.Goto Cells(vOU, Col), True
    Else
    MsgBox "Opération annulée!", vbCritical, "Annulation"
    End If
On Error GoTo 0
End Sub

 

[Francky79]

Bonsoir Staple1600,

Merci pile poil ce que je voulais et en plus la cerise sur le gâteau avec la deuxième version.

Merci et bonne soirée.