Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Définir un nom en vba

  • Initiateur de la discussion Initiateur de la discussion Phillip
  • Date de début Date de début

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 !

Phillip

XLDnaute Occasionnel
Bonjour à toutes et à tous !

Je cherche à définir des noms dans une feuille. Comme je ne sais pas exactement à quel endroit se trouve la cellule que je veux nommer, je mets une balise dans la cellule juste avant (car celle-là je la connais).

Je cherche cette balise
décale d'une cellule vers la droite
Nomme cette cellule

Pourtant, ça ne marche pas...

VB:
Sub cherchetoto()

Cells.Find(What:="Toto", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
cellaftertoto = ActiveCell.Offset(0, 1)
        
        ActiveWorkbook.Names.Add Name:="trouvetoto", RefersToR1C1:="=cellaftertoto"
        



End Sub

Mon gestionnaire de noms ne reconnait pas cette cellule




Cerise sur le gâteau, j'aimerais que RefersToR1C1:="=cellaftertoto", se réfère au mois en cours ET cellafter toto

Mille merci de votre aide

Cordialement

Phillip
 

Pièces jointes

Bonjour.
Essayez comme ça :
VB:
Option Explicit
Sub cherchetoto()
   Dim CelToto As Range
   Set CelToto = Cells.Find(What:="Toto", After:=ActiveCell, LookIn:=xlFormulas2, Look:=xlPart, _
      SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Not CelToto Is Nothing Then ActiveWorkbook.Names.Add Name:="trouvetoto", RefersTo:=CelToto.Offset(, 1)
   End Sub
 
- 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

Réponses
2
Affichages
410
Réponses
12
Affichages
797
Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…