Macro à améliorer selon mon probléme

T

Tirou

XLDnaute Occasionnel

• 14 Mars 2013

• #2

Re : Macro à améliorer selon mon probléme

Bonjour Rabatcool,

Pour récupérer les 3 premiers caractères d'une chaine, c'est assez simple avec la fonction LEFT(chaine,longueur à garder)

Dans ton cas, il faut remplacer les

Code:

Sheets(1).Cells(i, 4)

par

Code:

Left(Sheets(1).Cells(i, 4), 3)

Ci-joint ton fichier modifié.

Après, est-tu certain qu'il s'agisse des 3 premiers caractères et pas plutôt des caractères avant le "-" ?

 

Pièces jointes

• Copie de Test.xlsm

  21.8 KB · Affichages: 30
• Copie de Test.xlsm

  21.8 KB · Affichages: 36
• Copie de Test.xlsm

  21.8 KB · Affichages: 32

Vote positif 0 Vote négatif

R

rabatcool

Guest

• 14 Mars 2013

• #3

Re : Macro à améliorer selon mon probléme

Bonjour et merci Tirou pour ce retour rapide.

Tirou à dit:

Après, est-tu certain qu'il s'agisse des 3 premiers caractères et pas plutôt des caractères avant le "-" ?

Cliquez pour agrandir...

Oui exactement, c'est aussi une solution, dans ce cas que dois je changé pour recuperer les caractères avant le "-"

 

Vote positif 0 Vote négatif

T

Tirou

XLDnaute Occasionnel

• 14 Mars 2013

• #4

Re : Macro à améliorer selon mon probléme

Bonjour Jean-Marcel,

Heureusement que tu passais par là, je partais dans une solution bien lourde avec les expressions régulière, trouver l'indice de caractère où couper, concaténer ce qui va bien ..... Je garde la Split en tête 🙂

 

Dernière édition: 14 Mars 2013

Vote positif 0 Vote négatif

R

rabatcool

Guest

• 14 Mars 2013

• #5

Re : Macro à améliorer selon mon probléme

Bonjour et merci Jean-Marcel pour cette ligne magique 🙂

Dis stp, est ce que c'est possible de mettre deux conditions, cad si le 3 eme caracteres est "-" ne prendre que les deux premiers sinon ne pas pas prendre plus de 3 caracteres.

Sur mon fichier d'origine j'ai des references qui ne contiennet le "-" et je ne veux pas récupéré plus que les 3 premiers caracteres.

 

Vote positif 0 Vote négatif

R

rabatcool

Guest

• 14 Mars 2013

• #6

Re : Macro à améliorer selon mon probléme

Bonjour,

J'ai fais comme ci dessous et ca a marcher, merci pour ton aide.

'If Mid(Left(Sheets(1).Cells(i, 14), 3), 3, 1) = "-" Then
'cel = Left(Sheets(1).Cells(i, 14), 2)
'Else
'cel = Left(Sheets(1).Cells(i, 14), 3)
'End If

 

Vote positif 0 Vote négatif

T

Tirou

XLDnaute Occasionnel

• 15 Mars 2013

• #7

Re : Macro à améliorer selon mon probléme

Oula ! pour le coup, c'est compliqué avec des conditions 🙂

On prend TOUJOURS la première chaine tronquée à 3 caractères : un petit mix entre Left et split? 🙂

Code:

Left(Split(Sheets(1).Cells(i, 4), "-")(0), 3)

L'astuce tient au fait que si on demande un nombre de caractères supérieur au nombre de caractères de la chaine, c'est la chaine entière qui est renvoyée.

Fichier en pj

 

Pièces jointes

• Copie de Test.xlsm

  23.9 KB · Affichages: 37
• Copie de Test.xlsm

  23.9 KB · Affichages: 36
• Copie de Test.xlsm

  23.9 KB · Affichages: 38

Vote positif 0 Vote négatif