Calcul à partir d'une plage de valeurs

Résolu/Fermé
thekorrigan29 - 1 févr. 2008 à 10:28
 thekorrigan29 - 1 févr. 2008 à 19:28
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

dandypunk Messages postés 831 Date d'inscription jeudi 3 janvier 2008 Statut Membre Dernière intervention 11 septembre 2011 83
1 févr. 2008 à 11:13
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
0
merci mon problème est résolu
0