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 ???!
A voir également:
- Nommer une cellule vba
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger 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
Date d'inscription
Statut
Membre
Dernière intervention
Un grand merci. Ça m'a beaucoup aidé.
raph
merci