supression espace JUSTE à la fin d'une cellule

[garrec]

Bonjour

J'ai dans une cellule ce texte "CALL CG1 JUN 12 1.70 "(les quillements y sont pas mais il y a 5 ou6 espace apres le"0"

Je dois faire une RECHERCHE V mais excel ne reconnait pas vu que dans mon autre fichiers j'ai "CALL CG1 JUN 12 1.70" (sans espace à la fin)


Donc je dois faire une étape intermédiaire à savoir: Supprimer les espaces JUSTE à la fin de la cellule. Donc la fonction SUPPRESPACE ne fonctionne pas!

Je pense donc que je dois inventer une fonction VBA? Mais alors la je bloque!!

Quelqu'un pourrait m'aider a creer cette fonction si c'est nécessaire?

Merci

PS: Si besoin d'un example excel me demander je vous met ça en PJ.

Thanks in advance

 

[ERIC S]

Re : supression espace JUSTE à la fin d'une cellule

Bonjour

tu peux peut-être essayer un : recherchev(gauche(macellule;nbcar(macellule)-1);.....

 

[Modeste geedee]

Re : supression espace JUSTE à la fin d'une cellule

Bonsour®

peut-etre ?
=SUPPRESPACE(SUBSTITUE(RefCellule;CAR(160);""))

 

[Victor21]

Re : supression espace JUSTE à la fin d'une cellule

Bonjour.

Les espaces ne sont probablement pas des espaces (Car(32))
Solution :
(ce serait quand même bien plus facile avec un fichier ...)
Si "CALL CG1 JUN 12 1.70 " est en A1
dans une cellule quelconque : =CODE(STXT(A1;21;1)) vous renvoie une valeur xx
Puis, Essayez :
=SUBSTITUE(A1;CAR(xx);"")

Edit : Bonjour, Pompon

 

[garrec]

Re : supression espace JUSTE à la fin d'une cellule

Bonjour Eric

Voila mon fichier sur lequel je travail. J'ai tout enlevé a part cette recherche V qui me pose pb.

Je ne vois pas trop ce que tu veux dire par recherchev(gauche(macellule;nbcar(macellule)-1);.....

que deviendrais ma recherche V?

 

[ERIC S]

Re : supression espace JUSTE à la fin d'une cellule

Bonjour

çà ne me plait pas trop mais essaie

For i = 6 To Range("H65536").End(xlUp).Row
While Asc(Right(Range("H" & i).Value, 1)) = 32
    Range("H" & i).Value = Left(Range("H" & i).Value, Len(Range("H" & i).Value) - 1)
Wend
next

 

[JHA]

Re : supression espace JUSTE à la fin d'une cellule

Bonjour à tous,

En "BU8"

=SI(CP8="";"";GAUCHE(CP8;NBCAR(CP8)-1))

JHA

 

[ERIC S]

Re : supression espace JUSTE à la fin d'une cellule

Bonjour JHA

le soucis c'est qu'il y a un nombre différent d'espaces (code 32), on le voit en faisant = nbcar et en tirant

 

[Dull]

Re : supression espace JUSTE à la fin d'une cellule

Salut à tous

ce code devrait aller aussi

For i = 6 To Range("H65536").End(xlUp).Row
Cells(i, 8) = Trim(Cells(i, 8))
Next i

Bonne Journée

 

[JMB9]

Re : supression espace JUSTE à la fin d'une cellule

Pourquoi ne pas utiliser la fonction RTRIM ?

 

[JBOBO]

Re : supression espace JUSTE à la fin d'une cellule

Bonjour,

Un essai avec :
en BU8 de la feuille "données acces" :

=SUPPRESPACE(CP8)

et en M6 de la feuille "Rapprochement NE" :

=SIERREUR(RECHERCHEV(SUPPRESPACE(GAUCHE(H6;CHERCHE(".??";H6)+2));'Donnees Access'!$BU$8:$BY$279;5;FAUX);RECHERCHEV(SUPPRESPACE(H6);'Donnees Access'!$BU$8:$BY$279;5;FAUX))

 

[garrec]

Re : supression espace JUSTE à la fin d'une cellule

Merci a tous

En particulier a Eric je vais utiliser ton code VBA

 

[ERIC S]

Re : supression espace JUSTE à la fin d'une cellule

Re

j en'ai pas testé mais le rtrim que je ne connaissais pas à l'air séduisant et évite une boucle

 

[Modeste geedee]

Re : supression espace JUSTE à la fin d'une cellule

Salut Patrick et non l'inverse (CTRP)

Les espaces ne sont probablement pas des espaces (Car(32))

en fait la question est : supprimer les espaces de fin

le probleme est donc double, dans les libellés à traiter il y a des espaces redondants en quantités variables...

La Fonction de feuille SUPPRESPACE élimine les espaces de début et de fin, et limite à un seul les espaces redondants internes

Et comme le fait remarquer JMB9, l'utilisation de RTRIM est judicieuse, mais fait appel à VBA...

l'equivalent feuille de calcul US de SUPPRESPACE (TRIM) renvoi d'ailleurs un résultat différent de la fonction VBA (TRIM)
ce que l'on pourra vérifier avec les fonctions ci-dessous:
pour la chaine : " CALL CG1 JUN 12 1.70 "

Function supprespaceFC(target)
' -----nettoyage aux extremités et au centre 
supprespaceFC = WorksheetFunction.Trim(target)
End Function

Function supprespaceVBA(target)
'-----nettoyage aux extrémités seules
supprespaceVBA = Trim(target)
End Function

Function supprespaceDroit(target)
' -----nettoyage à droite
supprespaceDroit = RTrim(target)
End Function

Function supprespaceGauche(target)
'-----nettoyage à gauche
supprespaceGauche = LTrim(target)
End Function

 

[garrec]

Re : supression espace JUSTE à la fin d'une cellule

Merci Modeste Geedee et tout le monde ça fonctionne