Copie coller de plusieurs TextBox dans differente cellule

Bonjour,

Je suis actuellement étudiant et je réalise pour une entreprise un mini logiciel de maintenance (GMAO) pour leur parc machine.
Je débute dans excel depuis quelque temps maintenant et malgres tout je ne trouve pas de solution a mon problème qui me semble pourtant simple.
Mon problème une fois résolu, je pourrait intégrer ce procédé dans mon "logiciel" excel.

Mon but et d'afficher un userform qui permette de simplifier l'insertion de nouvelle pièces.
Je voudrais donc simplement que quand l'on appui sur ajouter il insert une ligne sur la plage A9 to H9. Et ensuite qu'il copie les textbox dans la bonne cellule.
Exemple je veut que la textbox nom s’insère dans la cellule A9, et ainsi de suite.

Je ne sais pas pourquoi il ne me copie que celle des noms et pas le reste....

Pièce jointe 167308

Si quelqu'un a une solution merci d'avance

Bonjour,

Comme ce ne sont pas toutes les personnes qui vont ouvrir ton fichier, peux-tu mettre le bout de ton code qui te cause problème ?
NB: Utilise le bouton # pour formater ce bout de code.

Je cherche tout bêtement a copié différente textbox (ici :nom, fournisseur, reference) dans des cellule spécifique

Code:

---

1 2 3 4 5 6

Private Sub CommandButton_Ajouter_Click() [A9] = nom.Value [B9] = fournisseur.Value [C9] = reference.Value   End Sub

---

Je coince déjà là alors que c'est après que je vais devoir me creuser la tete...

merci d'avance

Bonsoir,

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton_Ajouter_Click()   Sheets("feuil1").Range("a9").End(xlDown).Select Selection.Offset(1, 0) = nom Selection.Offset(1, 1) = fournisseur Selection.Offset(1, 2) = reference Selection.Offset(1, 3) = .... end sub

---

Et vous continuez d'incrémenter le deuxième chiffre après la virgule après l'offset.

j'ai du coup adapter avec votre précédent code
Quelle est la différence ?
Et la ligne qui me permet d’insérer une nouvelle ligne, je ne la comprend pas totalement celle entre " "
Merci pour votre réponse rapide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton_Ajouter_Click()   Cells(9, 1) = nom.Value Cells(9, 2) = fournisseur.Value Cells(9, 3) = reference.Value Cells(9, 4) = prix.Value Cells(9, 5) = quantite.Value Cells(9, 6) = quantitelimite.Value   Sheets("feuil1").Range("a9").End(xlDown).Select "Range(Selection.Offset(1, 0), Selection.Offset(1, 7)).Insert Shift:=xlDown"   End Sub

---

Excusez moi mais entre temps j'ai modifié le code, prenez celui-ci qui rajoute vos textbox dans les cellules

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton_Ajouter_Click()   Sheets("feuil1").Range("a9").End(xlDown).Select Selection.Offset(1, 0) = nom Selection.Offset(1, 1) = fournisseur Selection.Offset(1, 2) = reference Selection.Offset(1, 3) = .... end sub

---

Et vous continuez d'incrémenter le chiffre a près la virgule(après offset) jusqu'à obtenir le nombre de champs à renseigner.
A titre d'exemple, la suite sera Selection.Offset(1, 4) = quantitémin puis Selection.Offset(1, 5) =quantitétotal etc etc