Noms des cellules erronés

Salut à tous les membres du forum...

J'ai un problème délicat et m'approche vers vous pour une solution...svp

J'ai crée un fichier de 72 feuilles pour la déclaration aux impôts et l'essentiel des cellules sont nommés. J'ai permuté quelques feuilles d'une ancienne sauvegarde et le gestionnaire des noms du fichier actuel comporte des #REF! sur les plages de cellules nommés.

Je sollicite grandement votre aide pour trouver solution...les noms des feuilles sont identiques pour les 2 fichiers, les noms des cellules également.

D'avance, je vous remercie...

François

Bonjour François,

voici une possibilité,

Sub ListeNames()
With ActiveWorkbook
    For i = 1 To .Names.Count
        Cells(i, 1) = .Names(i).Name
        Cells(i, 2) = "'" & .Names(i).RefersTo
    Next
End With
End Sub

Sub CorrigerNames()
'inscrire d'abord les nouvelles références en colonne 3 et 4 avant l'exécution de cette macro
With ActiveWorkbook
    For i = 1 To .Names.Count
        .Names(Cells(i, 1)).Name = Cells(i, 3)
        .Names(i).RefersTo Cells(i, 4).Formula
    Next
End With
End Sub

Merci,

mais çà pas marché...

i20100 a écrit :

Bonjour François,

voici une possibilité,

Sub ListeNames()
With ActiveWorkbook
    For i = 1 To .Names.Count
        Cells(i, 1) = .Names(i).Name
        Cells(i, 2) = "'" & .Names(i).RefersTo
    Next
End With
End Sub

Sub CorrigerNames()
'inscrire d'abord les nouvelles références en colonne 3 et 4 avant l'exécution de cette macro
With ActiveWorkbook
    For i = 1 To .Names.Count
        .Names(Cells(i, 1)).Name = Cells(i, 3)
        .Names(i).RefersTo Cells(i, 4).Formula
    Next
End With
End Sub