Supprimer caracteres apres repère

dg62

XLDnaute Barbatruc

• 17 Février 2006

• #2

Bonjour Maximom

Code:

Sub Tronque()
Dim balise As String
Dim mot As String
Dim pos As Integer
Dim I As Integer
balise = '- ABC'
    For i = 2 To 10000

        mot = Range('C' & i).Value
        pos = InStr(1, mot, balise)
        mot = Left(mot, pos - 1)
        Range('C' & i).Value = mot

    Next i
End Sub

Message édité par: dg62, à: 17/02/2006 12:35

 

Vote positif 0 Vote négatif

M

Maximom

Guest

• 17 Février 2006

• #3

Bonjour Dg62,

Merci mais cela ne fonctionne pas..

A premiere vue c'est cette ligne qui bug:
mot = Left(mot, pos - 1)

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Février 2006

• #4

bonjour Maximom

je te suggere fortement de creer un petit fichier avec quelques lignes parmi les 10000
il sera ainsi plus facile de debugger (s'il y a lieu, ce dont je doute fort)
il est plus que probable que l'énoncé de ton probleme souffre de lacune(s)

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Février 2006

• #5

Re


Quelle version d'excel utilises-tu ?


Chez moi sur excel 2003 il n'y a aucun problème.

Excuses moi Pierre Jean Bonjour

et j'arrive aux mêmes conclusions que toi.

Message édité par: dg62, à: 17/02/2006 13:25

 

Vote positif 0 Vote négatif

M

Maximom

Guest

• 17 Février 2006

• #6

Re
J'utilise Excel 2002
et voici le fichier test


[file name=test_20060217133749.zip size=538]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060217133749.zip[/file]

 

Pièces jointes

• test_20060217133749.zip

  538 bytes · Affichages: 20

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Février 2006

• #7

re


Apres essai sur ton fichier, 1 problème décelé.

des références n'ont pas la fameuse chaîne ABC et de ce fait la fonction left renvoyait une erreur.

Message édité par: dg62, à: 17/02/2006 14:48

Message édité par: dg62, à: 17/02/2006 15:12

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Février 2006

• #8

re


petite correction

Code:

Sub trouve()
Dim balise As String
Dim mot As String
Dim pos As Integer
balise = 'ABC'
    For i = 2 To 10000

        mot = Range('C' & i).Value
        pos = InStr(1, mot, balise)
        
       If pos > 0 Then
        mot = Left(mot, pos - 3)
        Range('C' & i).Value = mot
        End If
    Next i
End Sub

Tu peux débuter la boucle à 1 si tu n'as pas de ligne d'entête.
Le bug venait de l'absence de repère pour certaines références.

Message édité par: dg62, à: 17/02/2006 14:42

Message édité par: dg62, à: 17/02/2006 14:54

 

Vote positif 0 Vote négatif

M

Maximom

Guest

• 17 Février 2006

• #9

Merci de votre perceverence... 😉

Mais pour moi cela ne fonctionne pas...
j'ai fait plusieurs tests,
j'ai toujours ce message d'erreur...

N'y aurait il pas une autre méthode?

Merci

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Février 2006

• #10

re

Quel est ce message ?

 

Vote positif 0 Vote négatif

M

Maximom

Guest

• 17 Février 2006

• #11

le message d'erreur est:

Erreur d'execution '5':
Argument ou appel de procédure incorect

et ensuite je clique sur débogage:
j'ai la fleche jaune sur cette ligne:

mot = Left(mot, pos - 1)

Merci...

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Février 2006

• #12

re

il faut prendre mon nouveau code corrigé et la normalement plus de problème.

Code:

Sub trouve()
Dim balise As String
Dim mot As String
Dim pos As Integer
Dim I As Integer
balise = 'ABC'
    For i = 2 To 10000

        mot = Range('C' & i).Value
        pos = InStr(1, mot, balise)
        
       If pos > 0 Then
        mot = Left(mot, pos - 3)
        Range('C' & i).Value = mot
        End If
    Next i
End Sub

Message édité par: dg62, à: 17/02/2006 15:06

Message édité par: dg62, à: 17/02/2006 15:17

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 17 Février 2006

• #13

Attention il y a un ; qui traîne devant le Pos. Je ne sais pas de ou il vient mais dans tous les cas il faut le supprimer.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Février 2006

• #14

bonjour Maximom bonjour dg62

peut-etre Maximom as-tu executé la macro sur ton fichier test
dans ce cas il faut adapter (C devient A)
ci-dessous ton fichier avec la macro de dg62 adaptée ET QUI FONCTIONNE

desolé pour le fichier :il suit

Message édité par: pierrejean, à: 17/02/2006 15:22

 

Pièces jointes

• test1_20060217151531.zip

  545 bytes · Affichages: 19

Vote positif 0 Vote négatif

M

Maximom

Guest

• 17 Février 2006

• #15

hum... :unsure:

Erreur de compilation:
erreur de syntaxe

fleche jaune sur Sub trouve
et If ;pos > 0 Then
en rouge
😱

 

Vote positif 0 Vote négatif