mais la prochaine fois ne te mele pas dans des sujets que tu ne maitrise pas.
DataView.Find()
DataView.FindRows
DataTable.select
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMyVar = " EL BAZAR " MsgBox """" & Replace(MyVar, Space(1), vbNullString) & """"
je suis toujours dans l'attente de votre aide.
Private Sub CommandButton1_Click() Dim a_chgercher As String, critere As String a_chercher = "EL BAZAR" critere = "ELBAZAR" If a_chercher Like transcritere(critere) Then MsgBox "oui" Else MsgBox "non" critere = "EL BAZAR" If a_chercher Like transcritere(critere) Then MsgBox "oui" Else MsgBox "non" a_chercher = "ELBAZAR" critere = "ELBAZAR" If a_chercher Like transcritere(critere) Then MsgBox "oui" Else MsgBox "non" critere = "EL BAZAR" If a_chercher Like transcritere(critere) Then MsgBox "oui" Else MsgBox "non" End Sub Private Function transcritere(quoi As String) As String quoi = Replace(quoi, " ", "") transcritere = Replace(StrConv(quoi, vbUnicode), Chr(0), "*") End Function
dim nom as string dim nouveaunom as string nom = textbox1.text if nom.contains(" ") then nouveaunom = nom.replace(" ","*") end if