Déplacer selection plage de celules

Bonjour à tous,

après recherche sur le sujet, je n'ai pas trouvé de réponse qui fonctionne.

J'explique mon problème:

• Je fais une selection manuelle d'une plage (qui peut varier)
• Je souhaite en suite que cette selection (c'est donc une plage) se transfère à la ligne d'après
• Faire la somme de cette selection

En d'autre terme je voudrais savoir comment on peut appliquer "Activecell.Offset(1, 0).Select" à une plage.

J'espère avoir été assez clair.

Merci d'avance pour votre aide.

Bonsoir

Avec ton fichier ce serait plus facile de tester.

Un essai

Sub Test()
Dim MaPlage As Range
Dim Lg As Integer, Col As Integer

Set MaPlage = Application.InputBox(prompt:="Sélectionnez la plage", Type:=8)

Lg = MaPlage.Row
Col = MaPlage.Column

    MaPlage.Cut
    Cells(Lg + 1, Col).Select
    ActiveSheet.Paste

x = WorksheetFunction.Sum(MaPlage)
MsgBox x

End Sub

Amicalement

Nad

Bonjour,

Pour commencer, merci Nad pour ta réponse, mais ce n'est pas vraiment ce que je veux faire.

Je viens de rajouter un fichier pour essayer d'expliquer un peu mieux.

Dans Feuil2:

L'idée est de selectionner une plage (par exemple 8,9,10,11) et faire la somme de cellules en bas (dans l'exemple 2+1+4+5=12).

Ce qui serait encore mieux pour la lisibilité de mon fichier serait:

Dans Feuil1:

Faire la selection sur les chiffres en gras (par exemple 1,2,3,4)

Dans la Feuil2:

Que la macro vienne faire la somme sur cette feuille sur les chiffres en italique (dans l'exemple 1+3+2+1=7)

Merci d'avance pour votre aide!

EDIT: Je viens de trouvé une partie de réponse.

Il suffit d'appliquer:

Sub Test()

    Dim SelRange As Range
    Set SelRange = Selection.Offset(1, 0)
    Somme = Application.Sum(SelRange)
End Sub

C'est grosso modo ce que je voulais faire. Mais comme je l'ai dit, je voudrais bien (pour une histoire de lisibilité) que cette Selection puisse être appliquer à une autre Feuille. Mais je crois qu'une selection est spécifique à une Feuille.

Quelqu'un aurait-il une idée?

Coucou tout le monde!

Juste pour upper le post, parce que je n'ai toujours pas trouvé la solution.

Quelqu'un aurait-il la formule magique pour utiliser une selection faite sur une page, sur la page d'après?

Merci d'avance!