XL 2016 code formulaire de saisie

Phylo

XLDnaute Occasionnel
Bonjour

comme je suis un débutant de vba

j'ai écris un formulaire de saisie vba pour les employés de la société ou je travaille

mon objectif est d'ajouter une ligne à chaque fois que j'utlise mon formulaire pour un nouveau dossier
les informations a mettre par le formulaire consiste au code du produit, numéro de lot, qui l'a révisé et qui a relaché le dossier
le probléme est que a chaque fois j'ajoute de nouveau données, ça efface la ligne ancienne


merci de m'aider svp pour retravailler le code du bouton ajouter







'********************
'Procédure permettant d'ajouter un nouvel enregistrement dans la base de données
'************************************

Private Sub btnajout_Click()

Sheets("Source").Activate
Range("A1").Select
Selection.End(xlDown).Select 'On se positionne sur la derniére ligne non vide
Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas
ActiveCell = txbposition.Value
ActiveCell.Offset(0, 1).Value = txbcode
ActiveCell.Offset(0, 3).Value = txbvrac
ActiveCell.Offset(0, 4).Value = txbfg
ActiveCell.Offset(0, 8).Value = Cmbreceptionbulk
ActiveCell.Offset(0, 10).Value = cmbrevisionbulk
ActiveCell.Offset(0, 12).Value = cmbrelachebulk
ActiveCell.Offset(0, 14).Value = cmbcombulk
ActiveCell.Offset(0, 16).Value = cmbreceptionfg
ActiveCell.Offset(0, 18).Value = cmbrevisionfg
ActiveCell.Offset(0, 20).Value = cmbrelachefg
ActiveCell.Offset(0, 22).Value = cmbcomfg


End Sub
 

Pièces jointes

  • Project AQ release avec useforme 02-08-2020.xlsm
    319 KB · Affichages: 44

bof

XLDnaute Occasionnel
En VBA on aime pas les select...
Remplace: .Select par ...Select
mdr3.jpg

A+
 

fanfan38

XLDnaute Barbatruc
Bonjour
La feuille étant protégée je ne peux essayer....
La macro modifier
VB:
Private Sub btnajout_Click()
  Dim lig As Long
Sheets("Source").Activate
lig = Range("A2").End(xlDown).Row + 1
Range("A" & lig).Value = txbposition.Value
Range("B" & lig).Value = txbcode
Range("D" & lig).Value = txbvrac
Range("E" & lig).Value = txbfg
Range("H" & lig).Value = Cmbreceptionbulk
Range("J" & lig).Value = cmbrevisionbulk
Range("L" & lig).Value = cmbrelachebulk
Range("N" & lig).Value = cmbcombulk
Range("P" & lig).Value = cmbreceptionfg
Range("R" & lig).Value = cmbrevisionfg
Range("T" & lig).Value = cmbrelachefg
Range("V" & lig).Value = cmbcomfg
End Sub

A+ François
 

Pièces jointes

  • Project AQ release avec useforme 02-08-2020.xlsm
    309 KB · Affichages: 9

Phylo

XLDnaute Occasionnel
Bonjour
La feuille étant protégée je ne peux essayer....
La macro modifier
VB:
Private Sub btnajout_Click()
  Dim lig As Long
Sheets("Source").Activate
lig = Range("A2").End(xlDown).Row + 1
Range("A" & lig).Value = txbposition.Value
Range("B" & lig).Value = txbcode
Range("D" & lig).Value = txbvrac
Range("E" & lig).Value = txbfg
Range("H" & lig).Value = Cmbreceptionbulk
Range("J" & lig).Value = cmbrevisionbulk
Range("L" & lig).Value = cmbrelachebulk
Range("N" & lig).Value = cmbcombulk
Range("P" & lig).Value = cmbreceptionfg
Range("R" & lig).Value = cmbrevisionfg
Range("T" & lig).Value = cmbrelachefg
Range("V" & lig).Value = cmbcomfg
End Sub

A+ François


Desolé
j'ai toujours le meme probleme
j'ai enlevé la protection

voici le fichier
 

Pièces jointes

  • Project AQ release avec useforme 02-08-2020.xlsm
    316.7 KB · Affichages: 7

fanfan38

XLDnaute Barbatruc
Bonjour
J'ai contourné le problème
le 2ème fichier utilise le tableau structuré (plus rapide et plus sûr)
A+ François
 

Pièces jointes

  • Project AQ release avec useforme 02-08-2020 (1).xlsm
    199.7 KB · Affichages: 13
  • Project AQ avec tableau.xlsm
    189.1 KB · Affichages: 12
Dernière édition:

Phylo

XLDnaute Occasionnel
ReBonjour Monsieur Fanfan,

Je ml'excuse encore d'epuiser de votre savoir ....

1- J'essaye toujours de perfectionner mon fichier.
J'aimerai créer une zone de recherche en haut de la colonne D et E et un botonne pour commencer la recherche (comme si j'utlise la fonction Ctrl+F mais je veux l'utliser avec code vba de facon a l'utliser pour des gens qui sont pas trés a l'aise avec excel).

2- Deuxieme chose c'est quand j'ajoute une ligne avec le formulaire de saisie.
Il colle la cellule B (code vrac) mais il me donne pas la correspondance dans la cellule de la colonne C sachant que j'ai mis une fonction recherche V dans la colonne C selon le code du vrac. je dois saisir manuellement le code du vrac pour qu'elle me donne la la correspondance dans la cellule de la colonne C.

Je propose soit une fonction recherche V dans le codage vba du formulaire ou bien la valeure qu'elle colle sur B soit reconnue pour qu'elle donne automatiquement la correspondance
j'esspére que je suis trés claire


Merci bcp d'avance
 

Pièces jointes

  • Project AQ release avec useforme 15-08-2020 verifié.xlsm
    746.3 KB · Affichages: 8

Phylo

XLDnaute Occasionnel
Je veux pas qu'elle m'a affiche les résultas dans le formulaire de saisie
Je veux qu'elle m'affiche le résultat de recherche dans la feuille elle meme. Mais ce n'est pas trés grave

ma deuxiéme demande qui est plus importante
quand j'ajoute les informations avec le formulaire de saisie; c'est comme s'il y avait pas de relation entre la cellule B et la ceulle C. Pourtant j'ai mis une fonction recherche V qui fonctionne bien quand je tappe manuellement la cellule B.

Merci
 

jcf6464

XLDnaute Occasionnel
Bonsoir fanfan38, phylo et le forum,

je viens de voir vos classeurs
et je me pose une question pourquoi faire une rechercheV sur la feuille (sources) alors que le formulaire sert à cela

ou tu travaille que avec ta feuille ou tu te sert de ton formulaire

bonne continuation jcf
 

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
295

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T