nommer des cellules sous VBA

[bazounga35]

bonjour a tous
voila mon problème :
je récupère en pointant ma souris la référence d'une cellule de debut : origine
je recupere en pointant ma souris la reference d'une cellule de fin : finale

je veux maintenant selectionner la selection entre"origine " et " finale " pour la copier dans une autre feuille

comment faire ???

merci
j'ai ecris ça mais çà ne marche pas !!!

Sub Selection_de_la_période1()


'activation de la page de depart
Worksheets("exemple").Activate


Dim origine As Range
Set origine = Application.InputBox("Sélectionnez une cellule de départ!", "Sélection de cellules", Type:=8)

Dim finale As Range
Set finale = Application.InputBox("Sélectionnez une cellule de fin!", "Sélection de cellules", Type:=8)

'la plage de selection
Range("origine":"finale").Select
'copie de la selection
Selection.Copy
'Selection de la page de destination
Sheets("feuil1").Select
'selection de la cellule ou coller la selection
Range("A3").Select
'Colle la plage copiée
ActiveSheet.Paste
End Sub

 

[Gelinotte]

Re : nommer des cellules sous VBA

Bonjour,

Voilà, teste cela si ça convient ...

Sub Selection_de_la_période1()
    Dim origine As Range
    Dim finale As Range
 'activation de la page de depart
Worksheets("exemple").Activate
 Set origine = Application.InputBox("Sélectionnez une cellule de départ!", "Sélection de cellules", Type:=8)
 Set finale = Application.InputBox("Sélectionnez une cellule de fin!", "Sélection de cellules", Type:=8)
 'la plage de selection
 Range(origine,finale).Select
 'copie de la selection
 Selection.Copy
 'Selection de la page de destination
 Sheets("feuil1").Select
 'selection de la cellule ou coller la selection
 Range("A3").Select
 'Colle la plage copiée
 ActiveSheet.Paste
 End Sub

G

 

[bazounga35]

Re : nommer des cellules sous VBA

merci cela marche impec
merci bcp !!!