Microsoft 365 Zone nommée

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tontonexcel

XLDnaute Occasionnel
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
 
Bonjour,

Regardez si ce code peut vous aider :

VB:
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
4
Affichages
520
  • Question Question
Microsoft 365 formule excel
Réponses
11
Affichages
493
Réponses
16
Affichages
1 K
Retour