Nommer plage de cellule active sous VB
Résolu
Ludo
-
Tu -
Tu -
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.
A voir également:
- Nommer plage de cellule active sous VB
- Vb - Télécharger - Langages
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
- Active partition disk - Télécharger - Stockage
2 réponses
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
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