Discussion :

[hkp314]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Peux tu préciser ce que tu entends par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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), ...

[nibledispo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[hkp314]

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

ça marche parfaitement !

merci à vous !!

[nibledispo]

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.

[Invité]

Bonjour,
j’arrive bien tard mais pour info: