Discussion :

[YayaN]

Bonjour,

Je rencontre un problème. J'ai dans ma colonne un liste d'une centaine de films dont certains commencent par VF, d'autre par VOst et le reste en "".
Par exemple:
VOstHarryPotter
VFJumanji
VFRastaRocket
TopGun

Je souhaite faire disparaitre les "VF" et "VOst" de la colonne [A:A] et les restranscrire sur la même ligne mais dans la colonne [B:B]. (B7 étant qu'un exemple)

Comment puis-je indiquer que je souhaite avoir ces initiales dans la cellule voisine?

Est ce qu'il y a plus simple comme macro?

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
Sub Bauart()

Dim a As Range
With Sheets("Overview")
Set a = .[A:A].Find(What:="VF", LookIn:=xlValues, LookAt:=xlPart)

If Not a Is Nothing Then .[B7] = "VF"

Application.Range("A:A").Select
Selection.Replace "VOst", ""
Selection.Replace "VF", ""

End With

End Sub

Merci d'avance!

[Marc-L]

Bonjour,

rappel :

Important : Éditorial - à lire avant de poster

[YayaN]

Dsl, je rectifie le tir de suite
Merci pour l'info

[Menhir]

En supposant que tes données commencent en A1, tu mets en B1 :

Code :

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

=SI(GAUCHE(A1;2)="VF";STXT(A1;3;1000);A1)

Tu mets en C1 :

Code :

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

=SI(GAUCHE(B1;4)="VOst";STXT(B1;5;1000);B1)

Tu copies B1:C1 dans les lignes du dessous.

Tu sélectionnes toute ta colonne C > Ctrl+C
Tu sélectionnes A1 > Collage Spécial > Coller Valeur.

Ca ira bien plus vite que de faire une macro.

[Marc-L]

Bonjour,

dans la même veine :

[Menhir]

Tu as raison : l'usage du SUBSTITUTE était plus judicieux que celui du STXT.

[Marc-L]

Merci, une fois que tu as la formule, tu as quasiment le code …