Nommer une plage de cellule VBA
Onizuka
-
phil_232 Messages postés 286 Date d'inscription Statut Membre Dernière intervention -
phil_232 Messages postés 286 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerai un peu d'aide pour nommer une plage de cellule dont j'ai besoin a plusieur reprise et que je ne connai pas la taille
J'explique mon problème :
- Je copie une page web dans le presse-papier et j'aimerai travailler sur cette selection donc voici le morceau de programme que j'ai fait
(page internet : https://worldwide.espacenet.com/publicationDetails/biblio?CC=WO&NR=2008000335&KC=&FT=E&locale=en_EP par exemple)
Sub Essai()
Dim Plage As Range
Sheets.Add.Name = "Modele"
Sheets("Modele").Select
ActiveSheet.Paste
Set Plage = ActiveSheet.UsedRange.Address
'Selection.Name = "Plage"
et la une erreur apparait "erreur 1004"
J'ai besoin de nommer la plage cellule que je vien de coller pour effectuer plusieur opération par la suite du style :
Range("Plage").Find(What:="Inventeur", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 3).Cut (A100)
...
End sub
Merci de votre aide
J'aimerai un peu d'aide pour nommer une plage de cellule dont j'ai besoin a plusieur reprise et que je ne connai pas la taille
J'explique mon problème :
- Je copie une page web dans le presse-papier et j'aimerai travailler sur cette selection donc voici le morceau de programme que j'ai fait
(page internet : https://worldwide.espacenet.com/publicationDetails/biblio?CC=WO&NR=2008000335&KC=&FT=E&locale=en_EP par exemple)
Sub Essai()
Dim Plage As Range
Sheets.Add.Name = "Modele"
Sheets("Modele").Select
ActiveSheet.Paste
Set Plage = ActiveSheet.UsedRange.Address
'Selection.Name = "Plage"
et la une erreur apparait "erreur 1004"
J'ai besoin de nommer la plage cellule que je vien de coller pour effectuer plusieur opération par la suite du style :
Range("Plage").Find(What:="Inventeur", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 3).Cut (A100)
...
End sub
Merci de votre aide
A voir également:
- Nommer une plage de 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