Formule si contient espace

Bonjour je suis a la recherche d'une formule me permettant de savoir si dans un textbox celui ci contient un espace.

Merci a vous

Bonjour,

Avec aussi peu d'infos précises ... tu peux t'inspirer du principe pour obtenir un Vrai/Faux... et l'adapter à ta situation ...

=ESTNUM(CHERCHE(caractère;champ))

En espérant que cela t'aide ...

Salut Vincent, James,

pas beaucoup d'infos, effectivement...

Private Sub TextBox1_Change()
'
[A1] = IIf(InStr(Me.TextBox1.Text, Chr(32)) > 0, "Espace", IIf(Me.TextBox1.Text = "", "", "Pas d'espace"))
'
End Sub

A+

Bonjour je ne sais pas trop comment etre plus claire en faite je voudrais afficher un message lors du remplissage du formulaire mais ca ne fonctionne pas...

Private sub

 If IIf(InStr(Me.T_photos.Text, Chr(32))) > 0 Then
    MsgBox ("merci de ne pas mettre d'espace dans le lien photo")
    Exit Sub
    End If

exit sub

Merci a vous

Salut Vincent,

quelque chose comme ça?

L'éventuel espace est signalé à l'utilisateur et effacé par la macro.

Private Sub T_photos_Change()
'
Application.EnableEvents = False
'
If InStr(Me.T_photos.Text, Chr(32)) > 0 Then
    Me.T_photos.Text = Left(Me.T_photos.Text, Len(Me.T_photos.Text) - 1)
    MsgBox "Merci de ne pas mettre d'espace dans le lien photo", vbCritical
End If
'
Application.EnableEvents = True
'
End Sub

A+

Merci ça marche au top sauf que ça me met une dizaine de fois le message si on inscrit dans "Lien photo" de l'onglet enregistrer une photo par exemple \\gamma2\Sacatec\Atelier\Fonctionnement\Maintenance\ Logiciel_GMAO_maintenance avec un espace exprès pour tester avant "Logiciel_GMAO_maintenance".

merci a toi

Salut Vincent,

encore plus simple, alors.

La macro supprime directement le moindre espace, sans avertissement.

Private Sub T_photos_Change()
'
Me.T_photos.Text = Replace(Me.T_photos.Text, Chr(32), "")
'
End Sub

Pas de perte de temps!

A+

salut curulis,

mais c'est pas ça qui m’intéresse car si le lien comporte un espace cela veut dire qu'il n'est pas valide dans mon cas lien d'un dossier

Merci tout de meme

Bonjour,

puisqu'il d'agit de tester un chemin et bien... teste le chemin :

    If Dir("d:\tmp\") = "" Then
        MsgBox "nok"
    End If

eric

Et bien le chemin peut être valide sauf que si on met des dossiers avec des espaces le chemin sera bon mais le lien ne sera pas valide et se mettra en débogage, c'est pour ca que je veux juste dire a l'opérateur qu'il y a une erreur d'adressage et j'indiquerais qu'il ne faut pas d'espace

Et pourquoi ne serait-il pas valide s'il existe ?

Quel est ton code qui tombe en erreur ?

Quant au fait que si tu testes le message est affiché x fois c'est que tu as mal programmé son utilisation.

Seulement ton épaule gène, on voit mal ton écran....