question?

[david]

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

 

[CHti160]

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("C1010").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

 

[david]

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