validatiion de textbox

  • Initiateur de la discussion Initiateur de la discussion murdoc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
160
Réponses
4
Affichages
460
Retour