VBA remplace caractères par formule
Résolu- VBA remplace caractères par formule
- Formule excel - Guide
- Caractères ascii - Guide
- Formule si et - Guide
- Caractères spéciaux symboles clavier - Guide
- Remplacer disque dur par ssd - Guide
3 réponses
14 févr. 2024 à 13:24
bonjour,
Dans ta description, tu expliques que tu veux obtenir "MARCHAND VIR". Si je lis bien ta formule, cela crée "VIR MARCHAND".
Je me trompes?
Tes exemples et ta description ne sont pas clairs. Donne des exemples plus complets, avec plusieurs situations.
Que veux-tu dire par " Ce qui n'est pas très rapide."? Tu as une liste des marchands, que tu voudrais utiliser dans une boucle?
par exemple jai plusieurs cellule suivantes :
VIR MARCHAND X MARCHAND VIR
VIR VENDEUR X VENDEUR VIR
VIR IMPORT X IMPORT VIR
VIR EXPORT X EXPORT VIR
VIREMENT POUR MARCHAND COMPTE 1233123 MARCHAND VIR
VIREMENT POUR VENDEUR COMPTE 1233123 VENDEUR VIR
VIREMENT POUR EXPORT COMPTE 1233123 EXPORT VIR
VIREMENT POUR IMPORT COMPTE 1233123 IMPORT VIR
Je veux REMPLACER ces cellules par celle ci-dessous :
MARCHAND VIR
VENDEUR VIR
IMPORT VIR
EXPORT VIR
MARCHAND VIR
VENDEUR VIR
EXPORT VIR
IMPORT VIR
Le problème, c'est que c'est une longue liste, du coup, je voudrais utiliser le principe de remplacement en ulisant une formule pour prendre seulement les caractères après le X ou la série de chiffre.
15 févr. 2024 à 10:34
Tout ces exemples commencent et se terminent par VIR.
Pourrait-on faire ainsi:
- pour chaque cellule de la sélection,
- si les trois premiers caractères sont "VIR" et les quatre derniers sont " VIR",
- alors on ne garde que les deux derniers mots
15 févr. 2024 à 15:24
Bonjour,
oui en macro, ce serait parfait.
Tu as une idée ?
Merci
15 févr. 2024 à 15:39
une idée:
Dim rg As Range, cl As Range, n As Integer
Set rg = Selection
For Each cl In rg
If Left(cl, 3) = "VIR" And Right(cl, 4) = " VIR" Then
n = InStrRev(Left(cl, Len(cl) - 4), " ")
cl = Right(cl, Len(cl) - n)
End If
Next cl
