Bonjour,

Pourquoi ma fonction replace ne fonctionne pas voici ce que j'ai essayé.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Range("a2:n32").Replace What:=Anc_Feuille & "!", Replacement:=Nom_Feuille & "!", _
                                                  LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
                                                  False, ReplaceFormat:=False
Et j'ai essayé de cette façon aussi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim rng As Range
Dim cell As Variant
 
Set rng = Range("A2:N32")
                    For Each cell In rng.cell
                        Sheets(Nom_Feuille).Cells.Replace What:=Anc_Feuille & "!", Replacement:=Nom_Feuille & "!", _
                                                  LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
                                                  False, ReplaceFormat:=False
                    Next
Merci