XL 2016 Définir un nom en vba

[Phillip]

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...

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

 

[Dranreb]

Bonjour.
Essayez comme ça :

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

 

[Phillip]

Bonjour Dranreb,
Merci de tes recherches, mais j'ai une erreur de compilation sur le Look:=xlPart

Cordialement

 

[Phillip]

J'ai remplacé look par lookat, et là ça marche !