Sélectionner une plage puis la mettre dans une formule excel

Bonjour,

Je vous sollicite car je voudrais faire un script simple en VBA.

Fonctionnement désiré du script :
Une boite de texte type InputBox demande à l'utilisateur de sélectionner une plage de cellules.
Une fois sélectionnée, je voudrais que dans une cellule dans excel s'affiche le résultat de l'opération suivante :
=(derniere_ligne-premiere_ligne)/(LIGNE(derniere_ligne)-LIGNE(premiere_ligne))

Le code que j'ai actuellement :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Mon_script Dim xP As Range   On Error Resume Next Set P = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8) On Error GoTo 0 If P Is Nothing Then MsgBox "Sélection annulée"   MsgBox (P) End Sub

---

Résultat :
J'ai donc bien la fenêtre InputBox qui s'affiche pour demander à l'utilisateur de sélectionner une plage mais j'ignore ensuite comment la passer dans une formule sous Excel.

Si qqn a une idée, je suis preneur.

D'avance, merci.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Mon_script() Dim P As Range Set P = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8) Total = P.rows.count debut = P.row fin = debut + Total - 1 colonne = P.column calcul = (cells(fin, colonne) - cells(debut, colonne)) / (fin - debut) msgBox (calcul) End Sub

---

Devrait gazer, il te suffit de mettre ton calcul ou tu veux

Peux tu préciser ce que tu entends par:

Code:

---

derniere_ligne-premiere_ligne

---

N° de ligne (auquel cas ça fera toujours 1 dans ta formule), valeur de la cellule (mais alors dans quelle colonne), ...

bonjour,

même chose que Engue Engue dans une formulation sans doute moins heureuse.
a adapter le bout de code uniquement destiné à un essai.

attention: si j'ai bien compris la formule, tu ne peux proposer la selection d'une seule cellule sinon division par 0.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Mon_script() Dim P As Range   On Error Resume Next Set P = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8) For Each c In P i = i + 1 Cells(1, 4) = c.Row   If i = 1 Then val1 = c.Value num1 = c.Row End If valder = c.Value numder = c.Row   Next Cells(1, 4) = val1 Cells(2, 4) = num1 Cells(3, 4) = valder Cells(4, 4) = numder   Cells(6, 4) = (valder - val1) / (numder - num1)   End Sub

---

Cordialement.

wow, double merci pour à la fois votre rapidité et votre efficacité !

ça marche parfaitement !

merci à vous !!

Bonjour,

N'oublie pas de mettre résolu et peut-être de mettre ta solution finale afin qu'elle profite éventuellement à d'autres.
Ce sera aussi pour nous l'occasion de voir si nous avions bien compris ta demande concernant la formule bizarre.

cordialement.

Bonjour,
j’arrive bien tard mais pour info: