|
Cette macro permet de faire une recherche d'un mot (ou d'une lettre) et de le rempacer par un autre...C'est la même fonction que la recherche habituelle, à ceci prêt qu'elle le fait sur une zone définie et non sur tout le document...
'************************************
'partie à coller dans un module
'************************************
Option Explicit
' Vériland Novembre 2003
Sub Cherche_et_Remplace()
Dim WS As Worksheet
Dim Plage As Range
Dim Recherche As String, Adresse As String, Remplace As String
Dim Ligne As Variant
Dim C As Object
Recherche = InputBox("Chercher ?", "Entrez un mot ou une lettre")
If Recherche = "" Then Exit Sub
Remplace = InputBox("Remplacer par", "Entrez un mot ou une lettre")
If Remplace = "" Then Exit Sub
For Each WS In Worksheets
Ligne = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'plage à définir
Set Plage = Worksheets(WS.Name).Range("" & "A" & "1:" & "E" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
Remplacement C, Recherche, Remplace
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
Next WS
End Sub
Sub Remplacement(TteCellule As Range, Chercher As String, Remplace As String)
Dim Cell As Range
For Each Cell In TteCellule.Cells
Cell.Value = Replace(Cell.Value, Chercher, Remplace)
Next
End Sub
Date de création : 24/05/2005 - 18:58
Dernière modification : 25/05/2005 - 22:35
Catégorie : Feuille
Page lue 373 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 41
Haut 
