• Initiateur de la discussion Initiateur de la discussion super-tonic60
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

super-tonic60

Guest
C'est encore moi !
En fait je pense que ce message va être le dernier...
Comment remplacer un caractère saisis par un autre automatiquement.

En fait je voudrai interdire le caractère "$" dans les textBox, car ensuite je fais une extraction de ma table au format Texte, et mon séparateur c'est ce signe.

J'ai essayé avec la fonction Replace.
ça marche tres bien, mais j'ai de gros problème de transfert vers d'autres versions qui ne comprennent pas ce code.

Merci
 
Re Super-Tonic (décidément !)


Ultra vite fait (j'ai du taff là)

Essaie :
MyString = TextBox1
MyString = Application.WorkshhetFunction.Substitute(MyString, "$", "USD")

(J'ai mis USD mais tu peux mettre un espace " " ou ce que tu veux)

@+Thierry
 
J'ai essayé, mais tout petit problème
Erreur 438: non gérée

Private Sub tbNOM_Change()

'Ancien code qui marche que sur du 98-2ed et NT et 2000
'tbNOM = Replace(tbNOM, "$", "*")

'Nouveau code
MyString = tbNOM.Value
MyString = Application.WorkshhetFunction.Substitute(MyString, "$", "*")

End Sub
 
Hello Super-Sonic

hi hi hi
MyString = Application.WorkshhetFunction.Substitute(MyString, "$", "*")


faute de frappe =>
MyString = Application.WorksheetFunction.Substitute(MyString, "$", "*")


J'étais assez à la bourre !! lol

@+Thierry
 
vba erreur d'application

Salut tout le monde

Je voudrai gérer word depuis excel donc j'utilise :
Dim mem as object
Set mem = New Word.application
ensuite j'ouvre un document et je voudrai le copier dans un nouveau mais lorsque je veut le copier (ActiveDocument.paste) ça génére une erreur 438
des idées pour résoudre cette erreur Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
652
Retour