Discussion :

[nicolas2603]

Bonjour je me tourne vers vous car je ne m'en sort pas avec une fonction que j'essaye de faire.

J'essaye de faire en sorte que si ma variable contient " : " ça le supprime; Du style "nom : prenom" devienne "nom prenom".

J'ai essayé avec les tuto sur les chaines de caractères mais je n'y arrive pas ! Une solution ?

Code :

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

1
2
3
4
5
varNomJeu = Me.NomJeu.Value
varPositionDossier = InStr(1, varNomJeu, " : ", vbTextCompare)
If varPositionDossier > 0 Then
    ??    
End If

[CinePhil]

J'essaye de faire en sorte que si ma variable contient " : " ça le supprime; Du style "nom : prenom" devienne "nom prenom".

Code :

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

1
2
3
4
5
varNomJeu = Me.NomJeu.Value
varPositionDossier = InStr(1, varNomJeu, " : ", vbTextCompare)
If varPositionDossier > 0 Then
    varNomJeu = left(varNomJeu, varPositionDossier -1) & right(varNomJeu, len(varNomJeu) - varPositionDossier))    
End If

A essayer, je suis sous Mandriva Linux donc pas Access sous la main.

[nicolas2603]

Salut, et merci pour cette réponse au beau milieu de la nuit !
Il y avait juste une toute petite erreur, que j'ai résolue, mais merci à toi !

Code :

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

1
2
3
4
5
varNomJeu = Me.NomJeu.Value
varPositionDossier = InStr(1, varNomJeu, " : ", vbTextCompare)
If varPositionDossier > 0 Then
    varNomJeu = left(varNomJeu, varPositionDossier -1) & right(varNomJeu, len(varNomJeu) - (varPositionDossier+1))    
End If

[Invité]

Bonjour

Pour info, il y avait une autre solution plus simple en utilisant la fonction Replace

Code :

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

Me.Texte0.Value = Replace(Me.Texte0.Value, " : ", " ")

Starec

[nicolas2603]

Effectivement j'avais pensé au remplacement, mais sans y arriver ! Pourtant c'est tout simple, merci également pour cette réponse.