XL 2016 code formulaire de saisie

[Phylo]

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

 

[fanfan38]

Bonjour
En VBA on aime pas les select...
Remplace: Range("A1").Select par Range("A2").Select (ligne de titre de ton tableau)
A+ François

 

[Phylo]

Bonjour
En VBA on aime pas les select...
Remplace: Range("A1").Select par Range("A2").Select (ligne de titre de ton tableau)
A+ François

Merci Fanfan je vais essayer ta proposition et je te tiens au courant

merci bcp

 

[bof]

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

A+

 

[Phylo]

Merci Fanfan je vais essayer ta proposition et je te tiens au courant

merci bcp

j'ai essayé, effectivement ça marche

merci bcp

 

[Phylo]

j'ai essayé, effectivement ça marche

merci bcp

Bonjour Fanfan

je reviens envers vous encore une autre fois
Quand je supprime les données et je veux recommencer l'utlisation dans l'enregistrement des données. Il enregistre pas sur la premiére ligne.

 

[fanfan38]

Bonjour
La feuille étant protégée je ne peux essayer....
La macro modifier

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

 

[Phylo]

Bonjour
La feuille étant protégée je ne peux essayer....
La macro modifier

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

 

[fanfan38]

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

 

[Phylo]

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

Merci beaucoup Mr Fanfan
ça marche trés bien

merci

 

[Phylo]

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

 

[fanfan38]

Bonjour
J'espère avoir répondu à ton problème
A+ François

 

[Phylo]

Bonjour Francois,

Le formulaire ne s'affiche plus et la barre de recherche ne fonctionne pas
quand je lance afficher le formulaire il m4affiche un erreur d'exucution

 

[Phylo]

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]

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