Boucle, variable et InStr

Bonjour,
Le code suivant doit changer le texte des cellules ou il rencontre les nom des stations (au milieu d'un text) par le nom des station uniquement. Je ne peux malheureusement pas extraire les noms des station directement car le format des textes est tres variable
J'utilise donc un systeme de comparaison qui devrait permettre de remplacer ces textes malheureusement ca ne marche pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Refresh() Endrow1 = Worksheets("IntervalReadsDebtor_20140408082").Range("A" & Rows.Count).End(xlUp).Row Endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row For Nrow = EndNrow To 2 Step -1 StationName = Sheet2.Cells(Nrow, 1).Value For Nrow1 = EndNrow1 To 2 Step -1 If InStr(1, Worksheets("IntervalReadsDebtor_20140408082").Cells(Nrow1 + 8, 2).Value, StationName) <> 0 Then Worksheets("IntervalReadsDebtor_20140408082").Cells(Nrow1 + 8, 2).Value = StationName End If Next Next End Sub

---

Je n'arrive pas a detecter l'erreur dans mon code.
Pouvez vous m'aider ?
Merci d'avance
Adam

Je ne comprends pas le "+8" que tu ajoutes à NRow1.

A mon avis, le problème vient du nom de tes variables limites qui n'est pas le même dans tes For que ceux que tu calcule au début.
Une erreur qui aurait facilement été détectée en faisant une exécution en pas à pas.

Bonjour,

Premièrement, quand tu mets du code, formate-le en utilisant l'icône #
Ça rend les choses plus faciles à lire...

Tu utilises différents noms de variables
Tu dimensionnes Endrow1
Et tu utilises EndNrow1

Je ne penses pas que tu utilises Option Explicit en entête de module.
Tu devrais...

Merci beaucoup