[VBA-E] besoin d'aide excel et formulaire

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

http://img86.imageshack.us/img86/999...urexcel5jm.jpg

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

http://img448.imageshack.us/img448/9...mulaire3cn.jpg

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:

---

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:

---

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:

---

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 !

bonjour

j'espere que cette adaptation pourra t'aider

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

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