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