XL 2010 Résolu par Marcel : souci de code

[Usine à gaz]

Bonjour à toutes et à tous,

Toujours sur mon fichier déjà super grâce à vous, me revoilà devant vous pour 2 soucis LOL

Pour préparer automatiquement l'envoi d'un sms, dans le classeur joint, j'ai besoin de :
1 - remplacer PART ou ART ou RT ou T ... PLACE UNIQUEMENT en début du texte,

j'y planche depuis ce matin et malgré mes recherches, rien à faire, je ne trouve pas.
j'ai fait aussi une panoplie d'essais sans succès.
je ne sais plus que faire 🙁
J'va virer "barjot 😕" ou quelque chose comme ça.

Auriez-vous la solution ?
je ne sais vraiment comment dire Merci alors, tout simplement Merci à toutes et à tous,
Amicalement,
Lionel,

 

[Usine à gaz]

Re le forum,

Apparemment, mon concatener est bon mais il me reste :
Pour préparer automatiquement l'envoi d'un sms, dans le classeur joint, j'ai besoin de :
1 - remplacer PART ou ART ou RT ou T ... PLACE UNIQUEMENT en début du texte,

Une idée ?

 

[Usine à gaz]

Re à toutes et à tous,

J'ai continué mes essais et j'ai pensé qu'avec une condition, ça fonctionnerait.
Je pense que c'est la bonne solution faute de mieux.
mais mon code bute sur cette ligne : If [LEFT(RC[-26],4)] = "part" Then
Je n'arrive pas à le corriger.
je joins le classeur modifié,
Merci à vous tous,
Amicalement,
Lionel,

 

[TooFatBoy]

Bonjour,

Si j'ai bien compris, en fait tu veux supprimer (et non "remplacer") tout ce qui précède le numéro du département ?

Si c'est bien ça, je te propose ce bout de code :

TexteEnCours = ActiveCell.Value
While Left(TexteEnCours, 1) > "9" Or Left(TexteEnCours, 1) < "0"
    TexteEnCours = Right(TexteEnCours, Len(TexteEnCours) - 1)
Wend

 

[Usine à gaz]

Bonjour Marcel,
Merci d'être encore là 🙂

j'ai mis ton code dans ma macro par ça ne supprime pas LOL
je joins le fichier modifié.

 

[TooFatBoy]

Ta macro Macro2 devient ceci (j'ai laissé ton code [devenu inutile si je ne me trompe pas] en commentaire) :

Sub Macro2()
'
Dim TexteEnCours As String

    TexteEnCours = ActiveCell.Value
   While Left(TexteEnCours, 1) > "9" Or Left(TexteEnCours, 1) < "0"
      TexteEnCours = Right(TexteEnCours, Len(TexteEnCours) - 1)
   Wend
   ActiveCell.Offset(0, 26).Select
   ActiveCell.Value = TexteEnCours

'   ActiveCell.Copy
'   ActiveCell.Offset(0, 26).Select
'   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
'      :=False, Transpose:=False
'   On Error Resume Next
'   ActiveCell.Replace What:="part", Replacement:="", LookAt:=xlPart, _
'      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
'      ReplaceFormat:=False
'   On Error Resume Next
'   ActiveCell.Replace What:="art", Replacement:="", LookAt:=xlPart, _
'      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
'      ReplaceFormat:=False
'
'   ActiveCell.Offset(0, 0).Select
'   Application.CutCopyMode = False
   Selection.TextToColumns Destination:=ActiveCell, DataType:=xlFixedWidth, _
      FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(18, 1), Array(22, 1), Array(26, 1), _
   Array(30, 1)), TrailingMinusNumbers:=True
   ActiveCell.Offset(0, -26).Select
   ActiveCell.FormulaR1C1 = _
   "=CONCATENATE(RC[26],""P."","" "",""Avez-vous vendu ?"","" "",""Voici mon n° tel :"",""0111111111"","", "",""Cordlt"")"
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
   ActiveCell.Offset(0, 26).Select
   Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 6)).Select
   Selection.ClearContents
   ActiveCell.Offset(0, -26).Select
End Sub

 

[TooFatBoy]

Quant à ton "CONCATENER", je ne comprends pas à quoi il sert. 🙁

 

[Usine à gaz]

Re Marcel,

Bon sang, ça marche nickel mais je ne comprends pas ton code.
Je vais voir pour le comprendre.
Merci Marcel pour ton aide décisive.
LOL : je ne te dis pas depuis combien de temps je cherche 😕
Le concaténer me sert à préparer le sms mais c'est bon, ça marche aussi.
Je remets le fichier.
Amicalement,
Lionel,

 

[TooFatBoy]

Je comprends bien que ça sert à préparer ton SMS, mais je ne pige pas pourquoi tu ne le fais pas dans le code, et si tu le fais dans une formule pourquoi utiliser CONCATENER plutôt que simplement =Q6 & "P..." ?

PS : je peux bien sûr me tromper, mais je ne crois pas qu'on puisse utiliser "ActiveCell" dans une formule.

 

[TooFatBoy]

Bon sang, ça marche nickel mais je ne comprends pas ton code.

C'est hyper simple : je mets la chaîne de caractères dans une variable, et tant que le premier caractère de la chaîne de caractères contenue dans cette variable n'est pas un chiffre (donc un caractère entre "0" et "9"), je raccourci la chaîne de caractères contenue dans cette variable en supprimant le premier caractère. 😉

 

[Usine à gaz]

effectivement, je n'ai pas réussi mais je me suis servi de : RC[26]
Tu peux le voir en test dans le dernier fichier

 

[Usine à gaz]

C'est hyper simple : tant que le premier caractère n'est pas un chiffre (donc un caractère entre "0" et "9"), je supprime le premier caractère. 😉

OK, merci pour cette info

 

[TooFatBoy]

Si tu réponds aux questions posées, on pourrait peut-être avancer plus vite. 😉

je ne pige pas pourquoi tu ne le fais pas dans le code, et si tu le fais dans une formule pourquoi utiliser CONCATENER plutôt que simplement =Q6 & "P..." ?

 

[Usine à gaz]

LOL, je croyais t'avoir répondu.
post 8 et 12
Et j'ai reçu tes explications et je t'en remercie.
ça marche super maintenant 🙂
Un grand Merci à toi,
Amicalement,
Lionel,

 

[TooFatBoy]

Non, les posts 8 et 12 n'apportent pas de réponse à ma question.

Mais ce n'est franchement pas grave si ce que tu veux faire fonctionne maintenant.
Le principal est que ton projet avance. 😉