Discussion :

[JPHIK]

Bonjour à tous

Je voudrais nommer une plage de cellules en fonction de la valeur d'une cellule.

Ex :
Ma sélection est Range(ActiveCell, ActiveCell.Offset(38, 1)) et je voudrais donner le nom de ActiveCell.Offset(-2, 0) à cette sélection.


Quelqu'un peut-il m'aider ?

Merci par avance


Cordialement

[Igloobel]

Bonjour,

Je suis pas sûr que ce soit possible vu que ce sont des mots réservés

de plus nommer une plage avec un nom aussi nébuleux ne me parrait pas une bonne idée

[JPHIK]

Le problème est que mon tableau a été conçu comme ça par d'autres.
Je crée un salarié, il y a deux colonnes d'une feuille qui lu sont réservées avec un certain nombre de formules. Chaque plage de colonnes réservées au salarié est nommée selon ses initiales et dans une dernière feuille ces données sont reprises grâce a ses initiales.
Mon soucis est que je voudrais automatiser cette tâche d'ajout de colonne, de reprise des formules etc...

[Igloobel]

Le problème est que mon tableau a été conçu comme ça par d'autres.
Je crée un salarié, il y a deux colonnes d'une feuille qui lu sont réservées avec un certain nombre de formules. Chaque plage de colonnes réservées au salarié est nommée selon ses initiales et dans une dernière feuille ces données sont reprises grâce a ses initiales.
Mon soucis est que je voudrais automatiser cette tâche d'ajout de colonne, de reprise des formules etc...

Je dois être fatigué car j'ai rien compris peux-tu mettre des captures écrans (en cachant les données sensibles) et essayer de donner plus de détails avec des phrases courtes pour que l'on puisse répondre à tes problèmes

[JPHIK]

En fait voilà le code de la dernière feuille qui sélectionne la plage de cellules en question dans une autre feuille, qui le copie et qui ensuite le colle dans la dernière feuille.

1. il va chercher la plage nommée selon les initiales du salarié dans une feuille nommée "6. Modulation Horaires"
2. il les copie
3. il colle le format sur la feuille nommée "7. Modulation Individuelle" depuis la cellule ("B14")

Cette manip est réalisée à chaque fin de mois pour impression et pièce jointe au bulletin de paie.

Les cellules de la feuille "6. Modulation Horaires" sont "colorées selon un code en fonction des événements survenus sur le salarié. Cette feuille est conçue par un succession de colonnes (2 par salarié).
Dans la feuille "7. Modulation Individuelle" Il n'existe plus qu'une seule colonne qui s'actualise au changement d'initiales des salariés

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B12")) Is Nothing Then
    Application.Goto Sheets("6. Modulation Horaires").Range(Sheets("7. Modulation Individuelle").Range("b12"))
    Selection.Copy
    Sheets("7. Modulation Individuelle").Select
    Range("B14").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("C14").Select
End If
End Sub

[eriiic]

Bonjour,

Code :

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

Range(ActiveCell, ActiveCell.Offset(38, 1)).name= ActiveCell.Offset(-2, 0).value

il serait plus prudent de spécifier la feuille (à moins d'être sûr à 120% que ce sera bien la feuille active), et éliminer le ActiveCell (pas très sécure, dépend de l'utilisateur)
eric