Saisie données dans fiche et report dans onglet base en VBA
Bonjour,
J'ai besoin de saisir des données dans une fiche sous excel : il s'agit d'une simple feuille de données avec quelques champs (pas de nécessité d'un formulaire de type Form) avec ensuite un report des informations dans une BDD situé dans un onglet joint.
Chaque fiche est destinée à être imprimée.
les données de la fiche doivent être ensuite sauvegardé dans un onglet sous forme classique BDD
effacement des données de la fiche pour passer à la suivante.
Comme je ne ne maîtrise pas bien le VBA, j'ai consulté quelques fichier sur le Web mais leur complexité
ne m'a pas aidé...
(en P.J j'ai joint un fichier test avec l'idée...)
Merci d'avance pour votre aide.
Marcki
Bonjour bonjour
Voilà un fichier qui devrait correspondre à ton besoin, test et dit moi ce que tu en penses, si besoins je peux apporter des explications sur le code
Bonjour,
Je viens de prendre connaissance de votre réponse. Un seul mot "parfait" !
Cela fait plusieurs jours que je cherche et cela paraît si simple.
J'ai pu adapter facilement la procédure VBA à mon fichier de travail.
Juste une question complémentaire :
Il me paraît intéressant d'ajouter dans le fichier un test de type :
"alerte utilisateur" sur par exemple le 1er champ "BU PO" du formulaire afin de vérifier qu'il n'existe pas déjà dans la base
et ainsi éviter un doublon.
Encore un un grand merci pour votre aide..
Cordialement.
Bonjour,
essaie avec :
With Sheets("Saisie")
If .Range("D8") = "" Then MsgBox "Champs BUPO non compl?t? !", vbExclamation, "Erreur": Exit Sub
n = Application.Match(.Range("D8"), [d.BUPO], 0)
If Not IsError(n) Then
MsgBox "Le num?ro est d?j? pr?sent"
Exit Sub
End If
'suite proc?dure
End WithBonjour,
Merci pour cette réponse et pour la méthode.
Le fichier est maintenant parfaitement fonctionnel
Juste la commande : n = Application.Match(.Range("D8"), [d.BUPO], 0)
qu'il faut que je comprenne
Cordialement et encore merci pour votre aide.
Marcki.