Discussion :

[ElPibeOro]

Bonjour,

Voila je voudrais que l'on puisse choisir entre deux types d'opération possible des que l'on ouvre le fichier, j'ai donc crée un Inputbox.
Je voudrais que si on choisi l'opération "investissement" on arrive en cellule A4 du classeur et si on choisi l'autre opération on arrive en cellule A504.
Il faut également pourvoir saisir plusieurs opérations du meme type : par exemple je saisie une opération "investissement" donc en ligne 4, si j'en saisi une deuxieme j'arrive en ligne 5 etc etc...

Voici mon code mais je ne comprends pas pourquoi il ne marche pas :

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
Private Sub Workbook_Open()
 
Dim i As Integer
Dim j As Integer
 
Choix1 = InputBox("Entrez le type d'opération que vous voulez effectuer - tapez 'investissement' ou 'fonctionnement'")
 
i = 4
j = 504
 
If Choix1 = "investissement" Then
Feuil1.Range("Ai").Value = Choix1
Else: Feuil1.Range("Aj").Value = Choix1
End If[/QUOTE]
 
i = i + 1
j = j + 1
 
End Sub

Merci d'avance pour vos solutions

[redstoff]

Bonjour,

Je vois une petite erreur sur ces lignes

Code :

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

1
2
Feuil1.Range("Ai").Value = Choix1
Else: Feuil1.Range("Aj").Value = Choix1

marque à la place

Code :

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

1
2
Feuil1.Range("A" & i).Value = Choix1
Else: Feuil1.Range("A" & j).Value = Choix1

et testes

[ElPibeOro]

Oui tu as raison merci beaucoup !

Par contre si je saisi à nouveau une opération "investissement", ça ne passe pas à la ligne suivante mais ça remplace sur la même ligne...

Il faudrait que j'insere une condition comme quoi si la cellule A4 est deja remplie il faut passer a la ligne A5... je pensais que le i=i+1 allait s'occuper de ça....une idée?

[samuel50]

Bonjour

Il faudrait que j'insere une condition comme quoi si la cellule A4 est deja remplie il faut passer a la ligne A5... je pensais que le i=i+1 allait s'occuper de ça....une idée?

dans ce cas l'incrémentation ne fonctionnera pas

Dans le principe pour connaître la première ligne libre à laquelle écrire dans ton cas tu peux utiliser quelque chose dans ce genre pour donner une valeur à ta variable i

Code :

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

1
2
i = Range("A503").End(xlUp).Row + 1
i = IIf(i >= 4, i, 4)

puis faire de même avec j

Cordialement

[ElPibeOro]

Parfait Samuel50 merci beaucoup !