J
jcddgl
Guest
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"
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"