Discussion :

[iloveubb]

Bonjour , je vien dans ce forum en espérant trouver de l'aide . Voilà j'ai une Column et chaque cellule contien plusieurs date separant par ( ; ) la fonction recherche en vba userform fonctionnent bien avec une seul date mais pas avec plusieurs date
Et je ne c'est pas comment faire ?

[Marc-L]

Bonjour,

consulter l'aide VBA de la fonction InStr …

[clementmarcotte]

Bonjour,

Tant qu'à chercher Instr() dans l'aide de VBA; profites-en également pour voir la fonction Split(). Tu peux choisir les ";" comme délimiteur, et puis, cela fournit un tableau sur lequel tu peux boucler.

[iloveubb]

merci a vous de me répondre comme j'ai des info maigre sur vba , voila le code que j'ai pu réaliser a laide et l orientation des membres bien sur

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
18
19
Sub thedate()
Dim TheDate As String, Index As Variant
Dim T As Variant, MyDate As String
 
TheDate = Format((Date + 2), "dd/mm/yyyy")
 
T = Range("Feuil2!H1:H65000")
 
Index = Application.Match(TheDate, T, 0)
 
If IsError(Index) Then
MsgBox "Résultat négatif. Rien trouvé.", vbOKOnly + vbInformation, "Résultat"
Else
 
MsgBox "La Prochaine Date : " & TheDate & " existe. Elle est représentée par " & _
"l'item " & Index & " du tableau." & " N° :" & Cells(Index, 24), vbInformation + vbOKOnly, "Résultat"
End If
Erase T
End Sub

comment utiliser la fonction instr() avec ce code !

grand merci