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 : 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
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