Bonjour pour les code le bouton c'est le # pas la peine de modifier la taille ![;)](https://www.developpez.net/forums/images/smilies/icon_wink.gif)
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
)
Range("R" & BeginLine & a & ":R" & EndLine & a).Replace What:="Algemene tevredenheid", Replacement:="Satisfaction générale"
ensuite remplace cette ligne par
msgbox "R" & BeginLine & a & ":R" & EndLine & a
A mon avis tu n'as aucune idée de la ligne sur laquele tu travail ![;)](https://www.developpez.net/forums/images/smilies/icon_wink.gif)
si a vaux 3 tu travail colonne R ligne 13 à colonne R ligne 23
essaye quelque chose comme
range(cells(BeginLine,a),cells(EndLine ,a)
mais si tu n'as pas peur de faire simple
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
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
cells.Replace What:="Algemene tevredenheid", Replacement:="Satisfaction générale"
Partager