Formulaire Excel

Bonjour tout le monde, je suis un nouveau membre sur le forum j'occupe un poste d’ingénieur contrôle de qualité, concernant mon problème c'est que j'ai crée un formulaire de saisie UserForm, et quand je fais la saisie vers un tableau excel il m'affiche mon tableau et donc il montre ma base de données, moi je veux que qu'on je saisie je veux rester sur ma page d’accueil sans passer a mon tableau [ la base de données ] Merci d'avance,

Bonjour,

Ce n'est pas le formulaire qui montre la feuille c'est TOI qui as créer une ligne pour sélectionner cette feuille.

Feuille("blabla").Select 'ou Activate ?)

Supprime cette ligne et tu ne verra plus la feuille en question.

A+

Merci d'avoir répondre a ma question galopin01;

j'ai essaie de supprimer la ligne que vous m'avez dit sur le code mais je recoi une autre erreur ! voila un screen :

je peux t'envoyer le fichier si vous pouvez m'aider ca sera vraiment un grand plaisir de votre part.

très cordialement,

Bonjour,

C'est bizarre..

Sinon au debut de ton code met

Application.screenupdating = false

A la fin de ton programme ou fermeture userform tu mets

Worksheets("accueil").activate
Application.screenupdating = true

Merci pour votre reponse Moul;

* J'ai reçu ce problème !!!

* il y a aussi un autre probleme c'est que qu'on je click sur le boutton ajouter la date que j'ai saisie sous forme de jj/mm/aa elle s'affiche sous forma mm/jj/aa !! je comprends pas pourquoi !!!

Voila le fichier, si quelqu’un peut m'aider ca sera vraiment un grand plaisir :

cordialement;

Application.screenupdating = true

Faut qu'il soit dans un Sub comme Userform_initialize

et son frère a la fermeture.

J'ai pas de PC pour ouvrir ..

Mais pour la date, il faut jouer avec

format(date,"dd/mm/yy")

Merci beaucoup Moul;

Le problème de la date est résolu mais mon formulaire il m'affiche toujours ma base de donner quand je click sur le bouton ajouter , s'il vous plait si vous avez des solutions a partager avec moi n’hésitez pas.

Très cordialement,

Bonjour

Private Sub BtnAjout_Click()

Application.ScreenUpdating = False

Sheets("Source").Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = TxtDate.Value
ActiveCell.Offset(0, 1).Value = CboTechniciens
ActiveCell.Offset(0, 2).Value = CboProjet
ActiveCell.Offset(0, 3).Value = CboPhase
ActiveCell.Offset(0, 4).Value = CboNbr

Worksheets("MENU").Activate
Application.ScreenUpdating = True

End Sub

Dans ton userform remplace ta procédure

BtnAjout_Click()

par celle ci

Bonjour à tous,

Une autre proposition ... afin d'éviter les select ...

Private Sub BtnAjout_Click()
Dim Dlig As Long

    With Sheets("Source")
        Dlig = .Cells(Rows.Count, "A").End(xlUp).Row + 1    ' dernière ligne plus 1
        .Cells(Dlig, "A") = CDate(Me.TxtDate)   ' format date
        .Cells(Dlig, "B") = Me.CboTechniciens
        .Cells(Dlig, "C") = Me.CboProjet
        .Cells(Dlig, "D") = Me.CboPhase
        .Cells(Dlig, "E") = Me.CboNbr
    End With
End Sub

ric

Bonjour,

En reprenant le code de @ ric ,

Private Sub BtnAjout_Click()
Dim Dlig As Long

    With Sheets("Source")
        Dlig = .Cells(Rows.Count, "A").End(xlUp).Row + 1    ' dernière ligne plus 1
        .Cells(Dlig, "A") = CDate(Me.TxtDate)   ' format date
        .Cells(Dlig, "B") = Me.CboTechniciens
        .Cells(Dlig, "C") = Me.CboProjet
        .Cells(Dlig, "D") = Me.CboPhase
        .Cells(Dlig, "E") = CSng(Me.CboNbr)
    End With

End Sub

Il faut forcer le format de l'heure en Single.

Merci Moul ça fonctionne très très bien

parfait !

* Une petite question est ce que je peux partager ce fichier sur mon réseau local et possible que plusieurs employée saisie en même temps ?

Avec du VBA c'est très compliqué.

Un classeur partagé qui possède du VBA va chuinter quelques fonctions, ce qui rend bien souvent le fichier inutilisable.

Je pense pas que le VBA soit trop complexe ici. Il faut faire le test.

Merci Moul;

et si je leurs fait un planning de saisie chacun fait sa saisie dans une heure défini, ça va pas donner aucun problème ?

Si un seul utilisateur est sur le fichier non je ne pense pas.

Mais à tester je ne peux pas te garantir ca avec certitude

Merci Moul;

Je vais tester ça