Bonjour,
Pourquoi ma fonction replace ne fonctionne pas voici ce que j'ai essayé.
Et j'ai essayé de cette façon aussi
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
Merci
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
Partager