Nommer Plage de Cellule VBA

Signaler
Messages postés
1
Date d'inscription
mardi 29 janvier 2008
Statut
Membre
Dernière intervention
29 janvier 2008
-
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
-
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 : http://v3.espacenet.com/textdoc?DB=EPODOC&IDX=WO2008000335&F=0 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




SEb

1 réponse

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
je vous le refait en francais desolé


voici ton code un peu débuger mais vu que je sais ni quoi ni comment tu fais la copie de la page je ne peu pas t'aider plus


Sub Essai()

Dim Plage As Range

Sheets.Add.Name = "Modele"

Sheets("Modele").Select

ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False

Set Plage = ActiveSheet.UsedRange

Plage.Find("Inventeur", , , , xlByRows, xlPrevious).Select

'ici je ne comprend pas ce que tu veux faire ???

ActiveCell.Offset(1, 3).Cut (A100)

End Sub


A+