Discussion :

[lolo_the_fripouille]

Bonsoir, je suis en train de m'initier au VBA, un langage interessant. Pour cela je vous présente mon petit projet (bancaire)
Un classeur Excel composé de 3 onglets :
- Cpt_Livret_Jeune
- Livret_A
- PEP



J'ai crée une macro, qui fait appel à un formulaire dans lequel on me demande :
- Date de l'opération
- Libellé de l'opération
- Montant de l'opération
- Nature de l'opération
- Cible de l'opération (quel compte ?)



Ainsi, je souhaite deux choses :
- D'une part, quand l'utilisateur sélectionne un compte dans la liste des 3 comptes (LstCible), je veux que l'onglet correspondant au compte s'ouvre. Autrement dit, si je sélectionne "PEP", l'onglet PEP du classeur excel doit s'ouvrir.
- D'autre part, je souhaite que le point d'insertion soit placer en dessous de la dernière ligne "remplie" du tableau. Autrement dit, pour la première saisie, les données doivent se placer ds la ligne A4, pour la seconde saisie dans la ligne A5...etc, et du classeur correspondant au compte. Voilà, jspr avoir été assez clair et jspr que vs pourrez m'aider car j'ai vraiment du mal avec ses histoires de Range, select, xlDown...

Mes codes :

Listing 1 (placé dans Module1) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SaisieOperation()
Range("A4").Select: Selection.End(xlDown).Select
ActiveCell.Offset(4, 0).Range("A1").Select
With FrmSaisieOperation
.LstCible.AddItem "Livret Jeune":
.LstCible.AddItem "Livret A":
.LstCible.AddItem "PEP":
.Show
End With
End Sub

Listing 2 (placé sur le bouton ok) :

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 BtnOK_Click()
With ActiveCell
.Offset(0, 0).Value = TxtBox1
.Offset(0, 1).Value = TxtBox2
.Offset(0, 2).Value = TxtBox3
If OptDebit Then
.Offset(0, 3).Value = "Débit"
Else
.Offset(0, 3).Value = "Crédit"
End If
End With
Unload Me
End Sub

Listing 3 (placé sur le bouton annuler) :

Code :

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

1
2
3
Private Sub BtnAnnuler_Click()
Unload Me
End Sub

Je crois que c'est au listing 2 que l'on donne toutes les instructions qui permettent à la macro de placer les données dans le tableau...

Je vous remercie par avance !

[SilkyRoad]

bonjour

j'espere que cette adaptation pourra t'aider

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
Private Sub BtnOK_Click()
Dim x As Integer
 
'sortir si aucun item n'est sélectionné dans la Lisbox
If LstCible.ListIndex = -1 Then Exit Sub
 
'hypothese que les feuilles sont dans le meme ordre que dans la listbox
'1ere feuille =Livret Jeune , 2eme feuille =Livret A ...etc ...
 
x = Sheets(LstCible.ListIndex + 1).Range("A65536").End(xlUp).Row + 1
'x recupere la 1ere ligne vide dans la colonne A de la feuille cible
 
With Sheets(LstCible.ListIndex + 1)
    .Cells(x, 1).Value = TxtBox1
    .Cells(x, 2).Value = TxtBox2
    .Cells(x, 3).Value = TxtBox3
    If OptDebit Then
    .Cells(x, 4).Value = "Débit"
    Else
    .Cells(x, 4).Value = "Crédit"
    End If
End With
 
Unload Me
End Sub

bon week end
michel