fonction repalce

Bonsour® sleg avec ferveur ;o))) vous nous disiez :

j'ultilise une macro pour faire des remplace le probleme est que
lorsque le mot a remplacer est absent la macor plante et je ne sias
pas comment contourner mon probleme.

auriez vous une idée ?

;o))))
RTFM !!!!!!
dans l'aide il est expressement noté :
Set c = .Find(what:="xxxx", lookin:=xlValues)
If Not c Is Nothing Then


--
@+
;o)))

Bonjour,

merci de votre reponse ;-) mais je ne connais pas le vba donc c un peu
du chinois pour moi, serait il possible d'avoir une explication plus
detaillée ?

merci d'avance.


On 3 oct, 12:44, "Modeste" <nom...@nomail.net> wrote:

Bonsour® sleg  avec ferveur  ;o))) vous nous disiez :

> j'ultilise une macro pour faire des remplace le probleme est que
> lorsque le mot a remplacer est absent la macor plante et je ne sias
> pas comment contourner mon probleme.

> auriez vous une idée ?

;o))))
RTFM !!!!!!
dans l'aide il est expressement noté :
Set c = .Find(what:="xxxx", lookin:=xlValues)
    If Not c Is Nothing Then

--
@+
;o)))

Bonsour® sleg avec ferveur ;o))) vous nous disiez :

merci de votre reponse ;-) mais je ne connais pas le vba donc c un peu
du chinois pour moi, serait il possible d'avoir une explication plus
detaillée ?

dans le principe et cela quelquesoit le langage (VBA ou Pas) :
on recherche *quelquechose* *quelquepart*
on *Controle* si ce *quelquechose* correspond à ce qui est attendu
- Si oui
on effectue le *traitement*
on refait une *recherche suivante*
et on recontrole
- Si Non
c'est qu'il n'y a rien de correspondant
le traitement est fini

;o)))
RTFM ce n'est pas du chinois !!!!
"Relis Ton Fichu Manuel"

textuellement l'aide VBE :

With Worksheets(1).Range("a1:a500") ' --- *Quelquepart*
Set c = .Find(What:="xxx", lookin:=xlValues) '---*Quelquechose*
If Not c Is Nothing Then ' --- *Controle*
firstAddress = c.Address
Do '--- *Traitement*
c.Value = 5
Set c = .FindNext(c) '--- *Recherche suivant*
Loop While Not c Is Nothing And c.Address <> firstAddress
End If '--- *c'est fini*
End With


--
@+
;o)))

ok merci bon week

On 3 oct, 15:33, "Modeste" <nom...@nomail.net> wrote:

Bonsour® sleg  avec ferveur  ;o))) vous nous disiez :

> merci de votre reponse ;-) mais je ne connais pas le vba donc c un peu
> du chinois pour moi, serait il possible d'avoir une explication plus
> detaillée ?

dans le principe et cela quelquesoit le langage (VBA ou Pas) :
on recherche *quelquechose*  *quelquepart*
on *Controle* si ce *quelquechose* correspond à ce qui est attendu
    - Si oui
            on effectue le *traitement*
            on refait une *recherche suivante*
            et on recontrole
    - Si Non
           c'est qu'il n'y a rien de correspondant
           le traitement est fini    

;o)))
RTFM ce n'est pas du chinois !!!!
"Relis Ton Fichu Manuel"

textuellement l'aide VBE :

With Worksheets(1).Range("a1:a500")  ' --- *Quelquepart*
    Set c = .Find(What:="xxx", lookin:=xlValues)  '---*Quelqu echose*
    If Not c Is Nothing Then            ' --- *Controle*
        firstAddress = c.Address
        Do                                        '--- *Traitement*
            c.Value = 5
            Set c = .FindNext(c)         '--- *Rech erche suivant*  
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If    '--- *c'est fini*
End With

--
@+
;o)))