Nommer plage de cellule active sous VB
Résolu
Bonjour,
J'aimerais Nommer une plage de cellule variant en taille à chaque nouvelle utilisation en utilisant Visual Basic.
J'ai essayé de nommer cette plage avec ces lignes de commande, mais cela ne fonctionne pas :
Sub Macro3()
'
Dim zoneactive As String
ActiveWorkbook.Names("PCG").Delete
Selection.CurrentRegion.Select
zoneactive = ActiveCell.Select
ActiveWorkbook.Names.Add Name:="PCG", refersToR1C1:=zoneactive
End Sub
Auriez vous une solution à) me proposer ??
Merci bcp,
Ludo.
J'aimerais Nommer une plage de cellule variant en taille à chaque nouvelle utilisation en utilisant Visual Basic.
J'ai essayé de nommer cette plage avec ces lignes de commande, mais cela ne fonctionne pas :
Sub Macro3()
'
Dim zoneactive As String
ActiveWorkbook.Names("PCG").Delete
Selection.CurrentRegion.Select
zoneactive = ActiveCell.Select
ActiveWorkbook.Names.Add Name:="PCG", refersToR1C1:=zoneactive
End Sub
Auriez vous une solution à) me proposer ??
Merci bcp,
Ludo.
Configuration: MS office 2003
2 réponses
-
Salut,
J'ai le même probleme.
As tu trouvé la solution??
Merci -
Je bidouille quelque chose comme ça en ce moment, si ça peux servir...
Public Addr as String
'userform avec contrôle RefEdit1 et BoutonOK
Private Sub BoutonOK_Click()
Addr = RefEdit1.Value
'Vérifie s'il y a eu une sélection
If Addr = "" Then
MsgBox "Sélectionnez une plage de cellule"
Exit Sub
End If
'Nomme plage sélectionnée
ActiveWorkbook.Names.Add Name:="NOm_Donné", RefersToR1C1:=Range(Addr)
UserForm1.Hide
End Sub
'affichez le userform1, à mettre dans un module
Sub Afficher()
UserForm1.Show
End Sub
