Discussion :

[edonist]

bonjour,

je voudrais créer une macro qui affecte automatiquement a un ensemble de 5 cellules le nom de la personne qui est concernée par ces 5 cellules.
je pense que c'est faisable simplement avec l'enregistreur de macros, mais je ne trouve pas la solution.
ex: de c4 à g4 sur le fichier joint: ensemble de cases qui s'appelle Jean_Dupont

Macros.xls

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Range("H10:H16").Names.Add Name:="Marcel", RefersToR1C1:= _
        "=Feuil1!R10C8:R16C8"

et à la place de Marcel, tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Environ("USERNAME")

Ce qui devrait donner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Nom = Environ("USERNAME")
    ActiveWorkbook.Names.Add Name:=Nom, RefersTo:= _
        Worksheets("feuil1").Range("C2:C15")

Bonne soirée

[edonist]

ben j'ai essayé mais ca marche pas. je comprends rien du tout.
et dire que mon chef voudrait que je me mette aux macros bientot pour lui faire des trucs avec des fenetres qui s'ouvrent toutes seules, etc... et un petit truc comme ca j'y comprends deja rien. je pense que je vais bientot retourner a mes recherches d'emploi...

[fring]

Peut-être qu'avec le petit bout de code commenté cela deviendra plus clair

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Nom As String
 
Nom = "Jean_Dupont" '<-- nom qui sera attribué à la plage de cellules
 
ActiveWorkbook.Names.Add Name:=Nom, RefersTo:=Sheets("Feuil1").Range("C4:G4")
 
'ActiveWorkbbok.Names.Add <-- on ajoute un nom dans le classeur actif
'Name:=Nom <-- définition du nom ajouté
'RefersTo:= <-- à quoi on va attribuer ce nom (voir ci-dessous)
'Sheets("feuil1") <-- nom de la feuille
'Range("C4:G4") <-- plage de cellules à laquelle le nom sera attribué
End Sub

Ensuite pour tester le résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test_nom()
Sheets("feuil1").Range("Jean_Dupont").Interior.ColorIndex = 6
End Sub

Les deux bouts de code ci-dessus sont à placer dans un module standard
Alt+F11 pour ouvrir l'éditeur VBA
menu Insertion --> Module

Pour exécuter les macros
Alt+F8
choisir la macro à exécuter

[edonist]

la deuxieme macro qui colorie fonctionne.
dans ta premiere macro où tu mets toutes les explications pour attribuer un nom a un ensemble de cellules j'ai pas reussi a la faire fonctionner, il faudra que je réessaye.
par contre, tu nommes dans la macro expressement 'jean_dupont'. est ce qu'il y aurait un moyen pour que ca se fasse automatiquement. parce que en fait, mon patron, il va rajouter au fur et a mesure qu'il embauchera, des noms dans un tableau, alors je me vois mal lui dire qu'a chaque fois il doit retourner dans outils -> visual basic editor, et rajouter le code. il a autant selectionner les 5 cases et les nommer.
mais bon, c'est justement parce qu'il a envie d'avoir a en remplir le moins possible que j'avais cette idée de macro automatique.

y'aurait pas un moyen pour dire a une macro, que lorsque l'on ajoute un nom dans telle case, les 5 cases à droite de cette cellule prennent le nom de la case ?

[fring]

bin...si la 2ème macro fonctionne, c'est que tu as réussi à faire fonctionner la première sans t'en rendre compte

Concernant ta question pour soulager la souris de ton patron oui c'est possible

Supposons que tu introduits les noms dans la colonne A, on pourrait envisager un bout de code évènementiel à mettre dans la feuille et non dans un module.
Donc dans l'évènement Change de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
ActiveWorkbook.Names.Add Name:=Target.Value, RefersTo:=Sheets("Feuil1").Range(Target.Offset(0, 1).Address & ":" & Target.Offset(0, 5).Address)
End If
End Sub

Pour vérifier, tu écrits Gerard_Menvu en A1, ensuite tu sélectionnes les cellules B1 à F1 et tu verras (dans le coin supérieur gauche de la feuille, la zone nom) que la plage se nomme comme le nom introduit dans la colonne A.
Tu peux essayer pour A2, A3, A37, A1458, etc...