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 : Sélectionner tout - Visualiser dans une fenêtre à part
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