Calcul à partir d'une plage de valeurs
Résolu
thekorrigan29
-
thekorrigan29 -
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
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
A voir également:
- Calcul à partir d'une plage de valeurs
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Calcul km marche à pied gratuit - Télécharger - Sport
- Calcul moyenne excel - Guide
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
2 réponses
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