fonction repalce

Le
sleg
Bonjour,

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 ?

merci d'avnce & bonne journée.


bout de mon code :
Range("B6").Select
ActiveCell.Replace What:="nianiania ", Replacement:="",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
_
ReplaceFormat:=False
Cells.Find(What:="nianiania", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #17409431
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)))
sleg
Le #17409971
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"
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)))


Modeste
Le #17410771
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)))
sleg
Le #17411141
ok merci bon week

On 3 oct, 15:33, "Modeste"
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)))


Publicité
Poster une réponse
Anonyme