Remplacer un mot par un autre sur la ligne1

[perdinch]

Bonsoir,

Ce code est sensé remplacer le mot "mois" par "num" sur la ligne 1 et cela pour tous les onglets de mon classeur à condition que le nom de l'onglet commence par le mot "calcul".

le problème c'est qu'il ne tient pas compte du nom de l'onglet!

merci de votre aide.

voiçi le code:


Sub remplace_mois_num_lig1()
For Each feuill In ActiveWorkbook.Worksheets
If feuill.Name Like "calcul*" Then
Rows("1:1").Select
Selection.Replace What:="mois", Replacement:=" num", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Next feuill
End Sub

 

[Pierrot93]

Re : Remplacer un mot par un autre sur la ligne1

Bonsoir,

essaye peut être ainsi :

Sub remplace_mois_num_lig1()
Dim feuill As Worksheet
For Each feuill In ActiveWorkbook.Worksheets
    If feuill.Name Like "calcul*" Then
        feuill.Rows("1:1").Replace What:="mois", Replacement:=" num", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End If
Next feuill
End Sub

bonne soirée
@+

 

[perdinch]

Re : Remplacer un mot par un autre sur la ligne1

bonsoir,

c'est parfait !

cordialement

perdinch