XL 2016 Problème avec une ligne de commande VBA

Hasco

XLDnaute Barbatruc

Repose en paix

• 7 Mai 2021

• #2

Bonjour,

Difficile d'être juste, mais je suppute fortement un placement inadéquat de parenthèse. Ne serait-ce pas :

Tfinal(1, j) = Left(Tsource(i, 13), Len(Tsource(i, 13)) - 20)

Cliquez pour agrandir...

2 parenthèses après le 13 et une seule après le - 20

cordialement

 

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 7 Mai 2021

• #3

Bonjour Roblochon,

Non c'est pas ca j'ai déjà essayé
Cordialement

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 7 Mai 2021

• #4

Re,

On fait avec qu'on a, he !

Bonne soirée

 

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 7 Mai 2021

• #5

j'ai essayé avec la commande suivante

Tfinal(1, j) = Left(Tsource(i, 13), InStrRev(Tsource(i, 13), "_")

J'obtiens presque le résultat voulu sauf que j'ai encore le "_" a la fin de chaque nom

j'ai donc essayé avec
Tfinal(1, j) = Left(Tsource(i, 13), (InStrRev(Tsource(i, 13), "_")-1))

Mais la ca bug

 

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 7 Mai 2021

• #6

Je mets pour faciliter la compréhension deux fichiers.
Le premier "Fichier avec données à importer" est le fichier avec les noms à importer.
Et "MONFICHIERS-V2" est le fichier de travail.
Si vous cliquez sur le bouton et sélectionnez le fichier "Fichier avec données à importer" alors il importer les données. Comme vous pouvez le voir les noms dans le colonne A se termine par un "_" que j'aimerai supprimer mais je n'y arrive pas.

Je suis reste dispo. Merci

 

Pièces jointes

• Fichier avec données à importer.xlsx

  18.4 KB · Affichages: 9
• MONFICHIERS - V2.xlsm

  37.7 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Mai 2021

• #7

Bonjour
chez moi ça fonctionne

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 8 Mai 2021

• #8

Bonjour,

Alors chez moi, ces deux lignes fonctionnent correctement sur les communiquées :

VB:

Tfinal(1, j) = Left(Tsource(i, 13), InStrRev(Tsource(i, 13), "_") - 1)
Tfinal(1, j) = Left(Trim(Tsource(i, 13)), Len(Trim(Tsource(i, 13))) - 21)

La deuxième comporte un Trim car la dernière ligne (46) des données comporte une espace finale qui faussait le résultat sur cette ligne, sinon, elle fonctionne.

P.S. avec excel 2016, vous pouvez également traiter ça avec power query (Exemple sur la feuille 'PQ' du classeur joint)

P.S. la prochaine fois, joignez tout de suite un fichier exemple, ça ira plus vite
Là vous pouviez faire un fichier avec juste quelques items dans une feuille et juste une petite macro qui bouclait sur ces items avec la ligne incriminée.

Cordialement

 

Pièces jointes

• MONFICHIERS - V2.xlsm

  61 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

S

scoubidou35

XLDnaute Occasionnel

• 8 Mai 2021

• #9

Bonjour à tous,
En effet je viens de faire le test avec le fichier de donnée à importer sur mon fichier et cela fonctionne mais quand je cherche à importer depuis mon vrai fichier de donnée à importer ca bug. Je dois avoir un problème avec ce fichier
est ce que c'est lié au fait qu'il y a des cellules vide et/ou données récupéré avec la fonction recherche. Je regarde cela.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Mai 2021

• #10

est ce que c'est lié au fait qu'il y a des cellules vide et/ou données récupéré avec la fonction recherche. Je regarde cela.

Cliquez pour agrandir...

la réponse est dans la question
d’après toi que donne le instrev si il n'y a pas de "_"

 

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 8 Mai 2021

• #11

patricktoulon à dit:

la réponse est dans la question
d’après toi que donne le instrev si il n'y a pas de "_"

Cliquez pour agrandir...

OK et comment je peux y remédier car j'ai passé mon après midi à modifier le fichier en passant par power querry mais je ne suis pas entièrement satisfait ca va me dépanner en attendant de trouver la solution en vba.
Par quoi remplacer ma commande pour ne pas utiliser instrev ?

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 9 Mai 2021

• #12

Bonjour,

J'aurais apprécié un commentaire sur le dernier travail effectué en post#5 mais comme je ne suis pas chien :

VB:

Dim Pos As Integer ' en tête de procédure
'
'  .......
'
Pos = InStrRev(Tsource(i, 13), "_")
Tfinal(1, j) = IIf(Pos > 0, Left(Tsource(i, 13), Pos - 1), Tsource(i, 13))

En tout cas ce sera ma dernière intervention ici.

 

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 11 Mai 2021

• #13

Roblochon à dit:

Bonjour,

J'aurais apprécié un commentaire sur le dernier travail effectué en post#5 mais comme je ne suis pas chien :

VB:

Dim Pos As Integer ' en tête de procédure
'
'  .......
'
Pos = InStrRev(Tsource(i, 13), "_")
Tfinal(1, j) = IIf(Pos > 0, Left(Tsource(i, 13), Pos - 1), Tsource(i, 13))

En tout cas ce sera ma dernière intervention ici.

Cliquez pour agrandir...

Bonjour Roblochon,
Désolé, de ne pas avoir mis un commentaire à votre précédent post.
J'ai testé en suivant votre modèle le power querry et j'ai passé mon après midi à le faire, je ne maitrise pas encore l'outil . Mais j'apprends.
Cela fonctionne très bien mais dans le fichier de travail, mais je perds une partie des options qui figure avec la version vba. Mais je valide la solution à mon problème.

Après, un peu de repos, et les différentes remarsques de chacun, j'ai repris ce matin mon fichier de travail et je pense avoir trouvé la solution à mon problème avec la commande vba :

VB:

Tfinal(1, j) = Replace(Tsource(i, 13), Right(Tsource(i, 13), 20), "")

Je vous remercie donc tous encore une fois pour votre aide si précieuse.
Bonne journée à tous.

 

Vote positif 0 Vote négatif