Microsoft 365 Zone nommée

[tontonexcel]

Bonjour à tous

J'ai récupéré un fichier d'Excel 365 version locale sur la version Excel 365 Online qui est imposée dans une société

Je cherche désespérement à gérer les zones nommées, j'ai pu créer et employer mes zones dans les formules mais je ne peux pas supprimer un nom (je n'ai pas trouvé le gestionnaire de noms)
Je sais que la version Online ne gère pas toutes les commandes de la version locale... Avez vous une solution ?
Merci d'avance

 

[Eric KERGRESSE]

Bonjour,

Regardez si ce code peut vous aider :

Sub ListerLesZonesNommees()

Dim LigneTitreZone As Long, DerniereLigneZNommee As Long
Dim MaZoneNommee As Name
Dim Wb As Workbook
Dim ShListesZones As Worksheet

    
    
    Set Wb = ActiveWorkbook
    Set ShListesZones = Wb.Sheets.Add
 
    With ShListesZones
         .Cells.Clear
         LigneTitreZone = 10
         DerniereLigneZNommee = LigneTitreZone + 1
         With .Range(.Cells(LigneTitreZone, 1), .Cells(LigneTitreZone, 4))
            .Value = Array("Nom", "Adresse", "Onglet", "Nom 2")
            .Interior.Color = RGB(255, 255, 0)
            .Font.Bold = True
         End With
        
         For Each MaZoneNommee In Wb.Names
             Select Case Mid(MaZoneNommee.Name, 1, 2)
                    Case "_x", "wr"
                    
                    Case Else
                         .Cells(DerniereLigneZNommee, 1).Value = "'" & MaZoneNommee.RefersTo
                         .Cells(DerniereLigneZNommee, 2).Value = MaZoneNommee.Name
                         If InStr(1, MaZoneNommee.Name, "!", vbTextCompare) > 0 Then
                            .Cells(DerniereLigneZNommee, 3).Value = Split(MaZoneNommee.Name, "!")(0)
                            .Cells(DerniereLigneZNommee, 4).Value = Split(MaZoneNommee.Name, "!")(1)
                         Else
                          .Cells(DerniereLigneZNommee, 4).Value = MaZoneNommee.Name
                         End If
                         DerniereLigneZNommee = DerniereLigneZNommee + 1
             End Select
         Next MaZoneNommee
    
    End With

    Set ShListesZones = Nothing
    Set Wb = Nothing

End Sub

 

[Staple1600]

Bonsoir le fil,

@Eric KERGRESSE

sur la version Excel 365 Online qui est imposée dans une société

je crois que cette version ne cause pas le VBA

 

[tontonexcel]

Bonjour à tous merci pour les réponses, effectivement j'en ai eu la confirmation la version online ne gère pas les zones nommées (et comme le dit Staple1600 ni le VBA !)

 

[Eric KERGRESSE]

Bonjour à tous,

TontonExcel, vous avez écrit cela :

j'ai pu créer et employer mes zones dans les formules mais je ne peux pas supprimer un nom (je n'ai pas trouvé le gestionnaire de noms)

Le libellé supposait que vous pouviez utiliser les zones nommées sous réserve de les connaître. Ma réponse supposait donc de rapatrier le fichier sur votre pc pour en faire l'inventaire ou pour les modifier.

Cordialement.