Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Suppression des 4 caractères de gauches

P

Portlouisien

Guest
Bonjour,
Je cherche a supprimer les 4 caractères de gauche d'une chaine de caractères. J'ai beau chercher dans l'aide je ne trouve pas ce type de formule...
Si vous pouvez m'aider!
Merci d'avance
 
H

Henry

Guest
Slt,

Sub test()
dim MonString as string
MonString="blablabla"
MonString=left(MonString,len(MonString)-4)
'ou bien MonString=right(MonString,len(MonString)-4)
msgbox MonString
end sub
A+


(non testé!)
 
G

Gérard Dezamis

Guest
Bonsoir Portlouisien

=DROITE(A1;NBCAR(A1)-4) le texte étant en A1

Nécessaire de faire un copier coller spécial valeur pour avoir qq chose de "propre" et d'exploitable ensuite.

Vive la Bretagne du Sud

@+
GD
 
G

Gérard Dezamis

Guest
Bonsoir Henry

Si tu le veux bien, je me mijote mon petit cours particulier de VBA !

Peux tu me dire comment récupérer ce qui est affiché dans ton Msgbox et ensuite le copier en remplacement de la donnée d'origine ? en A1 car j'ai modifié ton code comme suit :

Sub test()
Dim MonString As String
MonString = Range("A1").Value
MonString = Right(MonString, Len(MonString) - 4)
MsgBox MonString

' copier la nouvelle valeur en A1 (??????????)

End Sub

Merci d'avance

@+
GD
 
H

Henry

Guest
Slt Gérard,

Sub test()
Dim MonString As String
MonString = Range("A1").Value
MonString = Right(MonString, Len(MonString) - 4)
range("A1")=MonString 'ou bien range("A1").value=MonString
End Sub

A+
 
G

Gérard Dezamis

Guest
Merci
Henry
En cette fin de soirée
Me voilà comblé
Je balbutie en VBA
Mais je progresse grâce à Toa !

Booof ! Je crois qu'il est grand temps que j'aille me coucher !

@+
GD
 
P

Pascal76

Guest
Bonjour le fil

Juste pour dire aux 2 bretons du sud que je suis fan de cette région (en particulier le golfe) et que sur Lien supprimé vous trouverez un lien qui vous plaira peut-être.

Bonne journée

Pascal
 

Discussions similaires

Réponses
5
Affichages
318
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…