mettre en place un code VBA

Version imprimable

06/11/2008, 09h33
NEC14

mettre en place un code VBA

Bonjour,

Je souhaite, avec votre aide, mettre en place un code VBA Excel afin de réaliser le projet ci-joint.
Le code n'existe pas, je ne sais pas comment le réaliser c'est pourquoi je fais appel à vos connaissances en la matière.

Vous trouverez toutes les explications dans le fichier Excel joint, car cela serait trop long à taper
Merci par avance
06/11/2008, 10h19
ouskel'n'or

Explique-nous le problème que tu rencontres, nous pourront peut-être te conseiller. Tu ne voudrais tout de même pas que nous en fassions l'analyse pour toi ;)
Bonne journée
06/11/2008, 10h25
Godzestla

Bonjour,

je sens une odeur de sous-traitance d'exercice scolaire, non ?;)
06/11/2008, 11h03
NEC14

Citation:

Envoyé par ouskel'n'or

Explique-nous le problème que tu rencontres, nous pourront peut-être te conseiller. Tu ne voudrais tout de même pas que nous en fassions l'analyse pour toi ;)
Bonne journée

Bonjour,

En fait, au sein de mon service je dois réaliser une application, dans le fichier joint j'ai donné le modèle du formulaire que j'ai créé et que je dois utiliser.
Mais je ne sais pas faire faire les codes pour faire entrer les données dans les bonnes cases.
Suis-je clair ?
Merci par avance

Citation:

Envoyé par Godzestla

Bonjour,

je sens une odeur de sous-traitance d'exercice scolaire, non ?;)

Bonjour,

Pas du tout, j'ai 47ans, alors l'école est bien loin derrière moi.
Je dois simplement réaliser une application et je me casse la tête depuis plusieurs jours à trouver les codes qui me permettent de remplir les cases dans le formulaire que j'ai créé, dans le ficheir Excel joint, j'ai reproduit le modèle du formulaire.
A+
06/11/2008, 11h07
ouskel'n'or

Qu'appelles-tu "Formulaire" et "Cases" ? Userform et TextBox ?
06/11/2008, 11h10
NEC14

Citation:

Envoyé par ouskel'n'or

Qu'appelles-tu "Formulaire" et "Cases" ? Userform et TextBox ?

Formulaire et ListBox.
Le modèle dans le fichier Excel s'appelle en fait FrmSit en Vba.
Chaque ListBox figurent dans le modèle par les noms Lb1, Lb2, etc.
Lst1 est également une ListBox
Merci
06/11/2008, 12h03
Godzestla

Citation:

Envoyé par NEC14

Pas du tout, j'ai 47ans, alors l'école est bien loin derrière moi.

:oops: Désolé pour la méprise. Je laisse ousk prendre soin de toi ;).
06/11/2008, 12h27
peaceandloveman01

Bonjour,

ton problème m'intéresse. Seulement je ne suis pas sûr de comprendre ce que tu veux faire exactement... :oops:
-Combien de feuilles possède ton classeur ??
-Pourquoi parles tu de ListBox dans chaque cellule de ton tableau d'exemple ?
En fait j'avoue ne rien comprendre à ton fichier joint... :roll:
06/11/2008, 13h06
NEC14

Citation:

Envoyé par peaceandloveman01

Bonjour,

ton problème m'intéresse. Seulement je ne suis pas sûr de comprendre ce que tu veux faire exactement... :oops:
-Combien de feuilles possède ton classeur ??
-Pourquoi parles tu de ListBox dans chaque cellule de ton tableau d'exemple ?
En fait j'avoue ne rien comprendre à ton fichier joint... :roll:

Bonjour,

J'ai 12 feuilles, une par mois, chaque feuille porte le nom du mois. Plus une autre feuille appelée "Tableaux".
Je parle de ListBox dans chaque cellule, car j'ai créé une UserForm avec plusieurs ListBox (Lst1, Lb1, Lb2, etc..). Par exemple dans la ListBox Lst1 doit figurer le nom de la feuille active, du style :"Statistiques du mois de : nom de la feuille".
Merci pour ton aide
06/11/2008, 13h07
NEC14

Citation:

Envoyé par Godzestla

:oops: Désolé pour la méprise. Je laisse ousk prendre soin de toi ;).

Pas de problème :D
06/11/2008, 14h17
peaceandloveman01

Merci pour ces précisions. Si j'ai bien compris, ton UserForm est suppposé représenté le tableau de fichier exemple.xls ? Est-ce bien le cas ou je me trompe complètement ?? :oops:
06/11/2008, 14h27
NEC14

Tout à fait
06/11/2008, 15h12
peaceandloveman01

A ce moment là, c'est pas super compliqué. Quel est ton niveau en VBA ? Sais tu coder ??
(Je te demande ça car ça orientera mes réponses futures...)

De plus, pourrais tu m'indiquer comment sont mises en formes les feuilles concernant les 12 mois de l'année ? Histoire de savoir comment mener la recherche.
06/11/2008, 15h25
NEC14

Je suis débutant
06/11/2008, 15h34
peaceandloveman01
En ce qui concerne ton Lst1, tu peux récupérer les mois de la façon suivante :
Code:

1 2 3 4 5 Dim NbFeuilles As Byte NbFeuilles = Application.Worksheets.Count For i = 1 To NbFeuilles ListBox1.AddItem Sheets(i).Name Next
Il suffit de mettre ce code dans la procédure d'initialisation de ta UserForm.

Mais pour le reste j'ai besoin de savoir comment se présentent les données sur les différentes feuilles... :?
06/11/2008, 15h53
NEC14

Dans les feuilles (Janvier, Février, etc...)
Colonne A : N° de saisie
Colonne B : Validation (je tape un "X" pour valider l'opération après contrôle du relevé bancaire)
Colonne C : Date de saisie
Colonne D : Date de l'opération
Colonne E : Nom de la banque
Colonne F : L'objet de la transaction
Colonne G : Détail de la transaction
Colonne H : Mode (chèque, prélèvement, liquide, etc... c'est les données qui doivent remplir les ListBox (Lb1, Lb2, etc...)
Colonne I : Débits (somme si transaction est débitrice)
Colonne J : Crédits (somme si transaction est créditrice)
Toutes les données sont saisies dans une UserForm

Feuille "Tableaux"
Ligne 4 - Colonne B à M - Liste des mois en commençant par Septembre (je travaille en année scolaire)
Colonne A - Ligne 9, 10 et 11 (Débits Max, Min, Moy)
Colonne A - Ligne 12, 13 et 14 (Créfdits Max, Min, Moy)
Voilà est-ce que cela te suffit ?
J'apprécie ton aide
06/11/2008, 15h58
peaceandloveman01

Parfait !! Tout me parait plus clair désormais. Y'a plus qu'à comme on dit !

Une dernière question, tu dis que les données sont saisies dans un userform. Utilises tu des textbox pour cela? As tu réussi à programmer la partie enregistrement des données ?

PS: Quel "code" utilises tu pour définir le mode (colonne H) ??

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Private Sub CommandButton4_Click()
Dim Vmess As String
Dim Verr As Integer
Dim Vnum As Long
Vmess = ""
Verr = 0
    If FrmOp.CheckBox1.Value = False And FrmOp.CheckBox2.Value = False Then
        Verr = 1
            Vmess = Vmess + Chr(10) + "Débit ou crédit?"
    End If
 
    If FrmOp.TextBox2 = "" Then
        Verr = 1
            Vmess = Vmess + Chr(10) + "La date de l'opération"
    End If
 
    If FrmOp.CheckBox2.Value = True Then
        If FrmOp.CheckBox6.Value = False And FrmOp.CheckBox7.Value = False And FrmOp.CheckBox8.Value = False And FrmOp.CheckBox10.Value = False Then
        Verr = 1
            Vmess = Vmess + Chr(10) + "Quel est le mode de versement?"
    End If
 
    If FrmOp.ComboBox1.Value = "" Then
        Verr = 1
            Vmess = Vmess + Chr(10) + "Quelle est la banque?"
    End If
 
    If FrmOp.ComboBox2.Value = "" Then
        Verr = 1
            Vmess = Vmess + Chr(10) + "Quel est l'objet?"
    End If
 
    If FrmOp.ComboBox3.Value = "" Then
        Verr = 1
            Vmess = Vmess + Chr(10) + "Ajouter le détail"
    End If
        End If
 
    If Verr = 1 Then
        MsgBox "Vous avez oublié" + Vmess, , "Attention"
        Exit Sub
    End If
ActiveSheet.Activate
If Range("a13") = "" Then
    Range("a13").Select
    Vnum = 1
Else
    Range("a12").End(xlDown).Select
    Vnum = Selection.Value + 1
    ActiveCell.Offset(1, 0).Range("a1").Select
End If
 
ActiveCell.Value = Vnum
ActiveCell.Offset(0, 2).Value = CDate(FrmOp.TextBox1)
ActiveCell.Offset(0, 3).Value = CDate(FrmOp.TextBox2)
ActiveCell.Offset(0, 4).Value = FrmOp.ComboBox1.Value
ActiveCell.Offset(0, 5).Value = FrmOp.ComboBox2.Value
ActiveCell.Offset(0, 6).Value = FrmOp.ComboBox3.Value
If FrmOp.CheckBox6.Value = True Then
ActiveCell.Offset(0, 7).Value = "Virement automatique"
End If
If FrmOp.CheckBox7.Value = True Then
ActiveCell.Offset(0, 7).Value = "En liquide"
End If
If FrmOp.CheckBox8.Value = True Then
ActiveCell.Offset(0, 7).Value = "Par chèque bancaire"
End If
If FrmOp.CheckBox10.Value = True Then
ActiveCell.Offset(0, 7).Value = "Dépôt au guichet"
End If
If FrmOp.CheckBox2.Value = True Then
ActiveCell.Offset(0, 9).Value = CDbl(FrmOp.TextBox4)
End If
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
CheckBox7.Value = False
CheckBox8.Value = False
CheckBox9.Value = False
CheckBox10.Value = False
CheckBox1.Visible = True
CheckBox2.Visible = True
CommandButton2.Visible = True
CommandButton4.Visible = True
Frame4.Visible = True
Frame6.Visible = True
TextBox2.Text = ""
TextBox4.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
End Sub

Bonjour,

Si tu remplace les ListBox par des TextBox (ce qui est plus cohérent à mon sens), voici le bout de code qui peux t'aider:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Dans le cas du montant total des virements en débits
Dim listeVirementDeb() As Single
Dim totalVirementDeb As Single
ReDim listeVirementDeb(0)
For i = 13 To 199
'Si on s'intéresse juste au mois de janvier, tous les débits faits par virement automatique
    If Sheets("Janvier").Cells(i, "H") = "Virement automatique" Then
        If Sheets("Janvier").Cells(i, "I") <> "" Then
            listeVirementDeb(UBound(listeVirementDeb, 1)) = Sheets("Janvier").Cells(i, "I")
            ReDim Preserve listeVirementDeb(UBound(listeVirementDeb, 1) + 1)
        End If
    End If
Next
For i = 0 To UBound(listeVirementDeb, 1) - 1
    totalVirementDeb = totalVirementDeb + listeVirementDeb(i)
Next i
TextBox1.Value = totalVirementDeb 'affiche la somme des montants

J'espère que ça te donnera des idées pour avancer ...

Cordialement,

Lyonel

07/11/2008, 15h52
NEC14

Merci beaucoup, je teste et je te dis comment cela c'est déroulé, mais pas avant Mercredi, je fais le pont.
Bon week-end