Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives


 
 
LinkBack Outils de la discussion
Vieux 22/11/2004, 18h30   #1 (permalink)
david
Guest
 
Messages: n/a
Par défaut question?

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
Vieux 22/11/2004, 19h27   #2 (permalink)
CHti160
Guest
 
Messages: n/a
Par défaut Re: question?


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
 
Vieux 23/11/2004, 14h00   #3 (permalink)
david
Guest
 
Messages: n/a
Par défaut Re: question?

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

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 03h18.


(C) 2006 Excel Downloads