Majuscule et sans espace

[DERKOO]

Bonjour sacré forum


je cherche a ce que ds le contenu tous les espaces soient supprimés (remplacé par des '-' seraient idéale) et que les lettres se mettent en Majuscule. `

EST CE POSSIBLE?

Pour les majuscules j ai essayé la fonction UCase ca marche très bien.
Mais quand je supprime le contenu de la cellule ca me marque unE erreur..
If Not Intersect(Range('c19'), Target) Is Nothing Then Target.Value = UCase(Target)

Mess error 13
LES TYPES NE COINCIDENT PAS



dekoo

 

[PascalXLD]

Bonjour

essaies ceci

If Not Intersect(Range('c19'), Target) Is Nothing And Target <> '' Then

Target = Replace(Target, ' ', '-')
Target = UCase(Target)

End If


Bon courage

 

[Ity]

bonjour DERKOO,

Pour remplacer tu peux simplement utiliser la fonction intégré dans Excel : Ctrl H (ou edition remplacer)

C'est trop simple comme solution ?!

Par contre je ne suis pas assez calé pour t'aider sur la deuxième partie de ton problème...

 

[DERKOO]

Salut Pascal Salut Ity

Merci pour les infos
Le pb des espace c réglé

Mais mon message d erreur s affiche tj lors de la suppresion du contenu.. Bizarre

 

[DERKOO]

En fait cela s´applique à toute ma feuille

quand je selectionne une cellule et que je fais supprimer.
Le message d erreur reapparait et m indique cette fonction

If Not Intersect(Range('c19'), Target) Is Nothing And Target <> '' Then

Target = Replace(Target, ' ', '-')


End If
Mess error 13
LES TYPES NE COINCIDENT PAS

Quan je la quitte tout va bien..
Bizarre Bizarre

 

[PascalXLD]

Re

essaies de rajouter

On error goto fin

avant la ligne

If Not Intersect(Range('c19'), Target) Is Nothing And Target <> '' Then

et

fin:

juste avant

end sub

Message édité par: Pascal76, à: 17/06/2005 15:31