Modifier du texte dans des cellules fusionnée

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:

---

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

Bonjour pour les code le bouton c'est le # pas la peine de modifier la taille ;)

Code:

---

1 2	Range("R" & BeginLine & a & ":R" & EndLine & a).Select Selection.Replace What:="Algemene tevredenheid", Replacement:="Satisfaction générale"

---

s'ecrit sans select (au lieu de selectionner une cellule et de remplacer dans la celection tu remplace directement dans la cellule meme résultat mais en mieu :mouarf:)

Code:

---

Range("R" & BeginLine & a & ":R" & EndLine & a).Replace What:="Algemene tevredenheid", Replacement:="Satisfaction générale"

---

ensuite remplace cette ligne par

Code:

---

msgbox "R" & BeginLine & a & ":R" & EndLine & a

---

A mon avis tu n'as aucune idée de la ligne sur laquele tu travail ;)
si a vaux 3 tu travail colonne R ligne 13 à colonne R ligne 23

essaye quelque chose comme

Code:

---

range(cells(BeginLine,a),cells(EndLine ,a)

---

mais si tu n'as pas peur de faire simple

Code:

---

range(cells(BeginLine,FormFirstCol ),cells(EndLine ,FormLastCol ).Replace What:="Algemene tevredenheid", Replacement:="Satisfaction générale"[/

---

Ou alors mais je suis fou remplacer ton code par

Code:

---

range(cells(1,2),cells(2,Range("A" & 1).End(xlToRight).Column).Replace What:="Algemene tevredenheid", Replacement:="Satisfaction générale"[/

---

Pas la peine de passer par des variable si tu ne ten sert qu'une fois

Ou alors si tu peux faire le remplacemenet partout sans réfléchir

Code:

---

cells.Replace What:="Algemene tevredenheid", Replacement:="Satisfaction générale"

---

Super! Merci de tes explications.

J'ai finalement fait un remplacement simple dans les cellules.

Anthony:ccool: