Discussion :

[ElPibeOro]

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 ?

[casefayere]

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

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

[ElPibeOro]

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 :

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

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

[casefayere]

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

[ElPibeOro]

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

Merci beaucoup ! Ca marche parfaitement.