Une Textbox à plusieurs cibles

Bonjour à tous:salut:,

je suis toujours sur le même projet qui m'a valut plusieurs discussions sur le forum, et je n'ai toujours pas fini.(malgré de bon coups de pouce de forumeurs:king:)

Cette fois, mon problème semble simple, mais j'ai essayé plusieurs choses sans succès:aie:

Je voudrais qu'en remplissant une textbox, cela remplisse plusieurs colonnes dans plusieurs tableaux, tout en passant à la ligne

j'ai cette formule que j'ai essayé d'adapter, en vain:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Dim ligneCourante As Integer Dim celluleCourante As Excel.Range Set celluleCourante = Sheets("Evaluation des prod.").Range("W4") Set cellulecourante= Sheets("Détails des prod.").Range("A3") Set celluleCourante = Sheets("Substances chim.").Range("A13") Set celluleCourante = Sheets("BD").Range("E2")   Do While celluleCourante.Value <> "" Set celluleCourante = celluleCourante.Offset(1, 0) Loop ligneCourante = celluleCourante.Row   'écrire les infos With Sheets("Evaluation des prod.") .Range("W" & ligneCourante) = Me.TextBox1.Text End With   With Sheets("Détails des prod.") .Range("A" & lignecourante)= Me.Textbox1.text End with   With Sheets("Substances chim.") .Range("A" & ligneCourante) = Me.TextBox1.Text End With     With Sheets("BD") .Range("E" & ligneCourante) = Me.TextBox1.Text End With

---

et de plus, dans le tableau de la feuille "BD", les infos ne doivent pas passer 1 ligne mais 20 :mouarf3:


Et j'ai un autre problème, je ne peux pas utiliser cette formule plusieurs fois
("propriété ou méthode non gérée par cet objet"), même pour différentes textbox

voilà, si quelqu'un a une idée:calim2:

Oui, j'ai une idée mais tu ne dis pas dans quel événement du textbox tu mets ce code.
Tu as deux solutions, une consistant à attendre chaque retour à la ligne avant de renseigner ta feuille de calculs, et l'autre, que j'utiliserais car elle permet une relecture et des corrections éventuelles, qui consisterait à ne renseigner tes cellules qu'une fois la textbox remplie.
Ceci dit, comment passes-tu à la ligne, et quelle solution souhaites-tu ?
(ça fait deux questions ;) )
A+

désolé mais je n'ai pas trop compris tes questions,

en fait, je souhaite que ma textbox une fois remplie (un mot en général), je clique sur mon bouton enregistrer, et cela va disposer ce qui a été écrit dans la textbox dans plusieurs cibles: qui sont des cellules

et il faut que si j'enregistre, et que je rouvre mon UF, et que je reremplis ma textbox, cela remplie les mêmes cibles, mais 1 ligne plus bas

voilà, je suis novice donc j'ai un peu de mal:aie:

Autrement dit, tu veux connaître la premièreligne vide de la colonne.
Tu as plusieurs méthodes

Code:

---

NoLigne = Cells.SpecialCells(xlCellTypeLastCell).Row + 1

---

mais ceci implique que la ligne sur laquelle tu veux écrire soit bien la dernière de la feuille. Sinon, tu dis
A+

Citation:

---

Envoyé par ouskel'n'or

Autrement dit, tu veux connaître la premièreligne vide de la colonne.
mais ceci implique que la ligne sur laquelle tu veux écrire soit bien la dernière de la feuille. Sinon, tu dis
A+

---

il faudrait que si je ne rempli pas la textbox , cela passe une ligne quand-même

et donc à chaque fois, ce que je veux écrire passe dans la première cellule vide de la colonne désignée en partant du haut (en prenant compte de ce que je t'ai dit plus haut)

D'après ce que j'ai compris, ça devrait donner ceci (tu peux supprimer toutes les autres lignes de ton code)

Code:

---

1 2 3 4 5

'écrire les infos Sheets("Evaluation des prod.").Range("W65535").End(xlUp).Offset(1, 0) = Me.TextBox1.Text Sheets("Détails des prod.").Range("A65535").End(xlUp).Offset(1, 0) = Me.TextBox1.Text Sheets("Substances chim.").Range("A65535").End(xlUp).Offset(1, 0) = Me.TextBox1.Text Sheets("BD").Range("E65535").End(xlUp).Offset(20, 0) = Me.TextBox1.Text

---

Par contre "il faudrait que si je ne rempli pas la textbox , cela passe une ligne quand-même" 8O quel intérêt ?

car je remplis les textbox afin de compléter plusieurs tableaux qui vont me renseigner sur des produits et leurs caractéristiques, donc si pour un produit 1 je ne remplis pas une caractéristique volontairement, et si après je rentre les données pour un produit 2, et que lui possède cette caractéristique, il ne faut pas mettre les renseignements du produit 2 sur la ligne du produit1:zzz:

voilà voilà, donc je teste le code et jvous dis quoi:frenchy::chin: (c'est pas une question:!:)

ta formule marche bien, et ça passe bien les lignes, mais j'ai un problème, qui je pense n'a rien à voir avec la programmation,
c'est au niveau de la feuille "détails produits", rien ne se met dans la colonne A ?? alors j'ai essayé la même formule avec la colonne B et ça marche, alors je sais pas c'est quel genre de bug (ou de propriété de la colonne subitement changées) , mais si quelqu'un a une idée


sinon merci, la formule marche très bien:king:

Aucune idée comme ça, la couleur de la police de caractère dans la colonne A ne serait pas blanche ? :mouarf:

Joint un petit bout de fichier avec quelques données

Citation:

---

Envoyé par fring

Aucune idée comme ça, la couleur de la police de caractère dans la colonne A ne serait pas blanche ? :mouarf:

---

c'est ce que j'ai regardais au départ, mais c'est bon j'ai trouvé, il y avait une ligne écrite à une ligne basse , et du coup cela s'ajoutait dans les lignes 100 et quelques:aie:

par contre j'ai un autre soucis avec cette ligne

Code:

---

Sheets("BD").Range("E65535").End(xlUp).Offset(20, 0) = Me.TextBox1.Text

---

car la donnée saute tout de suite 20 lignes alors que je veux qu'elle aille à une case+1, et après +20, comme ça


Produits:
produitA
---
---
---
---
---
---
---
---
---
---
---
---
---
---
---
---
--
---
--
---
produitB

:koi:

et non comme ça

produits:
---
---
--
--
--
---
---
--
---
---
---
--
--
---
--
---
---
--
--
--
produitA
...

Tu changes cette ligne

Code:

---

1 2	Sheets("BD").Range("E65535").End(xlUp).Offset(20, 0) = Me.TextBox1.Text

---

par ceci en supposant que E2 est la première ligne à compléter

Code:

---

1 2 3 4 5 6 7

With Sheets("BD") If .Range("E2") = "" Then .Range("E2") = Me.TextBox1.Text Else .Range("E65535").End(xlUp).Offset(20, 0) = Me.TextBox1.Text End If End With

---

merci beaucoup, ça marche nickel:king:

un grand merci à tout le monde pour votre aide:yaisse2:
:resolu::lahola: