Discussion :

[Exelsior93]

Bonjour à tous, j'ai beau cherché et je n'ai pas trouvé de solution qui fonctionne. J'ai l'impression d'être le seul qui rencontre ce problème.
Voici mon défi.

Dans un formulaire, j'ai un champ date et une champ heure à partir desquels je veux retrouvé dans une feuille Excel une valeur qui regroupe les deux élément dans une cellule.
Je m'explique. Dans le TextBox date j'ai "16/02/2018", dans le TextBox heure j'ai 16:00.
Je veux retrouver le nom de la personne qui, dans le tableau dans la feuille "Listes" est associé à la date "16/02/2018 16:00".

Voici le code, celui ci me renvoi erreur 2042.

Code :

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

1
2
3
4
5
6
datappel = Me.TextBoxDateAppel.Value
Heurappel = Me.TextBoxHeureAppel.Value
refappel = datappel + Heurappel
 
 
cadast = Application.VLookup(refappel, Sheets("Listes").Range("F1:G212"), 2, True)

D'avance merci à tous.

[BENNASR]

Bonsoir
je suis débutant VBA mais je crois la colonne de données est un seul champ format : dd/mm/yyyy hh:mm et non pas un concaténation de deux champs !!!
et je crois que t'as pas besoin de 2 textbox !!

[BENNASR]

Bonsoir

Code :

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

refappel = datappel + Heurappel

Attention la concaténation ne se fait pas avec la signe + mais avec &
Voila un code bricolé te permet de chercher dans une colonne format dd/mm/yyyy hh:mm à l'aide de deux textbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
Me.TextBox1 = Format(TextBox1.Value, "dd/mm/yyyy")
 Me.TextBox2.Value = Format(Me.TextBox2.Value, "hh:mm")
End Sub
 
 
Private Sub CommandButton1_Click()
Dim cell As Range
Dim plage As Range
Set plage = Sheets("feuil1").Range("A1:A" & [A65536].End(xlUp).Row)
codrecherché = CDate(CDate(TextBox1.Text) & " " & CDate(TextBox2.Text))
For Each cell In plage
 If cell.Value = codrecherché Then
    MsgBox ("la personne recherchée est  ;  " & Cells(cell.Row, 2))
 End If
    Next cell
End Sub

Bonne soirée à toutes et à tous