Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fonction replace

Fonction replace

9 réponses
Avatar
claudy
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
\\\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
\ ( (_/
\_)
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
michdenis
Bonjour Claudy,

as-tu essayé ceci :


For Each C In Selection
C.Offset(0, 1).Value = Replace(UCase(C.Value), "FACTURE", "")
Next C



Salutations!



"claudy" a écrit dans le message de news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)
Avatar
...Patrick
ucase("factures") peut etre , pas essayé


--
...Patrick
Quoi que vous fassiez, faites le bien .
Mail: http://cerbermail.com/?KPW0tTCjFw
Connectez vous sur ce forum par :
news://msnews.microsoft.com/microsoft.public.fr.excel


"claudy" a écrit dans le message de
news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)




Avatar
LeSteph
Bonsoir,,
une idée si tu n'a pas de contractures
sinon tu te retrouves avec un contrat(lol):

Sub factureplace()
Dim c
For Each c In Selection.Cells
On Error Resume Next
c.Offset(0, 1).Replace what:="actures", replacement:="acture"

c.Offset(0, 1).Replace what:="?acture", replacement:=""
Next

End Sub
"claudy" a écrit dans le message de
news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)




Avatar
claudy
ça va po...:-((
A+

"...Patrick" <http://cerbermail.com/?KPW0tTCjFw> a écrit dans le message de
news:
ucase("factures") peut etre , pas essayé


--
...Patrick
Quoi que vous fassiez, faites le bien .
Mail: http://cerbermail.com/?KPW0tTCjFw
Connectez vous sur ce forum par :
news://msnews.microsoft.com/microsoft.public.fr.excel


"claudy" a écrit dans le message de
news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)








Avatar
docm
Bonsoir.

Et si tu n'as pas de manufacture

c.Offset(0, 1).Replace what:="factures", replacement:=""

c.Offset(0, 1).Replace what:="facture", replacement:=""

Amicalement.

"LeSteph"a écrit:
Bonsoir,,
une idée si tu n'a pas de contractures


ou de fracture

sinon tu te retrouves avec un contrat(lol):

Sub factureplace()
Dim c
For Each c In Selection.Cells
On Error Resume Next
c.Offset(0, 1).Replace what:="actures", replacement:="acture"

c.Offset(0, 1).Replace what:="?acture", replacement:=""
Next

End Sub
"claudy" a écrit dans le message de
news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)








Avatar
docm
Bonsoir Claudy.

For Each c In Selection
c.Offset(0, 1).Value = c.Value
c.Offset(0, 1).Replace What:="facture", Replacement:="", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:úlse
Next c

Amicalement.

"claudy" wrote in message
news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)




Avatar
LeSteph
Bonjour docm,
:-))
Il te restera manu...! Il est sympa manu


"docm" a écrit dans le message de
news:
Bonsoir.

Et si tu n'as pas de manufacture

c.Offset(0, 1).Replace what:="factures", replacement:=""

c.Offset(0, 1).Replace what:="facture", replacement:=""

Amicalement.

"LeSteph"a écrit:
Bonsoir,,
une idée si tu n'a pas de contractures


ou de fracture

sinon tu te retrouves avec un contrat(lol):

Sub factureplace()
Dim c
For Each c In Selection.Cells
On Error Resume Next
c.Offset(0, 1).Replace what:="actures", replacement:="acture"

c.Offset(0, 1).Replace what:="?acture", replacement:=""
Next

End Sub
"claudy" a écrit dans le message de
news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)












Avatar
docm
:))

"LeSteph" wrote in message
news:#
Bonjour docm,
:-))
Il te restera manu...! Il est sympa manu


"docm" a écrit dans le message de
news:
Bonsoir.

Et si tu n'as pas de manufacture

c.Offset(0, 1).Replace what:="factures", replacement:=""

c.Offset(0, 1).Replace what:="facture", replacement:=""

Amicalement.

"LeSteph"a écrit:
Bonsoir,,
une idée si tu n'a pas de contractures


ou de fracture

sinon tu te retrouves avec un contrat(lol):

Sub factureplace()
Dim c
For Each c In Selection.Cells
On Error Resume Next
c.Offset(0, 1).Replace what:="actures", replacement:="acture"

c.Offset(0, 1).Replace what:="?acture", replacement:=""
Next

End Sub
"claudy" a écrit dans le message de
news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi
avec




"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)
















Avatar
YannX
Bonjour,

J'aimerais appliquer automatiquement un FindReplace à la sélection de
colonnes,b
pour pouvoir modifier un ensemble de formules (changer les références des
zones nommées),
déplacer les références sur un classeur externe, etc...

Votre fil me donne tout plein d'idées, sauf que je ne sais pas créer la
bonne
"Selection " : par exemple, le voudrais modifier tous les
=RECHERCHEV( "xxx";"Table";44; en
=RECHERCHEV( "xxx";"Table";44; en
voire si possible m'en faire une CrossRef
inspirée de cette précédente étude.

Exemple d'application :
' fonction établissant un Dictionnaire de données interactif avec filtre
Dim namfeuils As Name
ActivOnglet ("Ctrl_T_noms") ' sécurité....
For Each namfeuils In ActiveWorkbook.Names
With namfeuils
If .Name Like msk & "*" Then
ActiveCell.Value = .Name
ActiveCell.Offset(0, 1).Activate
' ActiveCell.Value = Range(namfeuils).AddressLocal
ActiveCell.Value = "' " & .RefersTo 'y compris onglet
' ActiveCell.Value = Range(namfeuils).Address
ActiveCell.Offset(1, -1).Activate
End If
End With
Next namfeuils

Par ailleurs, et toujours dans le meme problème,
je me demande la bonne formule pour définir des noms références,
a une feuille externe, dans un classeur fichier XLS variable,
paramétré par un nom de champ comme dans
"=RECHERCHEV(cCode; '[ VAR_FILE ]DonnéeFeuil1'!Table;COl_lib;

Bon, ce ne sont que des idées.....s'il est posssible de faire.

Merci de vos reponses


"docm" a écrit dans le message de
news:
Bonsoir Claudy.

For Each c In Selection
c.Offset(0, 1).Value = c.Value
c.Offset(0, 1).Replace What:="facture", Replacement:="",
LookAt:=xlPart,

_
SearchOrder:=xlByRows, MatchCase:úlse
Next c

Amicalement.

"claudy" wrote in message
news:41474cc5$0$11244$
Bonsoir à tous....

dans une sélection, j'utilise ceci:

For Each c In Selection

c.Offset(0, 1).Value = Replace(c.Value, "factures", "")
Next c

cela marche très bien si dans ma cellule se trouve "factures"
mais si je place "Facture"(avec un grand F) cela ne va plus!
De même, comment adapter mon code pour que cela fonctionne aussi avec
"facture"??
A+
Claudy

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)