Discussion :

[imer26]

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....

test stock.xlsm

Si quelqu'un a une solution merci d'avance

[parmi]

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.

[imer26]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[(WOLF)]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[imer26]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[(WOLF)]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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