Reprendre le nom saisi dans la cellule ligne -1 pour définir le nom excel vba

Résolu/Fermé
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 21 juin 2021 à 14:25
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 21 juin 2021 à 19:40
Bonjour,

Je souhaite récupérer le nom saisi dans la cellule au dessus pour définir le nom.

En cellule a11 je saisi Agent1, puis en cellule B11 je saisi Agent2....etc


Comment utiliser le nom en A11 pour définir le nom en A13 .....etc

Actuellement en A13, je défini le nom avec le bouton droit de la souris (Définir un nom ....), puis je saisi le nom Agent1 et cela pour toutes les cellules...

Merci d'avance !



Configuration: Windows / Firefox 78.0

6 réponses

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié le 21 juin 2021 à 14:50
Bonjour

pas besoin de vba

Reprendre le nom saisi dans la cellule ligne -1 pour définir le nom excel vba
En A11 tu mets Agent01 (préférable si moins de 100)
puis tu tires cette cellule vers le bas

En cellule a11 je saisi Agent1, puis en cellule B11 je saisi Agent2....etc
En A11 tu mets Agent01 (préférable si moins de 100)
puis tu tires cette cellule vers la droite

Comment utiliser le nom en A11 pour définir le nom en A13 .....etc
En A11 tu mets Agent01 (préférable si moins de 100)
tu sélectionnes A11:A12 et tu tires vers le bas


Cdlmnt
1
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
21 juin 2021 à 15:01
En A1 tu mets Agent
En A13 ==$A$11&TEXTE(ENT((LIGNE()-11)/2);"00")
Tu selectionnes A13:A14 et tu tires vers le bas

Cdlmnt
1
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
Modifié le 21 juin 2021 à 15:29
Merci mais les cellules A13 et B13....ne sont pas nommées automatiquement..

Voici un fichier comme exemple avec la définition du nom en manuel :

https://cjoint.com/c/KFvnczQqYSq
0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21 > PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023
Modifié le 21 juin 2021 à 16:23
Je viens de trouver ceci en vba :

Exemple pour A13 qui vient récupérer le nom dans A11

Sub Test()
ActiveSheet.Names.Add Name:=ActiveSheet.[A11].Value, RefersTo:="=" & Selection.Address
End Sub

Comment adapter ce code pour l'ensemble des cellules A13 à EV13 ou plus si nécessaire ?
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
21 juin 2021 à 16:34
Un peu de retard, internet était dans les choux
https://www.cjoint.com/c/KFvoHNVq2qB

Cdlmnt
1
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
21 juin 2021 à 16:47
Merci, pour ce 1er code, mais mon souhait serait que la cellule A13 prenne le nom situé en A11, puis la cellule B13 prenne le nom situé en B11.....etc vers la droite en une seule opération.

Les lignes concernées sont 11 et 13.

Encore Merci pour votre aide !
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
21 juin 2021 à 18:02
On va y arriver
https://www.cjoint.com/c/KFvqb6udeXB

Cdlmnt
1

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
21 juin 2021 à 14:55
Merci CCM81,

Je souhaite en A13 que le nom soit défini automatiquement avec le nom saisi en A11

A13 =nom défini qui se trouve en (A11), donc Agent01

Cdlmnt
0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
21 juin 2021 à 19:40
Merci CCM81 ! C'est parfait !
0