Probleme Inputbox et Sélection.autofill destination

Version imprimable

Bonjour,
Voici un code censé rajouter des lignes en fonction de la réponse a une inputbox. Voilà j’ai plusieurs problèmes*:
Je voudrais que l’ inputbox s’ouvre lorsque l’on clique sur la cellules B16. Ensuite je souhaite que l’autofill puisse s’adapter au nombre de ligne ajouter par l’inputbox. Enfin j’ai remarqué que si on annule l’inputbox ou si on met rien il ne se passe pas ce que je veux.
Si quelqu’un à un conseil je le remercie grandement.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub toto() x = InputBox("Combien de montants différents avez-vous?", "ANCV") If reponse = "annuler" Then MsgBox "vous avez annulé" ElseIf reponse = " " Then MsgBox "vous avez appuyé sur OK sans information" reponse = "" Else MsgBox "Merci. " & Trim(reponse) End If For i = 2 To x ActiveSheet.Rows(17).Insert Range("d16").Select ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-2]" Selection.AutoFill Destination:=Range("d16:d20".Row) Next i End Sub

23/06/2017, 18h32
unparia

Bonjour

Je te prie de me dire d'où "sort" la variable reponse
23/06/2017, 18h46
Citypatown

En fait elle doit sortir d'un copier coller sur le web, ou alors elle s'est égaré là a fore de modifier le code...
23/06/2017, 19h40
unparia

Citation:

ou alors elle s'est égaré là a fore de modifier le code...

Hé bien ne compte alors pas sur moi ....
Certaines bases de chez base me font fuir à grandes enjambées lorsqu'elles sont absentes.
Bonne chance.

Bonjour,
Voici un début,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$16" Then
    x = Application.InputBox("Combien de montants différents avez-vous?", "ANCV")
   If VarType(x) = vbBoolean Then
        MsgBox " opération annulée"
        Exit Sub
    End If
    For i = 1 To x
        ActiveSheet.Rows(17).Insert
    Next i
    MsgBox "Vous avez inséré" & " " & x & " " & "lignes"
End If
End Sub

Bonne chance.