Discussion :

[djebalves]

Bonjour Tous le monde,

Depuis peu de temps je me suis interressé a la programmation VBA sur Excel. Je suis donc un novice.

J'ai reussi à faire certaine chose sur un fichier sur lequel je travail depuis un moment, mais aujourd'hui je bloque sur une tâche. Après moulte et moulte recherche sur la toile je bloque et je me permets de faire cette demande sur le forum.

En effet, vous verrez sur le fichier joint, un onglet "Budget". A partir de cette feuille de calcul, après avoir cliquer sur le bouton "Transfert de donnée", un UserForm apparait. J'aimerai après avoir sélectionner dans cette UserForm les dates de la combobox, en appuyant sur ok et en répondant oui au MsgBox, que par exemple le sous-total de la catégorie Habitation, de la colonne dépense réelle, se copie dans la cellule C18 de l'onglet "Tableau de bord Intermediaire".

Par exemple, (j'essaye d'être le plus clair possible), en appuyant sur le bouton "Transfert de donnée", je sélectionne Août 2017, j'appuie sur "Ok", je réponds "Oui" à la question qu'il me pose, que le système copie les cellules :
F16 - F23 - F30 - F38 - F46 - F52 de la feuille "Budget" et se colle dans les cellules :
C18 - C19 - C20 - C21 - C22 - C23 de la feuille "Tableau de bord Intermediaire".

Ainsi si je sélectionne, dans la combobox, "Septembre 2017", il copiera les cellules, énoncés ci dessus, de la feuille "Budget" dans les cellules D18- D19 - D20 - D21 - D22 - D23 de la feuille "Tableau de bord intermediaire".

En espérant avoir été clair. Je vous remercie par avance du temps que vous m'accordez.

Budget1 developper.xlsm

[mjpmjp]

bonjour,
tu as décris ce que tu voulais faire, (plusieurs étapes)
quelle étape bloque ?
et quel est le problème avec ce code ?
@+JP

[djebalves]

Bonjour,

Je n'arrive pas à mettre en place le code VBA pour que le système en fonction de la date séléctionner sur l'UserForm puisse réaliser la copie des cellules que je souhaite mettre en place.

Voila le code que j'ai réalisé jusqu'à présent :

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()
    Dim Msg As String
 
    Msg1 = "Est tu sur d'avoir séléctionner la bonne période : " & vbNewLine
    Msg1 = Msg1 & Mois.Text & " " & Annee.Text & " ?"
 
    If MsgBox(Msg1, (vbExclamation + vbYesNo)) = vbYes Then
 
    Else
        Unload Choix_Date
 
    End If
End Sub

Voila

Merci d'avance pour ton aide.

[mjpmjp]

bonjour,
voila une fonction qui t'indique le numéro de colonne

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
 
Private Function ColonTarget(PeriodeMois As String, PeriodeAnnee As String)
    Dim NomDeColon As String
    Dim TitreColon As String
    Dim TitreColonNum As Integer
    '-----
    TitreColon = "PasVide"
    TitreColonNum = 3
    '-----
    NomDeColon = UCase(PeriodeMois) & "-" & Right(PeriodeAnnee, 2)
 
    While TitreColon <> ""
        TitreColon = Sheets("Tableau de Bord Intermediaire").Cells(6, TitreColonNum).Value
        If NomDeColon = TitreColon Then
            ColonTarget = TitreColonNum
            Exit Function
        End If
        TitreColonNum = TitreColonNum + 1
    Wend
    ColonTarget = 0
End Function

pour le test, j'ai inclus l'appel dans ton code

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
 
Private Sub BtnOk_Click()
    Dim Msg As String
 
    Msg1 = "Est tu sur d'avoir séléctionner la bonne période : " & vbNewLine
    Msg1 = Msg1 & Mois.Text & " " & Annee.Text & " ?"
 
    If MsgBox(Msg1, (vbExclamation + vbYesNo)) = vbYes Then
 
'APPEL
MsgBox ColonTarget(MonthName(Mois.ListIndex + 1, True), Annee.Text)
 
        Worksheets("Budget").Range("F16:F16").Copy
            Destination = Worksheets("Tableau de Bord Intermediaire").Range("C18:C18")
    Else
        Unload Choix_Date
 
    End If
 
End Sub

@+JP

[djebalves]

Bonjour,

Merci d'avance.
Donc si je comprend bien, je dois d'abord crée un module avec la fonction et ensuite copier le code dans l'UserForm ?

Car je viens de faire cela et lorsque j'appuie sur le "bouton Transfert de donnée", une erreur apparait dans le code en me surlignant ColonTarget et en spécifiant que Sub ou Function non définie.

Merci beaucoup pour le temps que tu m'accorde

[mjpmjp]

bonjour,
pour le test, la fonction est dans le module du form

dans un module tu mets ce code , mais en public , Public Function
dans ce module , en dehors de la function , déclare une variable publique :
par exemple : Public ColDestNum as integer

dans ton code bouton tu remplace

Code :

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

1
2
'APPEL
MsgBox ColonTarget(MonthName(Mois.ListIndex + 1, True), Annee.Text)

par

Code :

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

1
2
'APPEL
ColDestNum = ColonTarget(MonthName(Mois.ListIndex + 1, True), Annee.Text)

à partir de cet appel, tu peu utiliser ta variable n'importe où dans le code du WorkBook !!!

@+JP