Attribuer un nom à une cellulle résultant d'une recherche de "string"

[jcddgl]

Bonjour,

Je voudrais pouvoir attribuer un nom à la cellule située directement à droite de celle résultant d'une recherche d'une chaîne de caractères.
Par exemple je recherche "string1" et trouve cette chaîne en cellulle A13
Je voudrais pouvoir attribuer le nom "Nom1" à la cellule B13
Les instructions suivantes fonctionnent pour ce cas particulier, mais comment faire pour récupérer une adresse de cellule variable et incrémenter le numéro de la colonne de 1 pour affecter le nom à la cellule à droite.
Merci d'avance à qui pourrait m'aider.

Jean-Claude

Nota: j'ai cette démarche à faire dans plusieurs feuilles, donc comment faire

Cells.Find(What:="string1", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Cells.Select

ActiveWorkbook.Names.Add Name:="nom1", RefersToR1C1:="=nom_classeur!R13C2"

 

[wilfried_42]

Re : Attribuer un nom à une cellulle résultant d'une recherche de "string"

bonjour et bienvenue

essaye ca :

dim c as range
set c = Cells.Find(What:="string1", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
ActiveWorkbook.Names.Add Name:="nom1", RefersToR1C1:=c.offset(0,1)

d'apres ce que j'ai compris