Calcul à partir d'une plage de valeurs

Résolu/Fermé
Signaler
-
 thekorrigan29 -
Bonjour, je reposte parce ce que j'ai evolué dans mes recherches. je n'arrive toujours pas à faire la somme des plages de cellules. ni a récupérer les plages dans une autre cellule pour faire le calcul.

voici la macro:
Sub SelectionPlageAvecSouris()

Dim Plage As Range
Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez séléctionnez est : " & Plage.Address)
Range("L21") = Plage
Dim Plage2 As Range
Set Plage2 = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
MsgBox ("La plage que vous avez séléctionnez est : " & Plage.Address)
Range("L22") = Plage2
End Sub

le problème vient peut être du dim as mais je n'arrive pas a faire autrement.

merci par avance

2 réponses

Messages postés
831
Date d'inscription
jeudi 3 janvier 2008
Statut
Membre
Dernière intervention
11 septembre 2011
82
Essayes ce code
Sub SelectionPlageAvecSouris()

Dim Plage As Range
Dim Plage2 As Range

    Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
    MsgBox ("La plage que vous avez séléctionnez est : " & Plage.Address)
    Range("L21").Value = Plage.Address
    
    Set Plage2 = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
    MsgBox ("La plage que vous avez séléctionnez est : " & Plage.Address)
    Range("L22").Value = Plage2.Address

End Sub
merci mon problème est résolu