recherche cellulle avec inputbox

[Ice]

Bonsoir le Forum

Sur une feuille j ai deux colonne A et B
Dans la B , des dates du 1/1/05 au 31/12/05

J aimerai savoir comment faire avec un inputbox, selectionner la cellule A de la ligne correspondant a la valeur de Inputbox

la valeur de inputbox est bien une date !!

merci

Ice

 

[Alain CROS]

Bonjour.

Si Les données démarrent en ligne 1 :

Sub EquivDate()
    Dim Saisie$
    Saisie = CStr(InputBox('blabla'))
    If IsDate(Saisie) Then
        MsgBox Evaluate('INDEX(OFFSET(B:B,,-1,COUNTA(B:B)),MATCH(' & _
            CLng(CDate(Saisie)) & ',OFFSET(B:B,,,COUNTA(B:B)),0))')
    Else
        MsgBox 'pas une date'
    End If
End Sub

Alain CROS

 

[Ice]

bonjour,

ce n est pas tout a fait cela que je recherche

je vais essayé d etre plus clair

dans l inputbox, je saisie une date

je voudrai la retrouver en colonne B , et selectionner la cellule de la colonne A correspondante.


Merci quand meme pour ta macro

 

[Ice]

Bonjour,

voici ta macro modifier

Sub EquivDate()
Dim c
Dim Saisie$
Saisie = CStr(InputBox('blabla'))
If IsDate(Saisie) Then
c = ('INDEX(OFFSET(B:B,,-1,COUNTA(B:B)),MATCH(' & _
CLng(CDate(Saisie)) & ',OFFSET(B:B,,,COUNTA(B:B)),0))')
Range(c).Value = 'x'
Else
MsgBox 'pas une date'
End If
End Sub


Cependant comment faire pour selectionner la cellule 'c-1'

merci