Se connecter avec
S'enregistrer | Connectez-vous

supprimer de le début d'une chainte de caractère

Dernière réponse : dans Programmation

Bonjour,
Je voudrais savoir si c'est possible de virer le début d'une chaine de caractère

exemple dans ma cellule Excel j'ai "Identifiant: xxxxxxxxxxxx"
et j'aimerais avoir "xxxxxxxxxxxx" le probleme est que la longueur est aléatoire et je voulais savoir s'il n'y avait pas un autre moyen que la fonction Mid avec un grand nombre pour résoudre mon problème?

Autres pages sur : supprimer debut chainte caractere

Lassé par la pub ? Créez un compte

Dans EXCEL, tu combines la fonction CHERCHE qui te donne la position d'un caractère et la fonction STXT qui extrait les caractères d'une chaine à partir d'une certaine position.
Dans ton exemple "ident: xxxxxx" ça donne: STXT(A2;CHERCHE(":";A2)+2;20) où A2 est la chaine de caractère "ident: xxxxx", le point de départ est ":" et +2 pour enlever le caractère "espace"
Si ça peut t'aider...
Expert Programmation

darkspoilt a dit :
ah m*****....
ta pas un autre truc??
Sinon un truc comme ça c'est possible a ton avis tu crois que
un code comme ca ca va marché?
  1. Range("A3").FormulaR1C1=Mid(Range("A3").FormulaR1C1,5,20)


Ben certainement pas !!!!
Ce n'est pas la formule qu'il faut retailler.

Et puis tu cherches à mettre le tout dans une formule ou à le faire en VB ?
Tu parles de remplacer ident: xxxxxxxx par xxxxxxxx je suppose donc que tu veux faire une passe en VB.

  1. debut_a_virer = "ident: "
  2. If Left(Range("A3").Text, Len(debut_a_virer)) = debut_a_virer Then
  3.     Range("A3").Text =Mid(Range("A3").Value, Len(debut_a_virer)+1)
  4. End If

Slt,

Zeb je suis pas trop d'accord avec ton code (:D ) à la limite un like ca marcherait.
  1. debut_a_virer = "ident: "
  2. If Range("A3" ).Text like debut_a_virer & "*" Then
  3.     Range("A3" ).Text =Mid(Range("A3" ).Value, Len(debut_a_virer))
  4. End If
Expert Programmation

Il est très bien mon code... une fois édité. :sarcastic: 
Surtout que le tien, il garde le dernier caractère à supprimer :kaola: 


/private
:hello:  Freeman. De retour sur PPC ?
T'as vu, on dit THFR maintenant. C'est comme PPC, mais en rouge :D 

Pareil freeman bah en fait je veux mettre tout dans une formule d'ou mon code il est crade j'avoue mais fonctionnel

  1. Range("A3" ).FormulaR1C1=Mid(Range("A3" ).FormulaR1C1,5)


Après explique ou est le problème la dedans? quel erreur cela peut produire?
Expert Programmation

Ça devrait fonctionner.
A part que je n'ai toujours pas compris pourquoi tu t'entêtes avec des .FormulaR1C1 là où un .Text suffit.

"ident: " ça prend 7 caractères avec l'espace, donc :
  1. Range("A3" ).Value=Mid(Range("A3" ).Text, 8)
Lassé par la pub ? Créez un compte

Répondre Créer un nouveau sujet