utiliser le nom de la feuille

[modus57]

Bonjour à tous,

Je souhaiterais nommer les cellules A1 à A5 en utilisant le texte 'valeur' + l'année et le nom de la feuille active.
J'ai écrit le petit bout de code ci-dessous mais pourquoi çà bug

ActiveCell.Range('A1:A5').Name = 'valeur_' & Year(Date) & ActiveSheet.Name

Quelqu'un a t'il une solution.

Merci d'avance et @+

 

[JC de Lorient]

salut

essayes plutot ça :
Range('A1:A5') = 'valeur_' & Year(Date) & ActiveSheet.Name

JC

 

[Bebere]

bonjour Modus,Jc
donner un nom à une plage de cellules
Sheets('NomDeLaFeuille').Range('A2:A5').Name = 'valeur_' & Year(Date) & ActiveSheet.Name

à bientôt

 

[Charly2]

Bonjour Modus57, JC et Bebere

Modus, ton code ne pose pas de problème mais par contre, il ne nomme pas forcément la plage A1:A5. En fait, il nomme une plage de 5 lignes sur 1 colonne à partir d'ActiveCell dans la feuille active ; si la cellule active est C7, tes cellules nommées seront C7:C11. Dans ActiveCell.Range('A1:A5'), la propriété Range('A1:A5') fonctionne un peu comme Resize : ActiveCell.Resize(5,1) ...

Les exemples donnés par JC et Bebere doivent répondre à ta demande, en rajoutant toutefois pour celui de JC : Range('A1:A5').Name .

A+

 

[Bebere]

bonjour Charly tu ferais un bon prof à bientôt

 

[modus57]

Bonjour Charly2, JC et Bebere

Dans l'exemple de Bebere il faut rentrer le nom de la feuille et le code de JC fait toujours référence aux cellules A1:A5

Ce que je veux faire c'est selectionner une ou plusieures cellules à un endroit quelquonque de la feuille et par macro nommer la sélection en utilisant le texte \\'valeur\\' + l'année et le nom de la feuille active.

Merci de votre interêt à cette question.

A +

 

[Dull]

Salut modus57, Bebere , JC de loriant, Charly2, le Forum,


à mon avis reprend les code de mes camarades et place les dans la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = 'valeur_' & Year(Date) & ' ' & ActiveSheet.Name
End Sub

Double clic dans n'inporte quelle cellule et tu aura le resultat escompter.
maintenant pour une palge de cellule selectionne ta plage et 'Fusionne et Centre' [file name=Modus57.zip size=6779]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modus57.zip[/file]

 

[m]

Salut Bebere , JC de loriant, Charly2, Dull et le Forum,

Dull dans ton code la cellule sur laquelle tu doubleclic prend la valeur suivante 'valeur_2006 Bonjour'

Ce que cherche à faire c'est de définir le nom 'valeur_2006 Bonjour' à la cellule qui a était doubleclicquée sans passer par le menu Insertion Nom Définir

J'espère que je me suis bien explilqué

A +

 

[modus57]

Salut Bebere , JC de loriant, Charly2, Dull et le Forum,

Je crois avoir trouvé la solution

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ActiveFeuille As String
ActiveFeuille = ActiveSheet.Name
ActiveCell.Range('A1').Name = 'Valeur_' & ActiveFeuille & '_' & Year(Date)
End Sub

Merci pour votre aide, elle m'a aidé de trouver une solution.

Si vous avez une autre sujétion, elle sera la bienvenue.

Au revoir à tous Modus57

 

[Dull]

Re le fil,

Heu...effectivement je n'avais pas saisie ta demande. essai ce fichier

n'hesite pas si problème
@+ :woohoo: [file name=Modus57_20060311132700.zip size=12393]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modus57_20060311132700.zip[/file]

 

[Charly2]

re à tous, bonjour Dull,

Merci Bebere, c'est aussi ce que me disent mes enfants mais ils ne sont pas très objectifs

Dull, tu cours après le ZOP ou quoi ? :woohoo:

modus, tu peux écrire plus simplement :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
        Cancel As Boolean)
'
  Target.Name = 'Valeur_' & ActiveSheet.Name & '_' & Year(Date)
  Cancel = True
End Sub

Voili voilà

A+

 

[Dull]

Re le fil,

nan Charly, c'est pas moi qui court après lui c'est lui qui me poursuit :whistle:

@+ :woohoo:

 

[modus57]

Touti fil

Ci-joint fichier modifié ça roule pour moi.

Re merci pour votre aide

Asta la vista [file name=Modus571.zip size=11149]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modus571.zip[/file]