inputBox

filouplatchaud

XLDnaute Occasionnel

• 20 Avril 2017

• #2

je n'arrive pas a joindre le fichier

 

Pièces jointes

• InputBox.jpg

  253.4 KB · Affichages: 36

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 20 Avril 2017

• #3

une photos au plus ???

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Avril 2017

• #4

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)

 

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 20 Avril 2017

• #5

une photos au plus ???

 

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 20 Avril 2017

• #6

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

 

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 20 Avril 2017

• #7

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

 

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 20 Avril 2017

• #8

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

 

Pièces jointes

• Classeur1.xlsx.xlsm

  20.8 KB · Affichages: 40

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 20 Avril 2017

• #9

?

 

Pièces jointes

• Classeur1(Récupération automatique).xlsm

  18.7 KB · Affichages: 32

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Avril 2017

• #10

Bonjour, filouplatchaud, vgendron , le Forum,

Une suggestion en pièce jointe.

A bientôt

 

Pièces jointes

• 00 - filouplatchaud - Date x atteindre.xlsm

  23.7 KB · Affichages: 41

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Avril 2017

• #11

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 :

Code:

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.

 

Pièces jointes

• Recherche date(1).xlsm

  28.8 KB · Affichages: 33

Dernière édition: 23 Avril 2017

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Avril 2017

• #12

Hello tous !

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

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Avril 2017

• #13

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+

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Avril 2017

• #14

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

VB:

Sub rechdate()

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


End Sub

 

Vote positif 0 Vote négatif

filouplatchaud

XLDnaute Occasionnel

• 22 Avril 2017

• #15

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

 

Vote positif 0 Vote négatif