Macro excel en vba

je souhaiterais realisé une fonction qui me permettrai de changer une lettre dans toutes les cellules pas une autre lettre, exemple "l" avec "r"
Je debute vraiment en vba,j'espere que quelqu'un pourra m'aider
Merci a+

Cette procédure change les caractères sur les cellules sélectionnées avant son lancement.
Si tu as besoin d'aide pour la modifier, fais un signe !

A+

Public Sub ChangeCarateres() Const CaractereSupprime As String = "l" Const CaractereDeRemplacement As String = "r" On Error Resume Next Aire = Selection.Address(, , xlR1C1) If InStr(1, Aire, ":") <> 0 Then ColonneDebut = Mid(Aire, InStr(1, Aire, "C") + 1, InStr(1, Aire, ":") - (InStr(1, Aire, "C") + 1)) LigneDebut = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1)) Aire = Mid(Aire, InStr(1, Aire, ":") + 1) ColonneFin = Mid(Aire, InStr(1, Aire, "C") + 1, Len(Aire) - InStr(1, Aire, "C")) LigneFin = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1)) Else ColonneDebut = Mid(Aire, InStr(1, Aire, "C") + 1, Len(Aire) - InStr(1, Aire, "C")) LigneDebut = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1)) ColonneFin = ColonneDebut LigneFin = LigneDebut End If For i = ColonneDebut To ColonneFin For j = LigneDebut To LigneFin tmp = Cells(j, i) If Not tmp = "" Then For k = 1 To Len(tmp) If Mid(tmp, k, 1) = CaractereSupprime Then Mid(tmp, k, 1) = CaractereDeRemplacement Next k Cells(j, i) = tmp End If Next j Next i End Sub

------------------------------
Réponse au message :
-------------------------------

> je souhaiterais realisé une fonction qui me permettrai de changer une lettre dans toutes les cellules pas une autre lettre, exemple "l" avec "r"
> Je debute vraiment en vba,j'espere que quelqu'un pourra m'aider
> Merci a+

Merci beaucoup 8D
-------------------------------
Réponse au message :
-------------------------------

> Cette procédure change les caractères sur les cellules sélectionnées avant son lancement.
> Si tu as besoin d'aide pour la modifier, fais un signe !
>
> A+
>
>

> Public Sub ChangeCarateres() > Const CaractereSupprime As String = "l" > Const CaractereDeRemplacement As String = "r" > On Error Resume Next > Aire = Selection.Address(, , xlR1C1) > If InStr(1, Aire, ":") <> 0 Then > ColonneDebut = Mid(Aire, InStr(1, Aire, "C") + 1, InStr(1, Aire, ":") - (InStr(1, Aire, "C") + 1)) > LigneDebut = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1)) > Aire = Mid(Aire, InStr(1, Aire, ":") + 1) > ColonneFin = Mid(Aire, InStr(1, Aire, "C") + 1, Len(Aire) - InStr(1, Aire, "C")) > LigneFin = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1)) > Else > ColonneDebut = Mid(Aire, InStr(1, Aire, "C") + 1, Len(Aire) - InStr(1, Aire, "C")) > LigneDebut = Mid(Aire, InStr(1, Aire, "R") + 1, InStr(1, Aire, "C") - (InStr(1, Aire, "R") + 1)) > ColonneFin = ColonneDebut > LigneFin = LigneDebut > End If > For i = ColonneDebut To ColonneFin > For j = LigneDebut To LigneFin > tmp = Cells(j, i) > If Not tmp = "" Then > For k = 1 To Len(tmp) > If Mid(tmp, k, 1) = CaractereSupprime Then Mid(tmp, k, 1) = CaractereDeRemplacement > Next k > Cells(j, i) = tmp > End If > Next j > Next i > End Sub > > > > > > >

>
>
>
> ------------------------------
> Réponse au message :
> -------------------------------
>
> > je souhaiterais realisé une fonction qui me permettrai de changer une lettre dans toutes les cellules pas une autre lettre, exemple "l" avec "r"
> > Je debute vraiment en vba,j'espere que quelqu'un pourra m'aider
> > Merci a+
>