Modifier un n° de téléphone en VBA

Bonjour

Je souhaiterais pouvoir modifier un numéro de téléphone via VBA.

J'ai essayé une macro mais celle-ci ne fonctionne pas.

Comment faire ? Merci.

bonsoir,

ma boule de cristal est en panne ... peux-tu expliciter ta demande ? un fichier exemple avec ce que tu as avant modification et ce que tu veux après.

Bonjour

Pardon j'ai oublié de joindre mon exemple.

bonjour,

une façon de faire

Option Explicit

Sub RechercherRemplacer2()
Dim rechercher As Variant
Dim remplacer As Variant
Dim ligne As Integer
Dim colonne As Integer

rechercher = InputBox("Saisissiez le n¡ de tŽlŽphone ˆ modifier")

remplacer = InputBox("Saisissiez le nouveau n¡ de tŽlŽphone")
'
For ligne = 3 To 55
    For colonne = 4 To 7
        If Cells(ligne, colonne).Text = rechercher Then
            Cells(ligne, colonne).Value = remplacer
        Exit Sub
        End If
    Next
Next
End Sub

Merci, pour cette solution qui fonctionne parfaitement.

Bonsoir le forum

Bonsoir Papoumac32, h2so4

Comme le sujet n'a pas été clôturé, je donne ma version qui passe par un range mais qui oblige à traiter les cellules de ce range :

Option Explicit

Sub Traitement()
 Dim Cell As Range
   For Each Cell In Range("D3:E14")
     Cell = "'" & Format(Cell, "0000000000")
 Next
End Sub

Sub Remplacer_NumTPH_Par_Autre_NumTPH()
Dim NumRech As Variant, NumRempl As Variant

NumRech = InputBox("Mot à rechercher ?")
If NumRech = "" Then Exit Sub

NumRempl = InputBox("Mot de remplacement ?")
If NumRempl = "" Then Exit Sub

ActiveSheet.Range("D3:E14").Replace NumRech, NumRempl

End Sub