Nommer Cellules active sous VB-Excel

Résolu
ludo -  
 raph -
Bonjour,

Je souhaite utiliser Visual Basic pour coller un nom sur plage de cellule sous excel dont le nombre de lignes varie (le nombre de colonne ne variant pas).

Je pensais pouvoir régler le problème en utilisant le programme ci contre mais la référence du nom (sous Insertion/nom/Définir) apparait comme "OPVOLR$A$3:$J$9416", et est donc inexploitable (les références utilisables sont mentionnées sans les guillemets.

Voici le programme en question :

Sub Macro1()
Dim nblignes As Integer
Dim plageActive As String

Range("a3").Select
nblignes= 3

Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Range("a1").Select
nblignes = nblignes + 1
Loop

Range("a3").Select
' ActiveWorkbook.Names("PCG").Delete

plageActive = ("OPVOLR!$A$3:$J$" & nblignes)
ActiveWorkbook.Names.Add Name:="PCG", RefersToR1C1:="OPVOLR!$A$3:$J$" & nblignes

End Sub


Je suis bloqué sur ce point depuis deux jours (eh oui, n'est pas Steve Wozniak qui veut).

kelk'un peut'il m'aider, s'iouplait ???!

2 réponses

ludo
 
Bon, j'ai trouvé la soluce dans le forum (merci Purrofixe!!).

Le programme était tout simplement :

Sub Macro2()
'
' Macro2 Macro
'
vPlageNom = Range("a3:j" & Range("a3").End(xlDown).Row)
ActiveWorkbook.Names.Add Name:="PCG", RefersToR1C1:=vPlageNom

End Sub

Je le poste juste pour ceux que cela pourrait aider.

A+,
ludo.
6
hanophil Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Un grand merci. Ça m'a beaucoup aidé.
0
raph
 
merci
0