Problème de mise en place de code VBA

Version imprimable

09/08/2017, 09h49
djebalves

1 pièce(s) jointe(s)

Problème de mise en place de code VBA

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.

Pièce jointe 301640
09/08/2017, 10h12
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

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:

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.

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

Code:

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:

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

09/08/2017, 11h28
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
09/08/2017, 11h40
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:

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

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
09/08/2017, 11h49
mjpmjp

bonjour,
ATTENTION ,
cette fonction est sommaire et perfectible ,
c'est pour cela qu'il y a un "bug" un petit défaut :aie:

SI la fonction NE TROUVE PAS la colonne / la date ,
elle renvoi "0" ce qui provoquera une erreur

dans ton form tu peu utiliser ce "bug" (qui n'est pas forcement un "bug" ;) )

pour tester la validité de la date : IF ColDestNum=0 then ---> affiche message

@+JP
09/08/2017, 11h53
djebalves

1 pièce(s) jointe(s)

Bonjour,

J'ai essayé de faire comme tu me dis, en espérant que ce soit cela. (Je suis débutant encore désolé).

Et lorsque j'essaye de faire un test, il me copie pas la cellule.

Je te joins le fichier mis à jour.

Pièce jointe 301681

Merci encore
09/08/2017, 11h55
djebalves

Citation:

Envoyé par mjpmjp

bonjour,
ATTENTION ,
cette fonction est sommaire et perfectible ,
c'est pour cela qu'il y a un "bug" un petit défaut :aie:

SI la fonction NE TROUVE PAS la colonne / la date ,
elle renvoi "0" ce qui provoquera une erreur

dans ton form tu peu utiliser ce "bug" (qui n'est pas forcement un "bug" ;) )

pour tester la validité de la date : IF ColDestNum=0 then ---> affiche message

@+JP

:calim2: :calim2: Je suis complétement perdu.... désolé

bonjour,
tu as mis la fonction en public dans un module...OK

Citation:

dans ce module , en dehors de la function , déclare une variable publique :
par exemple : Public ColDestNum as integer

tu n'as pas déclaré ColDestNum

avec ton code actuel tu n'en a pas besoin , mais , par la suite...

actuellement , donc , tu appelles la fonction

cette fonction t'indique dans quelle colonne (A=1 , B=2,...) écrire

tu dois utiliser ce résultat !!!
Code:

1 2 3 4 5 'APPEL ColDestNum = ColonTarget(MonthName(Mois.ListIndex + 1, True), Annee.Text) Worksheets("Budget").Range("F16:F16").Copy Destination = Worksheets("Tableau de Bord Intermediaire").Range("C18:C18")
Code:

1 2 Destination = Worksheets("Tableau de Bord Intermediaire").Cells(18,ColDestNum)
pour le reste , je reviens ;)

@+JP

Bonjour,

Dans le module voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function ColonTarget(PeriodeMois As String, PeriodeAnnee As String)
    Dim NomDeColon As String
    Dim TitreColon As String
    Dim TitreColonNum As Integer
    Dim ColDestNum 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

Je déclare bien Dim ColDestNum As Integer
Peut etre que je me trompe...

Voici le code qui se trouve dans le bouton :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
ColDestNum = ColonTarget(MonthName(Mois.ListIndex + 1, True), Annee.Text)
       Worksheets("Budget").Range("F16:F16").Copy
            Destination = Worksheets("Tableau de Bord Intermediaire").Cells(18, ColDestNum)
            Unload Choix_Date
    Else
        Unload Choix_Date
 
    End If
 
End Sub

Cela ne marche toujours pas. Il ne me signale pas l'erreur mais affiche pas la valeur dans le tableau "tableau de bord intermediaire"

Merci

bonjour,
voila le code du bouton (testé) qui fonctionne

Code:

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
        ColDestNum = ColonTarget(MonthName(Mois.ListIndex + 1, True), Annee.Text)
        'Controle
        If ColDestNum = 0 Then
            MsgBox "Période Non Valide"
        Else
            Sheets("Tableau de Bord Intermediaire").Cells(17, ColDestNum).Value = Sheets("Budget").Range("F16").Value
        End If
    Else
        Unload Choix_Date
    End If
End Sub

quand tu poste ton code utilise dans le menu l'icone "#"

pour ton post recent , (en dessous) clique sur modifier , sélectionne tout le code de la function et clique sur l'icone "#"

@+JP

09/08/2017, 13h56
djebalves

Bonjour,

Sache que tu ma réellement aider et je te remercie.

Une dernière question, est -il possible de modifier la police des MsgBox ?

Merci beaucoup !!!

A très vite
09/08/2017, 14h03
mjpmjp

bonjour,
en règle générale , quand tu poste plus d'une ligne de code , utilise "#" , mais çà reste juste une question de clarté ;)

pour le msgbox , je ne sais pas ,

fait une recherche , si tu trouves pas ,
lance une autre discussion : est -il possible de modifier la police des MsgBox ?

si c'est résolu , clique sur résolu
@+JP

bonjour,

j'avais pas vu !!

Code:

1
2
3
4
5
6
 
Public Function ColonTarget(PeriodeMois As String, PeriodeAnnee As String)
    Dim NomDeColon As String
    Dim TitreColon As String
    Dim TitreColonNum As Integer
    Dim ColDestNum As Integer '<----- OK pour l'instant

Code:

1
2
3
4
5
6
7
 
Public ColDestNum As Integer '<-----  OK pour la suite
 
Public Function ColonTarget(PeriodeMois As String, PeriodeAnnee As String)
    Dim NomDeColon As String
    Dim TitreColon As String
    Dim TitreColonNum As Integer

@+JP

09/08/2017, 14h26
djebalves

Très bien,

Merci pour ton aide !!