VBA Date Montant

**manufer** · 04/05/2017, 10h24

Bonjour,

Voila ma problématique,

J'ai un nombre (montant) indiqué dans une textbox,

Je dois éclater ce nombre sur plusieurs colonnes,

Je n'ai rien trouvé sur le net, avez vous des pistes ?

Autre problématique différente de la précédente, j'ai plusieurs autres montant dans plusieurs textbox répartit par date,

je dois les sommer par période (ex: sommer les montant de 2010 à 2015 et les mettre dans une colonne, ensuite mettre 2016 dans la colonne suivante)

Là aussi si vous avez des pistes je suis preneur, en fait je suis bloqué.

Pour information,

Les textbox sont dans un userform.

**riaolle** · 04/05/2017, 10h33

Bonjour,

Je dois éclater ce nombre sur plusieurs colonnes,

Qu'est-ce que cela veut dire plus précisemment? Est-ce que tu veux écrire le même montant sur plusieurs colonnes? Est-ce que tu veux "couper" le nombre et écrire le résultat dans plusieurs colonnes?
Ici, un tuto sur les controles dans un UserForm. Tu pourras notamment y trouver comment récupérer la valeur inscrite dans une TextBox.

Récupérer la valeur d'une TextBox (cf. tuto) :

Code :

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

1
2
Dim toto As String
toto = TextBox1.Value              'par défaut la TextBox contient une chaine de caractères

Ecrire la valeur d'une TextBox dans une cellule (cf.tuto) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
```
Sheets("maFeuille").Range("A1") = TextBox1
```

Couper une chaine de caractère selon un certain critère : Split

Code :

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

1
2
MsgBox Split("la/maison/est/ici", "/")(0)        'renvoie "la"
MsgBox Split("la/maison/est/ici", "/")(2)        'renvoie "est"

Couper une chaine de caractère selon un nombre de caractères : Mid

Code :

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

1
2
MsgBox Mid("la maison est ici", 1, 2)      'renvoie "la"
MsgBox Mid("la maison est ici", 11, 3)      'renvoie "est"

**manufer** · 04/05/2017, 10h43

Le but est de répartir le montant,

Exemple: pour un montant de 20000, 10% soit 2000 sur la colonne E , 30% 6000 sur la colonne F, 20% sur la colonne G, et le reste sur les suivantes.

Que cette répartition se fasse automatiquement sur des colonnes qui se suivent en fonction de ces premiers critères.

Avez vous une piste ?

**riaolle** · 04/05/2017, 10h59

Comment connait-on les %? Sont-ce toujours les mêmes?
Si ce sont toujours les mêmes :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
    With Sheets("maFeuille")
        .Range("E1") = 10 / 100 * TextBox1
        .Range("F1") = 20 / 100 * TextBox1
        .Range("G1") = 30 / 100 * TextBox1
        .Range("H1") = 40 / 100 * TextBox1
    End With
End Sub

Ici, j'ai un bouton, quand je clique dessus, on écrit 10% de la valeur de la Textbox1 en E1, 20% de la valeur de la Textbox1 en F1, 30% de la valeur de la Textbox1 en G1 et le reste (donc 40%) en H1.
J'imagine qu'à chaque fois, il ne faudra pas l'écrire au même endroit, mais sur la première ligne vide de la feuille?

Code :

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

1
2
Dim derLig As Long
derLig = Sheets("maFeuille").Cells(Rows.Count, 5).End(xlUp).Row + 1

Ceci permet d'obtenir la première ligne vide de la feuille.

**manufer** · 04/05/2017, 16h58

Autre souci dans ce code,

lorsque de tape:

For i = 0 To UBound(donnee)

[donnee] étant une liste.

j'ai message d'erreur qui me dit " l'indice n'appartient pas a la sélection".

Avez vous une idée de ce que cela peut vouloir dire ?

**Jean-Philippe André** · 04/05/2017, 17h06

SAlut,

si tu as un liste de n elements, tu peux la parcourir
- soit de 0 a n-1
- soit de 1 a n

et donc tu dois aller de 0 a Ubound()-1

**manufer** · 04/05/2017, 17h13

Salut Andre,

Il est possible de parcourir la liste ainsi,

mais dans ce cas ça ne marche pas.

Je ne sais pas pourquoi.

Si quelqu'un a une idée...

**riaolle** · 04/05/2017, 17h14

Non, justement, UBound renvoie le plus grand indice de la liste :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim liste(2) As String
        liste(0) = "a"
        liste(1) = "b"
        liste(2) = "c"
    Debug.Print (UBound(liste))        'renvoie 2
End Sub

cf. le tuto de silkyroad : http://silkyroad.developpez.com/vba/tableaux/#LII-A et http://silkyroad.developpez.com/vba/tableaux/#LV-B
Donc on devrait pouvoir faire une boucle de 0 à UBound dans la liste. Est-ce que tu n'aurais pas mis par hasard Option Base 1? Parce qu'à ce moment-là, tu n'as pas d'élément 0 dans ta liste.
Qu'est-ce qu'il se passe exactement dans ta boucle?

**Jean-Philippe André** · 04/05/2017, 17h15

OK,

a quoi fais-tu reference quand tu parles de liste ? si c'est une listbox c'est List.Count, mais si tu es passe par un Variant par exemple, la syntaxe est la bonne

Il nous faudrait les lignes precedentes, qui indiquent notamment le type exact de variable de donnee et comment cette variable est alimentee.

**manufer** · 04/05/2017, 17h32

Elle est déclaré ainsi:

Code :

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

Dim liste() As var_affair

Je ne sais si c'est suffisant comme info

Salut Riaolle,

La boucle ne se lance pas,

J'ai ce msg d'erreur qui apparait tout de suite.

Je ne sais toujours pas si c'est du à une mauvaise déclaration ou s'il faut une sorte de réinitialisation des données (flou total)

Merci encore

**Jean-Philippe André** · 04/05/2017, 18h02

pasbesoin des parentheses lors de la declaration

Et qu'est le type Var_Affair ?

**manufer** · 04/05/2017, 19h42

Var_affair n'est pas déclaré,

je suppose que c'est un variant par défaut.

cela est-il possible ?

**riaolle** · 05/05/2017, 09h30

Bonjour,
Var_affair n'est pas un type de VBA. (une recherche sur google ["vba var_affair"] renvoie seulement cette discussion comme résultat).
Est-ce que tu as un module de classe qui s'appelle var_affair?
Donne-nous ton code en entier et pas seulement la ligne qui renvoie une erreur.

**unparia** · 05/05/2017, 12h50

Bonjour riaolle

Est-ce que tu as un module de classe qui s'appelle var_affair?

ou une stucture (variable personnalisée), la matrice (dont on ne sait plus si elle a pour nom donnee ou liste) étant alors un tableau de structures...
Il est quand même pour le mont surprenant que le demandeur ne sache pas ce que c'est. C'est à se demander s'il est le créateur de son application ...

Quant à (l'un des messages du demandeur)

For i = 0 To UBound(donnee)

[donnee] étant une liste.

j'ai message d'erreur qui me dit " l'indice n'appartient pas a la sélection".

Ce message d'erreur ne saurait apparaître sur la ligne For ... to ... !
- Soit la matrice donnee n'existe pas (et le message serait totalement autre),
- soit elle existe, mais n'est pas dimensionnée
- soit elle existe et est dimensionnée
dans les deux derniers cas, le message d'erreur serait reçu sur une ligne de code AU SEIN de la boucle et non sur la ligne montrée

On ignore enfin :
- comment a été déclarée la variable matrice donnée et SURTOUT comment elle a été initialisée
- on ignore enfin s'il est en option Base 1 ou 0

Tout cela est bien dommage et donne réellement à penser soit à du "bricolage" incompris, soit à une reprise d'un projet non analysé ou non compris

**manufer** · 05/05/2017, 15h05

Effectivement je suis pas le créateur de cette appli.

Je dois la reprendre et la modifier.

**riaolle** · 05/05/2017, 15h52

Il va nous falloir plus d'explications et d'éléments pour t'aider. Là, tu vas chez le docteur et tu dis "J'ai mal", mais tu ne dis pas où, depuis combien te temps, à quel point, quel type de douleur ... Le médecin devra faire tout un tas de suppositions pour trouver ce qui ne va pas et il n'est même pas sûr de trouver. Il peut essayer plusieurs traitement, mais n'est jamais sûr que ce sera le bon (accessoirement, ça peut être dangeureux aussi, mais là on atteint les limites de ma comparaison

)
Je répète quelques messages :

Donne-nous ton code en entier et pas seulement la ligne qui renvoie une erreur.
le message d'erreur serait reçu sur une ligne de code AU SEIN de la boucle et non sur la ligne montrée

Donne-nous plus de code, en particulier le code de la boucle.

**manufer** · 05/05/2017, 16h20

Ok, je vois,

Je sais que la liste est une listbox.

J'essaie d'en mettre plus, j'ai juste mon boss qui m'impose une certaine confidentialité là-dessus,

**Marc-L** · 05/05/2017, 17h15

Bonjour,

ne pas espérer alors obtenir une aide technique concrète sans une présentation digne de ce nom,
c'est à dire claire et complète, avec tenants et aboutissants ! Voir donc les règles de ce forum …

Sinon, bon courage !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

VBA Date Montant

Macros et VBA Excel

Discussions similaires

Partager

Partager