fourmi4x
XLDnaute Junior
bonjour,
grand débutant sous excel je viens de passer quelques heures sur votre forum (assez génial par ailleurs), sans avoir réussi à créer la macro dont j'ai besoin.
Il s'agit simplement de rechercher une date dans une base de données et de la copier dans une autre feuille...
voilà ce que j'ai tenté (entre autres...)
Function today()
DateTexte = CStr(Jour.Value) & "/" & Mois.Value & "/" & CStr(Contenu_Année.Value)
today = (CDate(DateTexte))
End Function
donc ça ça marche ça me donne une date rentrée par l'utilisateur . Ensuite :
Private Sub Calcul1_Click()
Dim cellule As Range, trouvé2 As Range
Worksheets("CAC40").Activate
Set trouvé2 = Range("A:A").Find(CDate(today))
If Not trouvé2 Is Nothing Then
Range(trouvé2).Select
cette ligne là bug : mon problème c'est que je n'arrive pas à selectionner la case qui a été recherchée....argh)
Application.CutCopyMode = False
Selection.Copy
Worksheets("vol_histo").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else: MsgBox "Le jour saisi n'est pas un jour de trading"
End If
End Sub
voilà je pense que c'est la base de la base mais il faut bien commencer un jour...
merci d'avance
xavier
grand débutant sous excel je viens de passer quelques heures sur votre forum (assez génial par ailleurs), sans avoir réussi à créer la macro dont j'ai besoin.
Il s'agit simplement de rechercher une date dans une base de données et de la copier dans une autre feuille...
voilà ce que j'ai tenté (entre autres...)
Function today()
DateTexte = CStr(Jour.Value) & "/" & Mois.Value & "/" & CStr(Contenu_Année.Value)
today = (CDate(DateTexte))
End Function
donc ça ça marche ça me donne une date rentrée par l'utilisateur . Ensuite :
Private Sub Calcul1_Click()
Dim cellule As Range, trouvé2 As Range
Worksheets("CAC40").Activate
Set trouvé2 = Range("A:A").Find(CDate(today))
If Not trouvé2 Is Nothing Then
Range(trouvé2).Select
cette ligne là bug : mon problème c'est que je n'arrive pas à selectionner la case qui a été recherchée....argh)
Application.CutCopyMode = False
Selection.Copy
Worksheets("vol_histo").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else: MsgBox "Le jour saisi n'est pas un jour de trading"
End If
End Sub
voilà je pense que c'est la base de la base mais il faut bien commencer un jour...
merci d'avance
xavier