inputBox

[filouplatchaud]

Bonjour le Forum

Voila j'ai un calendrier et je voudrais avec un InputBox sélectionner une cellule (date) en entant la date rechercher dans mon InputBox . genre 21/01
posible ou pas voir le calendrier.

Merci

 

[filouplatchaud]

je n'arrive pas a joindre le fichier

 

[filouplatchaud]

une photos au plus ???

 

[vgendron]

Hello

pour joindre le fichier: sous la fenetre de post, cliquer sur "téléverser un fichier"

pour demander à l'utilisateur de selectionner une cellule contenant la date à chercher

dateachercher = Application.InputBox("selectionnez la date à chercher", Type:=8)

 

[filouplatchaud]

une photos au plus ???

 

[filouplatchaud]

c ma connexion internet qui plante des que je clic sur Téléverser un Fichier ca plante ?

 

[filouplatchaud]

merci Vgendron mais j'ai un problème de connexion je rééseille plus tard

 

[filouplatchaud]

j'ai été obligé de changer de navigateur 0et maintenant ca a lair de fonctionner

 

[filouplatchaud]

?

 

[DoubleZero]

Bonjour, filouplatchaud, vgendron , le Forum,

Une suggestion en pièce jointe.

A bientôt

 

[job75]

Bonjour filouplatchaud, vgendron, chère ânesse,

2 solutions possibles, la 1ère est bien sûr plus rapide mais la ligne (9) doit être fixée :

Sub RechercheDateLigne()
Dim lig&, x$, i As Variant
lig = 9 'ligne de la recherche, à adapter
1 x = InputBox("Date recherchée :", "Recherche", x)
If x = "" Then Exit Sub
If Not IsDate(x) Then GoTo 1
i = Application.Match(CDbl(CDate(x)), Rows(lig), 0)
If IsError(i) Then GoTo 1
Cells(lig, i).Select
End Sub

Sub RechercheDateFeuille()
Dim x$, i As Double, lig&, j As Variant
1 x = InputBox("Date recherchée :", "Recherche", x)
If x = "" Then Exit Sub
If Not IsDate(x) Then GoTo 1
i = CDbl(CDate(x))
With ActiveSheet.UsedRange
  For lig = 1 To .Rows.Count
    j = Application.Match(i, .Rows(lig), 0)
    If IsNumeric(j) Then .Cells(lig, j).Select: Exit For
  Next
  If IsError(j) Then GoTo 1
End With
End Sub

Fichier joint.

Edit : je vois que je n'ai pas affecté la bonne macro au 1er bouton, je vous laisse corriger.

Bonne journée.

 

[vgendron]

Hello tous !

filouplatchaud.. ta ligne de code ne fonctionne pas car; "Date" est un mot réservé de VBA
d'ou ma proposition

Sub rechdate()
  DateRecherchée = Application.InputBox(" Quelle Date Recherchez Vous ?", "Recherchez une date", Type:=8)
End Sub

bon. ce code demande à l'utilisateur de sélectionner une date..
mais après.. tu la cherches où ?
en fait. ton besoin n'est pas clair:

avec un InputBox sélectionner une cellule (date) en entant la date rechercher dans mon InputBox . genre 21/01

tu veux sélectionner OU entrer une date manuellement dans l'inputbox?

 

[job75]

Re,

mal réveillé vgendron ? filouplatchaud n'a fourni aucun code à part le tien...

Et sa demande est claire (et classique), voir les 2 solutions que j'ai données.

A+

 

[vgendron]

salut Job
oui pas très réveillé auj, effectivement.. vivement ce soir que je me couche.
ok pour la demande, par contre, si si. il a mis une ligne de code dans son fichier excel - le premier :-D

Sub rechdate()

  Date = InputBox(" Quel Date Recherchez Vous ?", "Recherchez une date")


End Sub

 

[filouplatchaud]

merci a vous

jai utilisé le 2ème code

celui ci :

Sub RechercheDateFeuille()
Dim x$, i As Double, lig&, j As Variant
1 x = InputBox("Date recherchée :", "Recherche", x)
If x = "" Then Exit Sub
If Not IsDate(x) Then GoTo 1
i = CDbl(CDate(x))
With ActiveSheet.UsedRange
For lig = 1 To .Rows.Count
j = Application.Match(i, .Rows(lig), 0)
If IsNumeric(j) Then .Cells(lig, j).Select: Exit For
Next
If IsError(j) Then GoTo 1
End With
End Sub

Mais quand je change l'année en A5 cela ne fonctionne plus