remplacer un texte

[sonskriverez]

Bonjour le forum,

J'ai dans la colonne "F" une serie de lettre du style, A, B, C .... il y a qu'une seule lettre par cellule.
Je voudrais en VBA pouvoir remplacer la lettre A par Alain, B par Bernard... sachant que je ne connais pas mon nbr de lignes.

Merci pour votre aide

 

[job75]

Re : remplacer un texte

Bonjour sonskriverez,

Il faut dans cette macro compléter le tableau :

Sub Prenoms()
Dim tablo(), cel As Range, n As Variant
[COLOR="Red"]tablo = Array("Alain", "Bernard", "Charles", "Damien", "Etienne", "François") 'à compléter[/COLOR]
For Each cel In Range("F2", Range("F65536").End(xlUp))
  n = Application.Match(cel & "*", tablo, 0)
  If IsNumeric(n) Then cel = tablo(n - 1)
Next
End Sub

A+

 

[Staple1600]

Re : remplacer un texte

Bonjour



Une solution possible

Sub remplacement()
Dim r As Range
For Each r In Range("F1:F" & [F65536].End(xlUp).Row)
If Len(r) = 1 Then
r.Value = _
    Switch(r.Value = "A", Replace(r.Text, "A", "Alain"), _
    r.Value = "B", Replace(r.Text, "B", "Bernard"))
End If
Next
End Sub

Houps: désolé pas rafraichi, bonjour Job75

 

[sonskriverez]

Re : remplacer un texte

Bonjour A vous deux

Merci beaucoup pour les solutions, cela à résolus mon problème