Utilisation de variables et InputBox

Je galère avec le VisualBasic ... Je m'explique :

Dans la case A1, j'ai entré le nombre 24.

1) Comment faire pour qu'une première boite de dialogue s'ouvre (InputBox) et me demande les coordonnées d'une cellule (exemple G6) ; puis qu'une seconde boite de dialogue s'ouvre et me demande d'entrer un nombre. Le résultat attendu est que dans la case choisie (ex G6), un nouveau nombre apparait : 24 * le nombre entré précédemment.

2) Si je met la lettre J dans la case B1 -> comment faire pour que dans la case J24, il s'affiche un nombre au hasard.

Merci pour vos réponses, à chaque fois, j'ai des messages d'erreur avec la fonction InputBox (il me parle de définir en Dataobject ou je ne sais plus quoi) ...

1)

Sub Calcul()
    Dim Nb1 As Double, Nb2 As Double, Cel2 As String
    Nb1 = Range("A1").Value
    Cel2 = InputBox("Quelle cellule ?", "Choix", "G6")
    If Cel2 = "" Then Exit Sub
    Nb2 = InputBox("Deuxième nombre")
    Range(Cel2) = Nb1 * Nb2
End Sub

2)

Sub Hasard()
    Dim Cel As String, Nb As Integer
    Randomize
    Nb = Int((100 * Rnd) + 1)
    Cel = Range("B1").Value
    If Cel <> "" Then Range(Cel & "24").Value = Nb
End Sub

Merci beaucoup ! Juste deux dernières questions :

- La définition "Double" ça veut dire définir variable numérique ?

- Dans le cas n°1, est-il possible d'effectuer un contrôle sur le format que l'on rentre (exemple: si on met comme cellule "GG" ça plante). L'idéal c'est que la Macro se termine en affichant une MSG box qui explique l'erreur.

Merci

Il y a plusieurs types de variables numériques:

Double est un type permettant d'utiliser une très grande plage de nombre avec ou sans décimales.