Problème de mise en place de code VBA

**djebalves** · 09/08/2017, 09h49

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** · 09/08/2017, 10h12

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** · 09/08/2017, 10h17

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** · 09/08/2017, 11h23

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** · 09/08/2017, 11h28

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** · 09/08/2017, 11h40

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

**mjpmjp** · 09/08/2017, 11h49

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

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

**djebalves** · 09/08/2017, 11h53

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.

Budget1 developper.xlsm

Merci encore

**djebalves** · 09/08/2017, 11h55

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

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

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

**mjpmjp** · 09/08/2017, 12h10

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

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 :

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

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 :

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

1
2
 
Destination = Worksheets("Tableau de Bord Intermediaire").Cells(18,ColDestNum)

pour le reste , je reviens

@+JP

**djebalves** · 09/08/2017, 13h32

Bonjour,

Dans le module voici mon 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
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 :

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
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

**mjpmjp** · 09/08/2017, 13h43

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

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
        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

**djebalves** · 09/08/2017, 13h56

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

**mjpmjp** · 09/08/2017, 14h03

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

**mjpmjp** · 09/08/2017, 14h16

bonjour,

j'avais pas vu !!

Code :

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

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 :

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

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

**djebalves** · 09/08/2017, 14h26

Très bien,

Merci pour ton aide !!

Problème de mise en place de code VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager