Discussion :

[ab1to]

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

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ensuite remplace cette ligne par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais si tu n'as pas peur de faire simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ab1to]

Super! Merci de tes explications.

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

Anthony