XL 2016 code formulaire de saisie

Phylo · 3 Août 2020

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 · 3 Août 2020

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 · 3 Août 2020

fanfan38 à dit:
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 · 4 Août 2020

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

A+

Phylo · 5 Août 2020

Phylo à dit:
Merci Fanfan je vais essayer ta proposition et je te tiens au courant

merci bcp

j'ai essayé, effectivement ça marche

merci bcp

Phylo · 6 Août 2020

Phylo à dit:
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 · 6 Août 2020

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

Phylo · 7 Août 2020

fanfan38 à dit:

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

fanfan38 · 8 Août 2020

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 · 10 Août 2020

fanfan38 à dit:
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 · 17 Août 2020

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 · 17 Août 2020

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

Phylo · 17 Août 2020

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 · 17 Août 2020

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 · 17 Août 2020

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

XL 2016 code formulaire de saisie

Phylo

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

Phylo

XLDnaute Occasionnel

bof

XLDnaute Occasionnel

Phylo

XLDnaute Occasionnel

Phylo

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

Pièces jointes

Phylo

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

Phylo

XLDnaute Occasionnel

Phylo

XLDnaute Occasionnel

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

Phylo

XLDnaute Occasionnel

Phylo

XLDnaute Occasionnel

jcf6464

XLDnaute Impliqué

Discussions similaires