Bonjour,
Je gère une tres grosse base de donnée et je souhaiteraisqu'on m
remplace en colonne 4 tous les identifiants contenant le mot MSG (cel
peut etre .MSG.IS ou .MSG. ou .OFFR.MSG. etc...) par le mo
MESSAGERIE.
Je fais un replace de chaque nom concerné et la compilation es
extremement longue.
Comment faire?
Merc
--
benjaminalim
-----------------------------------------------------------------------
benjaminalimi's Profile: http://www.msusenet.com/member.php?userid=209
View this thread: http://www.msusenet.com/t-187054069
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Le code suivant est valable s'il n'y a qu'une occurence de "MSG" par cellule. Si ce n'est pas le cas, dis-le.
Sub Test() Dim Var, c As Range For Each c In Range("A:A") Var = Split(c, "MSG") c.Value = Var(0) & "MESSAGERIE" & Var(1) Next c End Sub
Cordialement. Daniel "benjaminalimi" a écrit dans le message de news:
Bonjour, Je gère une tres grosse base de donnée et je souhaiteraisqu'on me remplace en colonne 4 tous les identifiants contenant le mot MSG (cela peut etre .MSG.IS ou .MSG. ou .OFFR.MSG. etc...) par le mot MESSAGERIE. Je fais un replace de chaque nom concerné et la compilation est extremement longue. Comment faire? Merci
Bonjour.
Le code suivant est valable s'il n'y a qu'une occurence de "MSG" par
cellule. Si ce n'est pas le cas, dis-le.
Sub Test()
Dim Var, c As Range
For Each c In Range("A:A")
Var = Split(c, "MSG")
c.Value = Var(0) & "MESSAGERIE" & Var(1)
Next c
End Sub
Cordialement.
Daniel
"benjaminalimi" <benjaminalimi.1qptcf@no-mx.msusenet.com> a écrit dans le
message de news: benjaminalimi.1qptcf@no-mx.msusenet.com...
Bonjour,
Je gère une tres grosse base de donnée et je souhaiteraisqu'on me
remplace en colonne 4 tous les identifiants contenant le mot MSG (cela
peut etre .MSG.IS ou .MSG. ou .OFFR.MSG. etc...) par le mot
MESSAGERIE.
Je fais un replace de chaque nom concerné et la compilation est
extremement longue.
Comment faire?
Merci
Bonjour. Le code suivant est valable s'il n'y a qu'une occurence de "MSG" par cellule. Si ce n'est pas le cas, dis-le.
Sub Test() Dim Var, c As Range For Each c In Range("A:A") Var = Split(c, "MSG") c.Value = Var(0) & "MESSAGERIE" & Var(1) Next c End Sub
Cordialement. Daniel "benjaminalimi" a écrit dans le message de news:
Bonjour, Je gère une tres grosse base de donnée et je souhaiteraisqu'on me remplace en colonne 4 tous les identifiants contenant le mot MSG (cela peut etre .MSG.IS ou .MSG. ou .OFFR.MSG. etc...) par le mot MESSAGERIE. Je fais un replace de chaque nom concerné et la compilation est extremement longue. Comment faire? Merci
