Discussion :

[Djohn]

Bonjour,

J'ai une petite demande de manipulation concernant les données dans une table en VBA sous Excel.


En colonne A, j'ai une liste de dates (une trentaine), est il possible qu'une macro enregistre toute cette liste de dates dans une table ? afin que dans la suite de ma macro, je puisse interroger via une inputbox, si ma date saisie apparait dans cette table?

merci

[SfJ5Rpw8]

tu peu effectuer une recherche directement dans ta feuille avec la fonction "RechercheV" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim d As Long
    Dim r As Variant
    d = CLng(CDate(InputBox("Date")))
    On Error Resume Next
    r = Application.WorksheetFunction.VLookup(d, ThisWorkbook.Sheets("Feuil1").Range("A1:A31"), 1, 0)
    On Error GoTo 0
    If Not IsEmpty(r) Then MsgBox "Date Existe" Else MsgBox "Erreur de date"

[Djohn]

merci bbil,

ton code fonctionne,

cependant j'aimerais savoir si une solution existe avec les Tables (car je jongle bcp avec ce genre de données), à l'avenir ca pourrait mettre utile

si je re-ridige ma question ce serai :
1- Comment intérger toutes les données dans une colonne dans une Table Excel ?
2 - Comment rechercher une donnée dans cette table.

merci