Bonsoir,
Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se
trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça ne
marche pas :
Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au milieu
d'une phrase.
If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then
TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPart
End If
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
JB
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JB http://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" wrote:
Bonsoir, Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ç a ne marche pas : Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au mili eu d'une phrase.
If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPar t End If
Je vous remercie beaucoup Alain
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JB
http://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" <alain.leba...@club-internet.fr>
wrote:
Bonsoir,
Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se
trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ç a ne
marche pas :
Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au mili eu
d'une phrase.
If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then
TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPar t
End If
Bonsoir, Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ç a ne marche pas : Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au mili eu d'une phrase.
If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPar t End If
Je vous remercie beaucoup Alain
alain Lebayle
Bonsoir et merci beaucoup JB Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel 97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vous me renseigner en ce sens ? Encore un très grand merci Alain
"JB" a écrit dans le message de news:
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JB http://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" wrote:
Bonsoir, Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça ne marche pas : Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au milieu d'une phrase.
If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPart End If
Je vous remercie beaucoup Alain
Bonsoir et merci beaucoup JB
Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel
97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vous
me renseigner en ce sens ?
Encore un très grand merci
Alain
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
0a5b4c90-daab-447c-a5ae-1a5ef551b3cf@g38g2000yqn.googlegroups.com...
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JB
http://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" <alain.leba...@club-internet.fr>
wrote:
Bonsoir,
Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se
trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça
ne
marche pas :
Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au milieu
d'une phrase.
If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then
TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPart
End If
Bonsoir et merci beaucoup JB Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel 97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vous me renseigner en ce sens ? Encore un très grand merci Alain
"JB" a écrit dans le message de news:
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JB http://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" wrote:
Bonsoir, Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça ne marche pas : Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au milieu d'une phrase.
If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPart End If
Je vous remercie beaucoup Alain
JB
Une Fonction perso que j'avais en Access97:
Function MonReplace(ByVal machaine As String, ByVal car1 As String, ByVal car2 As String) 'Existe en 2000 Dim temp, p, Début temp = machaine Début = 1 Do While InStr(Début, temp, car1) > 0 p = InStr(Début, temp, car1) temp = Left(temp, p - 1) & car2 & Mid(temp, p + Len(car1)) Début = p + Len(car2) Loop MonReplace = temp End Function
JB
On 1 déc, 21:05, "alain Lebayle" wrote:
Bonsoir et merci beaucoup JB Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel 97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vou s me renseigner en ce sens ? Encore un très grand merci Alain
"JB" a écrit dans le message de news:
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JBhttp://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" wrote:
> Bonsoir, > Je souhaite par un clic sur un OptionButton, remplacer une valeur qui s e > trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça
> ne > marche pas : > Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au mi lieu > d'une phrase.
> If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then > TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlP art > End If
> Je vous remercie beaucoup > Alain- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Une Fonction perso que j'avais en Access97:
Function MonReplace(ByVal machaine As String, ByVal car1 As String,
ByVal car2 As String) 'Existe en 2000
Dim temp, p, Début
temp = machaine
Début = 1
Do While InStr(Début, temp, car1) > 0
p = InStr(Début, temp, car1)
temp = Left(temp, p - 1) & car2 & Mid(temp, p + Len(car1))
Début = p + Len(car2)
Loop
MonReplace = temp
End Function
JB
On 1 déc, 21:05, "alain Lebayle" <alain.leba...@club-internet.fr>
wrote:
Bonsoir et merci beaucoup JB
Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel
97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vou s
me renseigner en ce sens ?
Encore un très grand merci
Alain
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
0a5b4c90-daab-447c-a5ae-1a5ef551b...@g38g2000yqn.googlegroups.com...
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JBhttp://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" <alain.leba...@club-internet.fr>
wrote:
> Bonsoir,
> Je souhaite par un clic sur un OptionButton, remplacer une valeur qui s e
> trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça
> ne
> marche pas :
> Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au mi lieu
> d'une phrase.
> If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then
> TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlP art
> End If
> Je vous remercie beaucoup
> Alain- Masquer le texte des messages précédents -
Function MonReplace(ByVal machaine As String, ByVal car1 As String, ByVal car2 As String) 'Existe en 2000 Dim temp, p, Début temp = machaine Début = 1 Do While InStr(Début, temp, car1) > 0 p = InStr(Début, temp, car1) temp = Left(temp, p - 1) & car2 & Mid(temp, p + Len(car1)) Début = p + Len(car2) Loop MonReplace = temp End Function
JB
On 1 déc, 21:05, "alain Lebayle" wrote:
Bonsoir et merci beaucoup JB Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel 97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vou s me renseigner en ce sens ? Encore un très grand merci Alain
"JB" a écrit dans le message de news:
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JBhttp://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" wrote:
> Bonsoir, > Je souhaite par un clic sur un OptionButton, remplacer une valeur qui s e > trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça
> ne > marche pas : > Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au mi lieu > d'une phrase.
> If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then > TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlP art > End If
> Je vous remercie beaucoup > Alain- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
alain Lebayle
Merci beaucoup
Alain
"JB" a écrit dans le message de news:
Une Fonction perso que j'avais en Access97:
Function MonReplace(ByVal machaine As String, ByVal car1 As String, ByVal car2 As String) 'Existe en 2000 Dim temp, p, Début temp = machaine Début = 1 Do While InStr(Début, temp, car1) > 0 p = InStr(Début, temp, car1) temp = Left(temp, p - 1) & car2 & Mid(temp, p + Len(car1)) Début = p + Len(car2) Loop MonReplace = temp End Function
JB
On 1 déc, 21:05, "alain Lebayle" wrote:
Bonsoir et merci beaucoup JB Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel 97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vous me renseigner en ce sens ? Encore un très grand merci Alain
"JB" a écrit dans le message de news:
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JBhttp://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" wrote:
> Bonsoir, > Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se > trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça
> ne > marche pas : > Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au > milieu > d'une phrase.
> If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then > TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPart > End If
> Je vous remercie beaucoup > Alain- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci beaucoup
Alain
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
73dcdad2-a7f5-4dd5-bdcf-ad4949b58db9@j35g2000yqh.googlegroups.com...
Une Fonction perso que j'avais en Access97:
Function MonReplace(ByVal machaine As String, ByVal car1 As String,
ByVal car2 As String) 'Existe en 2000
Dim temp, p, Début
temp = machaine
Début = 1
Do While InStr(Début, temp, car1) > 0
p = InStr(Début, temp, car1)
temp = Left(temp, p - 1) & car2 & Mid(temp, p + Len(car1))
Début = p + Len(car2)
Loop
MonReplace = temp
End Function
JB
On 1 déc, 21:05, "alain Lebayle" <alain.leba...@club-internet.fr>
wrote:
Bonsoir et merci beaucoup JB
Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel
97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vous
me renseigner en ce sens ?
Encore un très grand merci
Alain
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
0a5b4c90-daab-447c-a5ae-1a5ef551b...@g38g2000yqn.googlegroups.com...
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JBhttp://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" <alain.leba...@club-internet.fr>
wrote:
> Bonsoir,
> Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se
> trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça
> ne
> marche pas :
> Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au
> milieu
> d'une phrase.
> If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then
> TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPart
> End If
> Je vous remercie beaucoup
> Alain- Masquer le texte des messages précédents -
Function MonReplace(ByVal machaine As String, ByVal car1 As String, ByVal car2 As String) 'Existe en 2000 Dim temp, p, Début temp = machaine Début = 1 Do While InStr(Début, temp, car1) > 0 p = InStr(Début, temp, car1) temp = Left(temp, p - 1) & car2 & Mid(temp, p + Len(car1)) Début = p + Len(car2) Loop MonReplace = temp End Function
JB
On 1 déc, 21:05, "alain Lebayle" wrote:
Bonsoir et merci beaucoup JB Je suis actuellement sur Excel 2000, mais au travail nous utilisons Excel 97, je ne sais pas si cette fonction fonctionne avec Excel 97, pouvez-vous me renseigner en ce sens ? Encore un très grand merci Alain
"JB" a écrit dans le message de news:
Bonsoir,
C'est la fonction Replace() qu'il faut utiliser:
x = Replace("aaabbccc", "bb", "ddd")
TextBox1.Value=Replace(TextBox1,"-SALAIRES-", "")
JBhttp://boisgontierjacques.free.fr/
On 1 déc, 18:49, "alain Lebayle" wrote:
> Bonsoir, > Je souhaite par un clic sur un OptionButton, remplacer une valeur qui se > trouve dans un textbox par du vide soit "", j'essaie comme cela, mais ça
> ne > marche pas : > Je souhaite donc remplacer le mot "-SALAIRES-" par du vide même au > milieu > d'une phrase.
> If (TextBox1.Value) Like ("*" & "-SALAIRES- " & "*") Then > TextBox1.Replace What:="-SALAIRES-", Replacement:="", LookAt:=xlPart > End If
> Je vous remercie beaucoup > Alain- Masquer le texte des messages précédents -
