Discussion :

[manufer]

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]

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]

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]

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]

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

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