Discussion :

[Citypatown]

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

[unparia]

Bonjour

Je te prie de me dire d'où "sort" la variable reponse

[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...

[unparia]

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.

[Nicolas JACQUIN]

Bonjour,
Voici un début,

Code :

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

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.