Discussion :

[body71]

Bonjour à tous,

Je viens de rejoindre la communauté afin de me former sur la programmation VBA sous excel.

Voilà mon problème.

- J'ai créer un UserForm ou je rentre des données sur la gestion de 3 locataires (date de loyer, mois du loyer, montant, mode de paiement…)
- J'ai mis une combobox avec 3 choix (locataire 1, locataire 2, locataire 3).

Et pour finir un bouton "valider".

Je voudrais qu'en fonction du choix de la Combobox, le bouton "valider" renvoie les données du UserForm sur une autre page excel, par exemple "loyers", mais en déplaçant ces données suivant la réponse.

Par exemple du style de résultat voulut,
sur la feuille "loyers"

Locataire 1:
Départ des données à partir de la cellule A5
Incrémenter les lignes suivantes jusqu'à A17 à chaque validation du UserForm et avec le choix Locataire 1 de la combobox.

Locataire 2:
Départ des données à partir de la cellule A20
Incrémenter les lignes suivantes jusqu'à A32 à chaque validation du UserForm et avec le choix Locataire 2 de la combobox.

Locataire 3:
Départ des données à partir de la cellule A35
Incrémenter les lignes suivantes jusqu'à A47 à chaque validation du UserForm et avec le choix Locataire 3 de la combobox.

Résultat final:

Locataire 1:
02/01/2020 Loyer JANVIER "nom du locataire 1" la somme de: 300€ payé par virement
05/02/2020 Loyer FEVRIER "nom du locataire 1" la somme de: 300€ payé par virement
03/03/2020 Loyer MARS "nom du locataire 1" la somme de: 300€ payé par virement
…

Locataire 2:
10/01/2020 Loyer JANVIER "nom du locataire 2" la somme de: 400€ payé par chèque
15/02/2020 Loyer FEVRIER "nom du locataire 2" la somme de: 400€ payé par chèque
13/03/2020 Loyer MARS "nom du locataire 2" la somme de: 400€ payé par chèque
…

Locataire 3:
10/01/2020 Loyer JANVIER "nom du locataire 3" la somme de: 250€ payé par chèque
15/02/2020 Loyer FEVRIER "nom du locataire 3" la somme de: 250€ payé par chèque
13/03/2020 Loyer MARS "nom du locataire 3" la somme de: 250€ payé par chèque
…

J'espère avoir été suffisamment explicite.
En attente d'une réponse.

Cordialement.

[mfoxy]

Bonjour,

À mon avis il serait plus opportun de placer l ensemble de vos écritures sur une même feuille.
Les différentes infos locatives seraient des lors visible par filtre ou une feuille avec toutes les écritures et autant de feuilles que de locataire où la table mère serait splittée.

Cette solution me semble plus pérenne et permettant une plus grande flexibilité en cas d ajout de biens locatifs, locataires, synthèse,...

[body71]

Bonjour et merci pour cette première réponse.

Oui le triage par filtre pourrait se faire pour rechercher des données spécifiques, mais le but est de reporter ma saisie du UserForm à un endroit choisit et que toutes les données soit visibles sur la même page, mais triées par Locataire.

Le but final étant de simuler un bilan comptable, donc de rentrer une opération par un UserForm et d'avoir une page excel par compte, et d'envoyer les éléments dans chaque compte grâce aux choix des combobox du UserForm.

Je commence par la page la plus simple des loyers, mais je voudrai poursuivre par une page "Capital', "Recettes", "Amortissements", "Dépenses"...
Il faut "juste" que j'arrive à définir la feuille et la plage de copie des données en fonction des choix des combobox.

Cordialement.

[mfoxy]

Il te faut alors récupérer la valeur de ta cbo et l affecter à une variable worksheet.

Tu pourras dès lors cibler ta feuille, avec l utilisation de cette variable, pour l ajout des données dans la feuille souhaitée.

Au besoin poste ton code, pour y jeter un œil.

Bat

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Pour ma part, s'il faut ajouter un enregistrement, alors je ne serais pas fan de positionner les enregistrements à des endroits différents d'une feuille de travail.

J'opterais davantage vers les tableaux structurés.
1 tableau par poste comptable (Loyers, Capital…)

On pourrait alors envisager la structure de ton projet ainsi:
- 1 feuille d'accueil comportant un bouton de commande par poste comptable
- chaque bouton activant la visualisation d'un formulaire de saisie
- chaque formulaire, via un bouton "Validation" ajouterait une ligne au tableau

Les actions ultérieures (filtre…) ne poseraient alors aucun problème.

Ainsi, cette architecture permettrait une souplesse d'utilisation (1 bouton = 1 tableau = 1 formulaire) et une évolution future (ajout de poste comptable) sans bouleversement de la structure acquise.

Pour ajouter une ligne à un tableau depuis un formulaire, tu peux t'inspirer de cette discussion.

[BENNASR]

Bonjour à tous
si malgré toutes les explications vous cherchez à continuer ton chemin vous pouvez opter pour ce bricolage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim plage As Range
Dim Ligne As Integer
Set F = Sheets("loyers")
If ComboBox1.Value = "Locataire 1" Then Set plage = F.Range("A5:A17")
If ComboBox1.Value = "Locataire 2" Then Set plage = F.Range("A20:A32")
If ComboBox1.Value = "Locataire 3" Then Set plage = F.Range("A35:A47")
 Ligne = plage.Find("*", , , , xlByColumns, xlPrevious).Row + 1
 F.Cells(Ligne, 1) = CDbl(TextBox1.Value)
 Unload Me
End Sub

sans oublier d'ajouter des contrainte : ne pas dépasser la ligne 17 s'il s'agit du locataire 1 et idem pour locataire 2 et 3

ci joint un exemple

[MarcelG]

Salut Bennasr,

En 1 ligne, on peut associer une propriété Offset avec la l'index de la liste du contrôle Combobox.

Quoi qu'il en soit, je reste opposé à cette méthodologie.

[body71]

Bonjour et merci à tous.

Je vais partir sur ce petit programme donné par BENNASR qui correspond à mes attentes.

Par contre je voudrai vous demander quelques améliorations.

1) Que la comparaison de la Combobox.value soit comparée par rapport au texte d'une cellule, faisant partie de la série de cette ComboBox.
Car actuellement, il faut rentrer dans le code et mettre le même texte que la réponse voulue.

exemple:

If ComboBox1.Value = "Locataire 1" Then Set plage = F.Range("A5:A17") ; Remplacer le texte "Locataire 1" par la cellule de la feuille où est rentré Locataire 1.

2) Que suivant le choix de la Combobox, on vienne remplir la zone de texte "Montant du Loyer" suivant la feuille "Données", cellule Loyer TTC

Merci à tous pour votre aide.

Fichier joint
body71.xlsm

[BENNASR]

Bonjour
pas bien claire pour moi
à tester (limite de 12 mois pour chaque locataire est ajouté) :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub ComboBox1_Change()
Dim F As Worksheet
Dim F1 As Worksheet
Dim Ligne As Integer
Set F = Sheets("loyers")
Set F1 = Sheets("Données")
Dim plageLoc As Range
Set plageLoc = F1.Range("A3:D" & F1.Range("A65536").End(xlUp).Row)
X = ComboBox1.Value
On Error Resume Next
TextBox1.Value = Application.WorksheetFunction.VLookup(X, plageLoc, 2, 0)
TextBox2.Value = Application.WorksheetFunction.VLookup(X, plageLoc, 3, 0)
TextBox3.Value = Application.WorksheetFunction.VLookup(X, plageLoc, 4, 0)
End Sub
 
Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim F1 As Worksheet
Dim plage As Range
Dim Ligne As Integer
Set F = Sheets("loyers")
Set F1 = Sheets("Données")
If ComboBox1.Value = F.Range("A5") Then Set plage = F.Range("A5:A17"): Max = 17
If ComboBox1.Value = F.Range("A20") Then Set plage = F.Range("A20:A32"): Max = 32
If ComboBox1.Value = F.Range("A35") Then Set plage = F.Range("A35:A47"): Max = 47
 Ligne = plage.Find("*", , , , xlByColumns, xlPrevious).Row + 1
 If Ligne <= Max Then
 F.Cells(Ligne, 1) = CDbl(TextBox1.Value)
 F.Cells(Ligne, 2) = CDbl(TextBox2.Value)
 F.Cells(Ligne, 3) = CDbl(TextBox3.Value)
Else
MsgBox ("Tous les mois remplis pour ce monsieur")
Exit Sub
End If
 
 
 Unload Me
End Sub
 
 
Private Sub UserForm_Initialize()
Dim I As Long
For I = 3 To Sheets("Données").Range("A65536").End(xlUp).Row
  ComboBox1 = Sheets("Données").Range("A" & I)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Données").Range("A" & I)
Next I
ComboBox1.Value = ""
End Sub