Supprimer Espace devant et guillemet à la fin

[maval]

Bonjour

Je suis à la recherche d'un code VBA pour supprimer Espace devant le texte de la cellule et guillemet à la fin de la cellule.

Je vous remercie de votre aide

 

[vgendron]

Re : Supprimer Espace devant et guillemet à la fin

Hello maval
et pourquoi pas avec substitue et gauche?

GAUCHE(SUBSTITUE(B7;"******○";"");NBCAR(SUBSTITUE(B7;"******○";""))-4)

flute, le site transforme les espaces en *
mais bon tu auras compris l'idée ;-)

 

[mapomme]

Re : Supprimer Espace devant et guillemet à la fin

Bonjour maval, vgendron,

Une fonction vba:

Public Function Apurer$(x$)
  Apurer = Trim(Mid(Left(Trim(Replace(x, Chr(160), " ")), InStr(Trim(Replace(x, Chr(160), " ")), "(") - 1), 3))
End Function

 

[maval]

Re : Supprimer Espace devant et guillemet à la fin

Salut Vgendron,

Je te remercie mais j'ai un petit souci, j'ai un message d'erreur " #NOM? "

Je te souhaite une bonne soirée

 

[vgendron]

Re : Supprimer Espace devant et guillemet à la fin

=nom?

ha.. peut etre que Gauche n'est pas connu. mais plutot LEft
et pour substitue.. je suppose qu'en Anglais, c'est SubstituTE

Hello Mapomme

 

[maval]

Re : Supprimer Espace devant et guillemet à la fin

Bonsoir Mapomme,

J'ai bien mis ton code mais rien ne se passe?

Ou alors.........

 

[mapomme]

Re : Supprimer Espace devant et guillemet à la fin

re,

ou une autre formule:

=SUPPRESPACE(STXT(SUPPRESPACE(SUBSTITUE(GAUCHE(B7;TROUVE("(";B7)-1);CAR(160);" "));3;99))

 

[mapomme]

Re : Supprimer Espace devant et guillemet à la fin

Rere,

Bonsoir Mapomme,

J'ai bien mis ton code mais rien ne se passe?

Ou alors.........

C'est une fonction VBA:

• soit on l'utilise dans une feuille =apurer(F1)
• ou bien on peut l'utiliser dans le code VBA. ex: range("F1")=apurer(range("F1"))

avec le fichier

 

[maval]

Re : Supprimer Espace devant et guillemet à la fin

Re Mapomme,

Oui la il n'y a pas de problème.

Merci et bonne soirée

 

[ROGER2327]

Re : Supprimer Espace devant et guillemet à la fin

Bonsoir à tous.

Une autre fonction personnalsée :​

Public Function NETTOIE$(c$)
Application.Volatile 'facultatif
Dim p%
   p = InStr(1, c, ChrW(9675))
   NETTOIE = Mid$(c, p + 2, InStr(1, c, "(") - p - 3)
End Function

Bonne soirée.


ℝOGER2327
#7738

Samedi 14 Gueules 142 (Nativité de Saint Jules Verne, globe-trotter en chambre - fête Suprême Quarte)
20 Pluviôse An CCXXIII, 7,2356h - serpette
2015-W06-7T17:21:55Z

 

[maval]

Re : Supprimer Espace devant et guillemet à la fin

Re Mapomme, Roger2327,


Sa fonctionne Nickel Je vous remercie et vous souhaite une bonne soirée.