Bonsoir
C'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
Bonsoir
C'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
Bonsoir
C'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :Bonsoir
C'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :
Bonsoir
C'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :Bonsoir
C'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :BonsoirC'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il
renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :
Bonsoir
C'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il
renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :BonsoirC'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il
renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
ok la ca fonctionne.... rien a comprendre... avec ou sans >0
eddymaue a utilisé son clavier pour écrire :pas chez moiJ,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement
du client...un second commentaire "Path: ..."Sub find_a_customer_in_the_comments()Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :")
Then
MsgBox "commentaire.Range.Text"
End If' ici ca fonctionne
If InStr("client: Eddy ....", "client:") ThenMsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).AuthorEnd Subvoilà si ca provient du commentaire ca ne fonctionne pasune idéea+ eddyDans son message précédent, Geo a écrit :BonsoirC'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il
renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
ok la ca fonctionne.... rien a comprendre... avec ou sans >0
eddymaue a utilisé son clavier pour écrire :
pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement
du client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :")
Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :
Bonsoir
C'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il
renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
ok la ca fonctionne.... rien a comprendre... avec ou sans >0
eddymaue a utilisé son clavier pour écrire :pas chez moiJ,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement
du client...un second commentaire "Path: ..."Sub find_a_customer_in_the_comments()Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :")
Then
MsgBox "commentaire.Range.Text"
End If' ici ca fonctionne
If InStr("client: Eddy ....", "client:") ThenMsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).AuthorEnd Subvoilà si ca provient du commentaire ca ne fonctionne pasune idéea+ eddyDans son message précédent, Geo a écrit :BonsoirC'est un coup de chance ou de malchance si ça marche.
Instr renvoie la position de la chaîne s'il l'a trouve, sinon il
renvoie 0.
Il faut écrire :
If InStr(cm, "client:") >0 Then
Hello,
pour info et pour alléger le code,
Option Compare Text
en début de module évite de s'em***béter avec la casse
Comme le dit Geo, InStr renvoi une valeur comprise entre 0 et N.
Le test "If condition Then" commence par évaluer "condition" et donc renvoi
Vrai ou Faux.
Faux est égal à 0, Vrai à n'importe quoi qui ne soit pas 0
Donc on peut effectivement se passer du > 0
Pour Geo, quand je programme je simplifie tout mes "If" comme ceci parce que,
par exemple, InStr(cm, "client:") va renvoyer 0 ou un nombre positif > à 0,
donc c'est comme si tu écrivais If 1 > 0 Then que l'on peut donc simplifier
en If 1 Then parce que 1 est différent de Faux (car Faux = 0)
--
JièL
Le 13/02/2018 à 22:43, eddymaue a écrit :pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :
Hello,
pour info et pour alléger le code,
Option Compare Text
en début de module évite de s'em***béter avec la casse
Comme le dit Geo, InStr renvoi une valeur comprise entre 0 et N.
Le test "If condition Then" commence par évaluer "condition" et donc renvoi
Vrai ou Faux.
Faux est égal à 0, Vrai à n'importe quoi qui ne soit pas 0
Donc on peut effectivement se passer du > 0
Pour Geo, quand je programme je simplifie tout mes "If" comme ceci parce que,
par exemple, InStr(cm, "client:") va renvoyer 0 ou un nombre positif > à 0,
donc c'est comme si tu écrivais If 1 > 0 Then que l'on peut donc simplifier
en If 1 Then parce que 1 est différent de Faux (car Faux = 0)
--
JièL
Le 13/02/2018 à 22:43, eddymaue a écrit :
pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :
Hello,
pour info et pour alléger le code,
Option Compare Text
en début de module évite de s'em***béter avec la casse
Comme le dit Geo, InStr renvoi une valeur comprise entre 0 et N.
Le test "If condition Then" commence par évaluer "condition" et donc renvoi
Vrai ou Faux.
Faux est égal à 0, Vrai à n'importe quoi qui ne soit pas 0
Donc on peut effectivement se passer du > 0
Pour Geo, quand je programme je simplifie tout mes "If" comme ceci parce que,
par exemple, InStr(cm, "client:") va renvoyer 0 ou un nombre positif > à 0,
donc c'est comme si tu écrivais If 1 > 0 Then que l'on peut donc simplifier
en If 1 Then parce que 1 est différent de Faux (car Faux = 0)
--
JièL
Le 13/02/2018 à 22:43, eddymaue a écrit :pas chez moi
J,ouvre un document word 2016 et j'ajoute un commentaire "Client: ....."
et ou dans le commentaire il y a nom, adresse et autre renseignement du
client...
un second commentaire "Path: ..."
Sub find_a_customer_in_the_comments()
Dim commentaire As Variant
Dim cm As String
For Each commentaire In ActiveDocument.Comments
cm = commentaire.Range.Text
' MsgBox TypeName(cm)
If InStr(LCase(cm), "client:") > 0 Or InStr(LCase(cm), "client :") Then
MsgBox "commentaire.Range.Text"
End If
' ici ca fonctionne
If InStr("client: Eddy ....", "client:") Then
MsgBox "j'ai trouvé client"
End If
Next
'MsgBox ActiveDocument.Comments(1).Author
End Sub
voilà si ca provient du commentaire ca ne fonctionne pas
une idée
a+ eddy
Dans son message précédent, Geo a écrit :
Le mardi 13 Février 2018 à 22:14 par eddymaue :Bonjour,
cm = "client: Eddy blablabla"
If InStr(cm, "client:") Then
MsgBox "commentaire.Range.Text"
End If
dans la méthode de recherche InStr() si j'écris
If InStr(cm, "client:") Then
ca fonctionne pas
par contre
If InStr(cm, "client") Then
ca fonctionne
une idée pour coriger cette problématique
a+ Eddy
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
---
This email has been checked for viruses by AVG.
http://www.avg.com
Bonjour a tous
Si je viens vers vous ce matin c'est pour témoigné du miracle qui s'est passé
dans ma vie ,je parle de miracle car c'est très rare de trouvé des vrais
prêteurs sur le net,j'ai fait 4 mois a mendié dans la rue mais en ce jour je
suis très heureuse car j'ai rencontré un Mr qui m'a donné l'adresse d'une
organisation de pret du nom de FINANCE EXPRESS,qui m'a accordé un prêt de
50000¤ afin de recommencé une nouvelle vie ,j'ai fait ma demande le mercredi
matin et déjà ce matin ,ma banque ma fait appelle pour me confirmé que
l'argent est arrivé dans mon compte,et que je peux déjà le retiré,à l'heure
ou je vous parle j'ai l'argent avec moi et je suis très émut ,je suis débordé
de joie,Je voudrai profité de cet occasion et dit grand merci a FINANCE
EXPRESS,Que le tout puissant vous bénisse,La Bible dit:
"" Luc 11:10 Car quiconque demande reçoit, celui qui cherche trouve, et l'on
ouvre à celui qui frappe. "de ne jamais laisser l'occasion parce que Jésus
est le même hier, aujourd'hui et éternellement.Si vous cherchez à démarrer un
prêt d'entreprise ou autre contactez cet mail:
Le mardi 13 Février 2018 à 22:14 par eddymaue :
Bonjour,
cm = "client: Eddy blablabla"
If InStr(cm, "client:") Then
MsgBox "commentaire.Range.Text"
End If
dans la méthode de recherche InStr() si j'écris
If InStr(cm, "client:") Then
ca fonctionne pas
par contre
If InStr(cm, "client") Then
ca fonctionne
une idée pour coriger cette problématique
a+ Eddy
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
---
This email has been checked for viruses by AVG.
http://www.avg.com
Bonjour a tous
Si je viens vers vous ce matin c'est pour témoigné du miracle qui s'est passé
dans ma vie ,je parle de miracle car c'est très rare de trouvé des vrais
prêteurs sur le net,j'ai fait 4 mois a mendié dans la rue mais en ce jour je
suis très heureuse car j'ai rencontré un Mr qui m'a donné l'adresse d'une
organisation de pret du nom de FINANCE EXPRESS,qui m'a accordé un prêt de
50000¤ afin de recommencé une nouvelle vie ,j'ai fait ma demande le mercredi
matin et déjà ce matin ,ma banque ma fait appelle pour me confirmé que
l'argent est arrivé dans mon compte,et que je peux déjà le retiré,à l'heure
ou je vous parle j'ai l'argent avec moi et je suis très émut ,je suis débordé
de joie,Je voudrai profité de cet occasion et dit grand merci a FINANCE
EXPRESS,Que le tout puissant vous bénisse,La Bible dit:
"" Luc 11:10 Car quiconque demande reçoit, celui qui cherche trouve, et l'on
ouvre à celui qui frappe. "de ne jamais laisser l'occasion parce que Jésus
est le même hier, aujourd'hui et éternellement.Si vous cherchez à démarrer un
prêt d'entreprise ou autre contactez cet mail: financeexpress0@gmail.com
Le mardi 13 Février 2018 à 22:14 par eddymaue :Bonjour,
cm = "client: Eddy blablabla"
If InStr(cm, "client:") Then
MsgBox "commentaire.Range.Text"
End If
dans la méthode de recherche InStr() si j'écris
If InStr(cm, "client:") Then
ca fonctionne pas
par contre
If InStr(cm, "client") Then
ca fonctionne
une idée pour coriger cette problématique
a+ Eddy
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
---
This email has been checked for viruses by AVG.
http://www.avg.com
Bonjour a tous
Si je viens vers vous ce matin c'est pour témoigné du miracle qui s'est passé
dans ma vie ,je parle de miracle car c'est très rare de trouvé des vrais
prêteurs sur le net,j'ai fait 4 mois a mendié dans la rue mais en ce jour je
suis très heureuse car j'ai rencontré un Mr qui m'a donné l'adresse d'une
organisation de pret du nom de FINANCE EXPRESS,qui m'a accordé un prêt de
50000¤ afin de recommencé une nouvelle vie ,j'ai fait ma demande le mercredi
matin et déjà ce matin ,ma banque ma fait appelle pour me confirmé que
l'argent est arrivé dans mon compte,et que je peux déjà le retiré,à l'heure
ou je vous parle j'ai l'argent avec moi et je suis très émut ,je suis débordé
de joie,Je voudrai profité de cet occasion et dit grand merci a FINANCE
EXPRESS,Que le tout puissant vous bénisse,La Bible dit:
"" Luc 11:10 Car quiconque demande reçoit, celui qui cherche trouve, et l'on
ouvre à celui qui frappe. "de ne jamais laisser l'occasion parce que Jésus
est le même hier, aujourd'hui et éternellement.Si vous cherchez à démarrer un
prêt d'entreprise ou autre contactez cet mail:
Pour Geo, quand je programme je simplifie tout mes "If" comme ceci parce que,
par exemple, InStr(cm, "client:") va renvoyer 0 ou un nombre positif > à 0,
donc c'est comme si tu écrivais If 1 > 0 Then que l'on peut donc simplifier
en If 1 Then parce que 1 est différent de Faux (car Faux = 0)
Pour Geo, quand je programme je simplifie tout mes "If" comme ceci parce que,
par exemple, InStr(cm, "client:") va renvoyer 0 ou un nombre positif > à 0,
donc c'est comme si tu écrivais If 1 > 0 Then que l'on peut donc simplifier
en If 1 Then parce que 1 est différent de Faux (car Faux = 0)
Pour Geo, quand je programme je simplifie tout mes "If" comme ceci parce que,
par exemple, InStr(cm, "client:") va renvoyer 0 ou un nombre positif > à 0,
donc c'est comme si tu écrivais If 1 > 0 Then que l'on peut donc simplifier
en If 1 Then parce que 1 est différent de Faux (car Faux = 0)
On est tous riches et à la retraite....
Après mûre réflexion, audesson a écrit :Le mardi 13 Février 2018 à 22:14 par eddymaue :Bonjour,
cm = "client: Eddy blablabla"
If InStr(cm, "client:") Then
MsgBox "commentaire.Range.Text"
End If
dans la méthode de recherche InStr() si j'écris
If InStr(cm, "client:") Then
ca fonctionne pas
par contre
If InStr(cm, "client") Then
ca fonctionne
une idée pour coriger cette problématique
a+ Eddy
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai
plaisir d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
---
This email has been checked for viruses by AVG.
http://www.avg.comBonjour a tous
Si je viens vers vous ce matin c'est pour témoigné du miracle qui
s'est passé
dans ma vie ,je parle de miracle car c'est très rare de trouvé des vrais
prêteurs sur le net,j'ai fait 4 mois a mendié dans la rue mais en ce
jour je
suis très heureuse car j'ai rencontré un Mr qui m'a donné l'adresse d'une
organisation de pret du nom de PHISHING EXPRESS,qui m'a accordé un
prêt de
50000¤ afin de recommencé une nouvelle vie ,j'ai fait ma demande le
mercredi
matin et déjà ce matin ,ma banque ma fait appelle pour me confirmé que
l'argent est arrivé dans mon compte,et que je peux déjà le retiré,à
l'heure ou je vous parle j'ai l'argent avec moi et je suis très émut
,je suis débordé de joie,Je voudrai profité de cet occasion et dit
grand merci a PHISHING EXPRESS,Que le tout puissant vous bénisse,La
Bible dit:
"" Luc 11:10 Car quiconque demande reçoit, celui qui cherche trouve,
et l'on
ouvre à celui qui frappe. "de ne jamais laisser l'occasion parce que
Jésus est le même hier, aujourd'hui et éternellement.Si vous cherchez
à démarrer un prêt d'entreprise ou autre contactez cet mail:
On est tous riches et à la retraite....
Après mûre réflexion, audesson a écrit :
Le mardi 13 Février 2018 à 22:14 par eddymaue :
Bonjour,
cm = "client: Eddy blablabla"
If InStr(cm, "client:") Then
MsgBox "commentaire.Range.Text"
End If
dans la méthode de recherche InStr() si j'écris
If InStr(cm, "client:") Then
ca fonctionne pas
par contre
If InStr(cm, "client") Then
ca fonctionne
une idée pour coriger cette problématique
a+ Eddy
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai
plaisir d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
---
This email has been checked for viruses by AVG.
http://www.avg.com
Bonjour a tous
Si je viens vers vous ce matin c'est pour témoigné du miracle qui
s'est passé
dans ma vie ,je parle de miracle car c'est très rare de trouvé des vrais
prêteurs sur le net,j'ai fait 4 mois a mendié dans la rue mais en ce
jour je
suis très heureuse car j'ai rencontré un Mr qui m'a donné l'adresse d'une
organisation de pret du nom de PHISHING EXPRESS,qui m'a accordé un
prêt de
50000¤ afin de recommencé une nouvelle vie ,j'ai fait ma demande le
mercredi
matin et déjà ce matin ,ma banque ma fait appelle pour me confirmé que
l'argent est arrivé dans mon compte,et que je peux déjà le retiré,à
l'heure ou je vous parle j'ai l'argent avec moi et je suis très émut
,je suis débordé de joie,Je voudrai profité de cet occasion et dit
grand merci a PHISHING EXPRESS,Que le tout puissant vous bénisse,La
Bible dit:
"" Luc 11:10 Car quiconque demande reçoit, celui qui cherche trouve,
et l'on
ouvre à celui qui frappe. "de ne jamais laisser l'occasion parce que
Jésus est le même hier, aujourd'hui et éternellement.Si vous cherchez
à démarrer un prêt d'entreprise ou autre contactez cet mail:
On est tous riches et à la retraite....
Après mûre réflexion, audesson a écrit :Le mardi 13 Février 2018 à 22:14 par eddymaue :Bonjour,
cm = "client: Eddy blablabla"
If InStr(cm, "client:") Then
MsgBox "commentaire.Range.Text"
End If
dans la méthode de recherche InStr() si j'écris
If InStr(cm, "client:") Then
ca fonctionne pas
par contre
If InStr(cm, "client") Then
ca fonctionne
une idée pour coriger cette problématique
a+ Eddy
--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai
plaisir d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
---
This email has been checked for viruses by AVG.
http://www.avg.comBonjour a tous
Si je viens vers vous ce matin c'est pour témoigné du miracle qui
s'est passé
dans ma vie ,je parle de miracle car c'est très rare de trouvé des vrais
prêteurs sur le net,j'ai fait 4 mois a mendié dans la rue mais en ce
jour je
suis très heureuse car j'ai rencontré un Mr qui m'a donné l'adresse d'une
organisation de pret du nom de PHISHING EXPRESS,qui m'a accordé un
prêt de
50000¤ afin de recommencé une nouvelle vie ,j'ai fait ma demande le
mercredi
matin et déjà ce matin ,ma banque ma fait appelle pour me confirmé que
l'argent est arrivé dans mon compte,et que je peux déjà le retiré,à
l'heure ou je vous parle j'ai l'argent avec moi et je suis très émut
,je suis débordé de joie,Je voudrai profité de cet occasion et dit
grand merci a PHISHING EXPRESS,Que le tout puissant vous bénisse,La
Bible dit:
"" Luc 11:10 Car quiconque demande reçoit, celui qui cherche trouve,
et l'on
ouvre à celui qui frappe. "de ne jamais laisser l'occasion parce que
Jésus est le même hier, aujourd'hui et éternellement.Si vous cherchez
à démarrer un prêt d'entreprise ou autre contactez cet mail:
Salut
si je peux l'écrire ainsi "If 1 Then" c'est la voie que je
préfèrerais... sauf que c'est prendre de mauvaises habitudes voir de
mauvais plis en ce sens que si InStr() renvoie une valeur numérique il
faut traiter ce renvoie ....
sans vouloir te blesser voir heurter ...
Cela m'intéresse
Option Compare Text
un p'tit peu plus d'explication serait aprécié
Salut
si je peux l'écrire ainsi "If 1 Then" c'est la voie que je
préfèrerais... sauf que c'est prendre de mauvaises habitudes voir de
mauvais plis en ce sens que si InStr() renvoie une valeur numérique il
faut traiter ce renvoie ....
sans vouloir te blesser voir heurter ...
Cela m'intéresse
Option Compare Text
un p'tit peu plus d'explication serait aprécié
Salut
si je peux l'écrire ainsi "If 1 Then" c'est la voie que je
préfèrerais... sauf que c'est prendre de mauvaises habitudes voir de
mauvais plis en ce sens que si InStr() renvoie une valeur numérique il
faut traiter ce renvoie ....
sans vouloir te blesser voir heurter ...
Cela m'intéresse
Option Compare Text
un p'tit peu plus d'explication serait aprécié