Enregistrer les données à partir d'un formulaire
Bonjour à tous,
Je suis un bon début en VBA et je suis un autoditacte, donc je vous remercie par avance pour votre aide.
Voici en quelques mots mes difficultés: je souhaiterai dans un fichier Excel utiliser la feuille 1 comme formulaire, les données saisies sur le formulaire doivent être stockées dans la feuille 2 au niveau de la première ligne vide.
J'aimerai par la suite ajouter un bouton de recherche pour permettre récupérer les données de la base à partir du formulaire.
Merci de trouver ci jointe mon fichier avec le code macro.
Je vous remercie vivement pour votre aide et surtout pour le temps consacré.
Abdel.
abdel2013 a écrit :Bonjour à tous,
Je suis un bon début en VBA et je suis un autoditacte, donc je vous remercie par avance pour votre aide.
Voici en quelques mots mes difficultés: je souhaiterai dans un fichier Excel utiliser la feuille 1 comme formulaire, les données saisies sur le formulaire doivent être stockées dans la feuille 2 au niveau de la première ligne vide.
J'aimerai par la suite ajouter un bouton de recherche pour permettre récupérer les données de la base à partir du formulaire.
Merci de trouver ci jointe mon fichier avec le code macro.
Je vous remercie vivement pour votre aide et surtout pour le temps consacré.
Abdel.
Bonjour
Il n'y a pas de fichier joint
si le poids est supérieur a 300ko le compresser ou utiliser
fred
Bonjour Fred,
Merci de ta réponse.
En essayant de chercher un peu plus j'ai fini par corriger mon erreur.
Voici le code final qui marche bien.
Private Sub CommandButton1_Click()
Dim Maligne As Integer
Maligne = Sheets("BDD").Range("B65536").End(xlUp).Row + 1
If Sheets("formulaire de saisie").Range("C5") = "" Then
MsgBox " PRENOM OBLIGATOIRE"
Exit Sub
End If
If Sheets("formulaire de saisie").Range("C6") = "" Then
MsgBox "La raison de l'absence est obligatoire"
Exit Sub
End If
If Sheets("formulaire de saisie").Range("C7") = "" Then
MsgBox "La date de début est obligatoire"
Exit Sub
End If
If Sheets("formulaire de saisie").Range("C8") = "" Then
MsgBox "La date de fin est obligatoire"
Exit Sub
End If
Sheets("BDD").Range("B" & Maligne) = Sheets("formulaire de saisie").Range("C5")
Sheets("BDD").Range("C" & Maligne) = Sheets("formulaire de saisie").Range("C6")
Sheets("BDD").Range("D" & Maligne) = Sheets("formulaire de saisie").Range("C7")
Sheets("BDD").Range("E" & Maligne) = Sheets("formulaire de saisie").Range("C8")
Sheets("BDD").Range("F" & Maligne) = Sheets("formulaire de saisie").Range("C9")
Sheets("BDD").Range("G" & Maligne) = Sheets("formulaire de saisie").Range("C10")
Sheets("BDD").Range("H" & Maligne) = Sheets("formulaire de saisie").Range("C11")
Sheets("BDD").Range("I" & Maligne) = Sheets("formulaire de saisie").Range("C12")
Sheets("BDD").Range("J" & Maligne) = Sheets("formulaire de saisie").Range("C13")
Sheets("formulaire de saisie").Range("C5:C13").ClearContents
End Sub
Dans ce cas
merci
Fred