XL 2016 code formulaire de saisie

  • Initiateur de la discussion Initiateur de la discussion Phylo
  • 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 !

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

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

A+
 
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

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

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

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

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
2
Affichages
461
Retour