validatiion de textbox

M

murdoc

Guest
bonjour a tous et toutes

j'ai un USF avec un listbox et plusieur textbox qui me serve à commander des articles.

je sélectionne dans ma liste les article voulus je clic sur ajouter et l'article s'affiche dans mes textbox.

1 ligne contient 5 textbox et j'ai comme sa 15 lignes mon problème est que lorsque je veut ajouter ces 15 lignes dans un tableau excel, il ne m'en sélectionne qu' 1 seul.

ce que je veut c'est que lorsque je clic sur Graphique, les informations contenue dans mes textbox s'affiche ligne après ligne sans effacer les lignes déjà entrées.

c pas très clair mais j'espere que quelqu'un aura une réponse ou un début de solution. j'ai mis un pièce jointe

merci d'avance @++
 

Pièces jointes

  • Gestion.zip
    22.3 KB · Affichages: 25
  • Gestion.zip
    22.3 KB · Affichages: 21
  • Gestion.zip
    22.3 KB · Affichages: 30
O

OnErrorResumeNext

Guest
bonjour Murdoc,

sans entrer trop dans le détail, j'ai regardé la macro qui correspond au bouton "Graphique" dont tu parles dans ton post.

Dans "Private Sub CommandButton5_Click()",
tu définis la première ligne sur laquelle doivent s'inscrire tes données, " L = Sheets("Tab_com").Range("A65536").End(xlUp).Row + 1 ",
puis tu as une succession de 4
.Range("A" & L).Value = ***
.Range("B" & L).Value = ***
.Range("D" & L).Value = *** avec *** étant des textbox différents.
En éxecutant ceci, tu écris, puis écrases 3 fois les valeurs de ces cellules ...
Ce qu'il faut, c'est à chaque série incrémenter "L".


****************************************
.Range("A" & L).Value = TextBox8.Value
.Range("B" & L).Value = TextBox7.Value
.Range("D" & L).Value = TextBox10.Value

L=L+1
.Range("A" & L).Value = TextBox13.Value
.Range("B" & L).Value = TextBox12.Value
.Range("D" & L).Value = TextBox15.Value

L=L+1
.Range("A" & L).Value = TextBox18.Value
.Range("B" & L).Value = TextBox17.Value
.Range("D" & L).Value = TextBox20.Value

L=L+1
.Range("A" & L).Value = TextBox23.Value
.Range("B" & L).Value = TextBox22.Value
.Range("D" & L).Value = TextBox25.Value
****************************************


Si tu as d'autres problèmes, n'hésite pas

amicalement
 

Discussions similaires

Réponses
8
Affichages
375

Statistiques des forums

Discussions
312 555
Messages
2 089 561
Membres
104 211
dernier inscrit
clubdesjeunesdela7