Discussion :

[adamgg]

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

[Menhir]

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.

[parmi]

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...

[adamgg]

Merci beaucoup