tout le monde !

Je suis actuellement en stage et je dois réaliser une application qui calcule des données à partir de classeurs Excel à charger auparavant.

Le problème que je rencontre est que les valeurs des cellules possèdent souvent des espaces "en trop" (par exemple si je souhaite rechercher le nom ´CDD´, dans certains classeurs il est noté ´CDD´ et dans certains autres, il est noté ´CDD_____´).

De ce fait, mon programme ne reconnaît pas (et donc ne prend pas en compte) le deuxième ´CDD´ a cause des espaces à droite...

Note : Les _ représentent des espaces "en trop"

J´ai lu qu´il fallait utiliser la fonction TRIM pour supprimer les espaces de gauche et de droite mais je ne voit pas du tout comment l´utiliser avec VB2005 et Excel (il faudrait que j´arrive à les enlever automatiquement dans le tableau complet)

Est-ce que vous savez comment je dois faire ça

Je vous remercie d´avance ! Vous m´ôteriez une belle épine du pied...

je ne sais pas si ca t´aide vraiment
mais dans excel tu peux faire directement ´=trim(A1)´

godrik pour ta réponse mais ce que j´aimerais c´est que ça modifie toutes les cellules du tableau et cela automatiquement à partir de Visual Basic 2005 Express

Je pense qu´il faudrait que je fasse une boucle mais je ne sais pas du tout comment programmer ça (ni comment déclarer les différentes variables)

Si vous avez des idées n´hésitez pas parce que ce problème bloque complètement l´avancée de mon programme

je penses qu´il y a une fonction trim en vb qui fait l´operation que tu veux sur une chaine de caractere.
il reste a la récupérer du tableau
mais cela va ressembler a (en pseudo syntaxe vb et appel aux api excel):
for i = 1 to 1000
s = getValeurCase ("A" + i) //c´est bien + la concatenation en basic ?
s = trim (s)
setValeurCase ("A" + i)
end

J´ai l´impression que ton probleme vient plus de VB que de l´intercfacage avec excel. non ?

si c´est bien le cas tu devrais lire un cours de VB 2005.net

godrik beaucoup !! !!!

Grâce a toi j´ai réussi !!

Il fallait faire :

Dim s As String
Dim longueur As Integer
Dim largeur As Integer

For largeur = 1 To
xlsapp.Range("A1").CurrentRegion.End(Excel.XlDirec
tion.xlToRight).Column
For longueur = 1 To
xlsapp.Range("A1").CurrentRegion.End(Excel.XlDirec
tion.xlDown).Row
s =
xlsapp.ActiveWorkbook.Worksheets("Feuil1").cells(l
argeur, longueur).value
s = Trim(s)

xlsapp.ActiveWorkbook.Worksheets("Feuil1").cells(l
argeur, longueur).value = s
Next
Next

mince c´était une fausse alerte... ça ne fonctionne pas encore

Mais en tout cas, je suis sur une meilleure voie qu´avant

N´hésitez pas si vous avez des solutions

J´ai compris mon erreur il fallait simplement que j´inverse les variables longueur et largeur
(xlsapp.ActiveWorkbook.Worksheets("Feuil1").cells(
longueur, largeur).value

ça fonctionne maintenant mais c´est vraiment très très très (...) très long

Mon tableau contient 15 colonnes et 3800 lignes et le temps nécéssaire pour enlever tous les espaces en trop en utilisant cette méthode est d´environ 10 minutes avec un P4 3.0 Ghz et 1GO de ram (l´application est censée pouvoir tourner sur un portable 2 fois moins puissant donc j´imagine pas la durée... )

Je vous en supplie dites moi si je pourrais faire autrement !!

(en tout cas merci quand même godrik de m´avoir donné cette solution )