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) :
Listing 3 (placé sur le bouton annuler) :
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
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...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub BtnAnnuler_Click() Unload Me End Sub
Je vous remercie par avance !
Partager