Fonction Trim : erreur de compilation [Résolu]

Messages postés
4
Date d'inscription
mardi 10 mai 2005
Dernière intervention
15 avril 2009
- - Dernière réponse : Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 6 janv. 2011 à 14:59
Bonjour à tous,

J'ai un problème au débugage de mon sub. Avec le message "Erreur de compilation. Projet ou bibliothèque introuvable" qui s'applique à "Trim". Pas de trés bon augure. Comme le code incriminé est au milieu d'une grosse tartine, j'ai créé un petit sub pour isoler le problème et qui me sors la même erreur.

Sub test()

Dim toto As String
  toto = Trim(Cells(4, 6).Value)
 
End Sub

On peut difficilement faire plus simple. Je crains qu'il y ait un problème plus grave. Une bibliothèque perdue par exemple.

Lorsque je vais sur Outils/Références, j'ai le magnifique message "Erreur d'accès à la base de régistration".
Que faut-il faire ? Réinstaller Office ? (et si ça continue comme je l'ai vu sur certains forums ?) Télécharger une librairie ? Réglage à effectuer ? code contournant le problème ? Enterrer mon pc dans mon jardin ?

Lorsque je retire la fonction Trim, le programme marche sans problème (mon vrai gros programme j'entend). Mais difficile de s'en passer sans mettre à mal l'interface "chaise-clavier" des utilisateurs du sub.

Merci pour votre aide et tout du moins votre écoute.

___________________________________________
Alors bon en fait ben euh ... ah ouais ? Ah bon !
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
3
Merci
Sub test()
Dim toto As String
toto = Strings.Trim$(Cells(4, 6).Value)
End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de Renfield
Messages postés
672
Date d'inscription
mercredi 22 janvier 2003
Dernière intervention
2 juin 2016
0
Merci
bonjour

Moi aussi j'ai l' erreurs "Erreur d'accès à la base de régistration". Je modifie mes fichier VBP soit editeur de texte.

J'ai aussi le problème Sur Trim , Mid ... sans savoir trop quelle référence inséré dans mon projet me génére ce problème , alors il m'arrive de préfixer par VBA.

En aucun cas, j'ai pensé enterrer mon PC dans le jardin.

toto = VBA.Trim(Cstr(Cells(4, 6).Value))
Commenter la réponse de cs_loulou69
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
0
Merci
loulou69, tu es sous Vista, non ?

parce qu'il faut lancer VB6 en mode administrateur, toujours.
sinon il se plante avec les accès registre
Commenter la réponse de Renfield
Messages postés
4
Date d'inscription
mardi 10 mai 2005
Dernière intervention
15 avril 2009
0
Merci
Ouaaaah 3 mn 30 top chrono. chapeau Renfield. Et merci aussi à Loulou. ça fonctionne !!
Quand au PC dans le jardin, je pensais qu'en plantant des problèmes, il pousserait des solutions.
Mais en informatique, bien souvent, on plante des solutions et il pousse des problèmes.
__________________________________________________
Alors bon en fait ben euh ... ah ouais ? Ah bon !
Commenter la réponse de cs_Kartograv
Messages postés
4
Date d'inscription
jeudi 20 octobre 2005
Dernière intervention
6 janvier 2011
0
Merci
Moi j'ai le même problème (trim qui plante) mais sous un windows NT.

quelqu'un a une idée?
Commenter la réponse de golgoth32
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
0
Merci
As-tu tenté la même résolution, a savoir de remplacer Trim
par Strings.Trim

??

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Commenter la réponse de Renfield

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.