Nommer Cellules active sous VB-Excel
Résolu
ludo
-
raph -
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 ???!
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 ???!
Configuration: MS office 2003
A voir également:
- Nommer une cellule vba
- Excel compter cellule couleur sans vba - Guide
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Verrouiller une cellule excel - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
- Comment aller à la ligne dans une cellule excel - Guide
2 réponses
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.
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.
hanophil
Messages postés
2
Statut
Membre
Un grand merci. Ça m'a beaucoup aidé.
raph
merci
