Bonjour,

Je voudrais remplacer du texte dans des cellules fusionnées, mais le replace ne fonctionne pas.

Il s'agit d'un texte à traduire qui figure dans des cellules des lignes 1 et 2 qui sont fusionnées (ex: A1:A2 ou E1:E2, ...).
Je voudrais automatiser cela.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Traduction_FR()
 
Dim FormFirstCol As Integer
Dim FormLastCol As Integer
Dim BeginLine As Integer
Dim EndLine As Integer
 
FormFirstCol = 2
FormLastCol = Range("A" & 1).End(xlToRight).Column
 
BeginLine = 1
EndLine = 2
 
For a = FormFirstCol To FormLastCol
 
    Range("R" & BeginLine & a & ":R" & EndLine & a).Select
    Selection.Replace What:="Algemene tevredenheid", Replacement:="Satisfaction générale"
 
Next a
 
End Sub
Avez-vous une idée ?
Merci d'avance.

Anthony