![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
Salut le forum
Peut on relier des noms à des cases Je m explique Ex: "David" représente les cases "a1:b10" "Tony" représente les cases"c10:d10"etc...... Sans utiliser la "zone nom" car je voudrais que, quelle que soit la page ouverte quand je sélectionne un nom a l'aide d'un combo box les cases soient sélectionnées mais surtout pas associera une page merci @+ David |
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
Guest
Messages: n/a
|
Salut"David" bonsoir le "FORUM" peut être un début de solution à travailler dans un module cette procédure permet de nommer les plages en fonction de la feuille active on peut ainsi dans chaque feuille travailler sur les même plages Sub nom2() With ActiveSheet .Range("A1:C1").Name = "David" 'nomme la plge "David" .Range("C10 10").Name = "Tony" 'nomme la plage"Tony.Range("David").Interior.ColorIndex = 3 'color les plages .Range("Tony").Interior.ColorIndex = 6 End With End Sub A+++ car Miammiam Jean Marie |
|
|
#3 (permalink) |
|
Guest
Messages: n/a
|
Bonjour jean marie et le forum
Merci ta solution m'a bien aidé je l'ai un peu modifié Dans l'userform Private Sub UserForm_Initialize() ComboBox2.RowSource = "donnee!e1:e12" Call nom2 End Sub Private Sub ComboBox2_Change() ActiveSheet.PageSetup.PrintArea = (ComboBox2.Value) Range(ComboBox2.Value).Select End Sub Dans un module Sub nom2() With ActiveSheet .Range("l49:s81").Name = Sheets("donnee").Range("e1").Value 'nomme la plage =E1 .Range("t49:aa81").Name = Sheets("donnee").Range("e2").Value .Range("l49:s81").Name = Sheets("donnee").Range("e3").Value .Range("t49:aa81").Name = Sheets("donnee").Range("e4").Value .Range("l49:s81").Name = Sheets("donnee").Range("e5").Value .Range("t49:aa81").Name = Sheets("donnee").Range("e6").Value .Range("l49:s81").Name = Sheets("donnee").Range("e7").Value .Range("t49:aa81").Name = Sheets("donnee").Range("e8").Value .Range("l49:s81").Name = Sheets("donnee").Range("e9").Value .Range("t49:aa81").Name = Sheets("donnee").Range("e10").Value .Range("l49:s81").Name = Sheets("donnee").Range("e11").Value .Range("t49:aa81").Name = Sheets("donnee").Range("e12").Value End With End Sub Qu’est ce que tu en pense A+ David |
| ANNONCES | |
| Liens sociaux |
| Outils de la discussion | |
|
|