XL 2010 Recherche valeur numérique.

Staple1600

XLDnaute Barbatruc

• 4 Novembre 2020

• #2

Bonsoir

Testé avec des chiffres

VB:

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.

 

Vote positif 0 Vote négatif

F

Francky79

XLDnaute Occasionnel

• 4 Novembre 2020

• #3

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.

 

Vote positif 0 Vote négatif

F

Francky79

XLDnaute Occasionnel

• 4 Novembre 2020

• #4

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.

 

Vote positif 0 Vote négatif

F

Francky79

XLDnaute Occasionnel

• 5 Novembre 2020

• #5

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

Merci de votre aide.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Novembre 2020

• #6

Bonsoir

Test OK chez moi

VB:

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Novembre 2020

• #7

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Solution

F

Francky79

XLDnaute Occasionnel

• 5 Novembre 2020

• #8

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.

 

Vote positif 0 Vote négatif