Discussion :

[Guillaume_PMO]

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

[groslou2]

Il faut faire le test suivant: If Left(contenu_de_ta_cellule,2) = "by" Then ...

[Guillaume_PMO]

Merci!

Oui mais comment supprimer tous les caractères à partir de "by"?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ma_chaine = Right(ma_chaine, len(ma_chaine)-3)

[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".

[groslou2]

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

[Theze]

Bonjour,

Et avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[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"

[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".

[Guillaume_PMO]

Merci à vous deux, ca marche!!!!!

[Theze]

Re,

Oups, il te faut remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.