Macro VBA pour supprimer des caractère situés après une valeur

Version imprimable

17/03/2011, 14h18
Guillaume_PMO

Macro VBA pour supprimer des caractère situés après une valeur

Bonjour!

Je cherche à faire une macro VBA:
J'ai une colonne avec des noms de projets. Certains contiennent les caractères "by XXXXXXX", d'autres non.
Je souhaiterais parcourir les enregistrements et supprimer le "by XXXXX" lorsque que je le rencontre.

J'ai déjà une boucle, mais je n'arrive pas à faire la suppression des caracteres à partir de "by".

Merci d'avance si quelqu'un peut m'aider!

Guillaume
17/03/2011, 14h22
groslou2

Il faut faire le test suivant: If Left(contenu_de_ta_cellule,2) = "by" Then ...
17/03/2011, 14h44
Guillaume_PMO

Merci!

Oui mais comment supprimer tous les caractères à partir de "by"?
17/03/2011, 14h52
groslou2

Je comprends pas bien ce que tu veux. Si tu veux "by" dans ta cellule, tu n'as qu'à écraser ta cellule en écrivant "by" dedans. Si tu veux ce qu'il y a après:

Code:

ma_chaine = Right(ma_chaine, len(ma_chaine)-3)
17/03/2011, 14h56
Guillaume_PMO

Non ca ne marche pas, car après le "by", il peut y avoir 3 ou 15 caractères à supprimer. Je cherche donc un moyen de supprimer tous les caractères à droite à partir de ma variable "by".
17/03/2011, 14h58
groslou2

As-tu des caractères à conserver avant "by"?

Bonjour,

Et avec ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Test()
 
    Dim Pos As Integer
    Dim I As Long
 
    'dans la colonne A
    For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
 
        With Range("A" & I)
 
            Pos = InStr(.Value, "by")
 
            If Pos <> 0 Then
                .Value = Left(.Value, InStr(.Value, "by") + 1)
            End If
 
        End With
 
    Next I
 
End Sub

Hervé.

17/03/2011, 15h46
Guillaume_PMO

oui, en fait avant, j'ai le nom du projet, je dois garder ces caractères.
Par exemple:
"project1 by tony" doit devenir project1

et
"project2 helena" doit rester ainsi car ne contient pas "by"
17/03/2011, 15h49
groslou2

Je comprends mieux. Là, c'est ce que Theze t'as donné qu'il te faut. Change le +1 en -2, par contre, sinon tu vas conserver le "by".
17/03/2011, 15h59
Guillaume_PMO

Merci à vous deux, ca marche!!!!!
17/03/2011, 17h06
Theze
Re,

Oups, il te faut remplacer :
Code:

1 2 .Value = Left(.Value, InStr(.Value, "by") - 2)
par :
Code:

1 2 .Value = Left(.Value, Pos - 2)
car il ne sert à rien d'appeler deux fois la même fonction (InStr), ça ralenti le code.

Hervé.