[XL-2003] Les voies de l'informatique sont parfois impénétrables

[setepenre]

Bonjour à tous,

Je cherche un costaud en VBA qui pourrait m'expliquer pourquoi une routine qui fonctionne très bien dans plusieurs programmes Excel, ne fonctionne pas dans le dernier que je viens de faire, sachant que, hier encore, elle fonctionnait.

Il s'agit de la routine ci-après :

Code :

1
2
3
4
5
6
7
    'renomme la zone UI de la feuille Tables
    ActiveWorkbook.Names("UI").Delete
 
    Sheets("Tables").Select
    Range("F2").Select
    N_I = ActiveCell.End(xlDown).Row
    ActiveWorkbook.Names.Add Name:="UI", RefersToR1C1:="=Tables!R2C6:R" & N_I & "C6"

Donc, quand cette routine a "tourné", le nom UI est créé (on le voit dans la fenêtre "définir un nom" alors que ce même nom n'apparaît pas dans la fenêtre "Atteindre".
Plus extraordinaire, et c'est là que le titre de mon message se justifie, c'est que si je déroule pas-à-pas ma routine, elle fonctionne, le nom "UI" apparaît dans la fenêtre "Atteindre".

Je rappelle que hier encore cette routine fonctionnait. Quelqu'un peut-il m'expliquer pourquoi ?

NB : j'ai rebouté plusieurs fois ma machine.

Merci d'avance pour votre aide

[mercatog]

Bonjour
Je n'ai pas eu ce problème en utilisant ton code (ré adapté)

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim N_I As Long
 
With ThisWorkbook
    On Error Resume Next
    .Names("UI").Delete
    On Error GoTo 0
    With Worksheets("Tables")
        N_I = .Cells(.Rows.Count, "F").End(xlUp).Row
    End With
    .Names.Add Name:="UI", RefersToR1C1:="=Tables!R2C6:R" & N_I & "C6"
End With

[setepenre]

Bonjour Mercatog,

D'abord merci de t'être penché sur mon problème.

J'ai remplacé mon code par le tien, et je retrouve la même anomalie.

En fait, j'ai essayé de comprendre ce qu'il s'est passé et je trouve l'anomalie suivante :
Dans les applications qui fonctionnent, la zone nommée apparaît dans le contrôle "Fait référence à" de la fenêtre "définir un nom" sous la forme suivante : =Tables!$F$2:$F$37
Dans l'application défectueuse, la zone nommée apparaît dans le contrôle "Fait référence à" de la fenêtre "définir un nom" sous la forme suivante : =Tables!R2C6:R37C6

En fait, la traduction ne se fait pas et c'est la raison pour laquelle je ne retrouve pas le nom "UI" dans la fenêtre "Atteindre".

Vois-tu pour quelle raison cette traduction ne se fait plus ?

NB j'ai essayé en remplaçant "UI" par un autre nom, le problème reste identique.