Choix avec Inputbox

Bonjour,

J'ai mi en place un code VBA qui permet, dès l'ouverture du fichier Excel, de choisir entre deux types d'opération "investissement" ou "fonctionnement". Si l'on saisi "investissement", cela crée une nouvelle ligne dans la feuille "Investissement", si on tape "fonctionnement" cela crée une nouvelle ligne dans la feuille "fonctionnement".
Voici le code :

Code:

---

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 27 28 29 30 31

Private Sub Workbook_Open()   Dim i As Integer Dim j As Integer     Choix1 = InputBox("Voulez-vous créer ou modifier une opération ? - tapez 'créer' ou 'modifier'")   If Choix1 = "créer" Then   Choix2 = InputBox("Entrez le type d'opération que vous voulez effectuer - tapez 'Investissement' ou 'Fonctionnement'")   i = Range("B1018").End(xlUp).Row + 1 i = IIf(i >= 19, i, 19) j = Range("B1018").End(xlUp).Row + 1 j = IIf(j >= 19, j, 19)   If Choix2 = "investissement" Then Feuil1.Range("B" & i).Value = Choix2 Else: Feuil3.Range("B" & j).Value = Choix2 End If   Else   End If   i = i + 1 j = j + 1   End Sub

---

Mon problème est que lorsque j'ouvre le fichier, si j'arrive dans la feuille "investissement", je ne peux pas créer de nouvelle ligne dans la feuille "fonctionnement"....et inversement.

Voyez-vous de quoi ce problème peut venir ?

Bonjour,
Peut-être comme ça
attention !, j'ai changé la variable choix1, tu feras comme tu l'entends

Code:

---

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

'si Feuil1 et Feuil3 ne sont pas des variables Private Sub Workbook_Open() Dim i As Integer, choix1 As Integer, Choix2 As String Dim j As Integer choix1 = InputBox("Voulez-vous créer ou modifier une opération ? - tapez 1 pour 'créer' ou 2 pour 'modifier'")   If choix1 = 1 Then Choix2 = InputBox("Entrez le type d'opération que vous voulez effectuer - tapez 'Investissement' ou 'Fonctionnement'") i = Sheets("Feuil1").Range("B" & Sheets("Feuil1").Rows.Count).End(xlUp).Row + 1 i = IIf(i >= 19, i, 19) j = Sheets("Feuil3").Range("B" & Sheets("Feuil3").Rows.Count).End(xlUp).Row + 1 j = IIf(j >= 19, j, 19) If Choix2 = "investissement" Then Sheets("Feuil1").Range("B" & i).Value = Choix2 Else Sheets("Feuil3").Range("B" & j).Value = Choix2 End If   Else '......... End If   i = i + 1 j = j + 1   End Sub

---

Merci pour ta réponse rapide.

J'ai essayé ton code, ça me met une erreur d'éxécution (9)==>l'indice n'appartient pas à la sélection à cette ligne la :

Code:

---

i = Sheets("Feuil1").Range("B" & Sheets("Feuil1").Rows.Count).End(xlUp).Row + 1

---

Changes Feuil1 par le nom de ta feuille, idem pour feuil3 si ce ne sont pas les bons noms

Oui c'est ça je venais de m'en rendre compte.

Merci beaucoup ! Ca marche parfaitement.