Userform pour remplissage base de données

  • Initiateur de la discussion Initiateur de la discussion Irv
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Irv

XLDnaute Nouveau
Bonjour à tous,

Je cherche à réaliser une base de données avec remplissage par le biais d'un userform comprenant combobox et checkbox. Je ne parviens pas à m'en sortir (je sais, ce n'est pourtant pas compliqué ...). Pourriez-vous me dire où cela coince ?

Je souhaite pouvoir remplir les infos, qu'elles soient reprise dans le tableau excel l'une en dessous de l'autre en cliquant sur "suivant" et que les case se remettent à zéro pour une nouvelle saisie, etc ...

Merci beaucoup de votre aide précieuse !!!
 

Pièces jointes

Re : Userform pour remplissage base de données

Excusez-moi, je m'étais trompé de macro, l'autre contenait des éléments qui ne m'intéressent justement pas, d'où le problème après leur suppression ...

Merci encore à celui (ou celle) qui pourra m'aider ...
 

Pièces jointes

Re : Userform pour remplissage base de données

Bon ok je me dévoue et je regarde cela ce soir si tout va bien. sauf si les autres encore plus pros s'y mettent avant . Ton code semble bien marcher mais tu peux surtout le simplifier pour le rendre plus rapide
 
Re : Userform pour remplissage base de données

Bonjour le fil,
Voici un code qui baigne
Bruno
Code:
Private Sub CommandButton1_Click()
Dim DERLIGNE As Long, X
Dim Ws As Worksheet
With Feuil1
    DERLIGNE = .Range("A65536").End(xlUp).Row + 1
   .Range("A" & DERLIGNE) = BoxDate
    .Range("B" & DERLIGNE) = BoxAgence
    .Range("E" & DERLIGNE) = BoxConseiller
    .Range("F" & DERLIGNE) = BoxFonction
    .Range("G" & DERLIGNE) = BoxClient
    .Range("H" & DERLIGNE) = BoxMatricule
    .Range("I" & DERLIGNE) = BoxCapitaux
    .Range("J" & DERLIGNE) = BoxFrais
    .Range("K" & DERLIGNE) = BoxRdv
    .Range("AD" & DERLIGNE) = BoxCommentaires
For k = 1 To 17
If Controls("CheckBox" & k).Value = True Then .Cells(DERLIGNE, k + 11) = "X"
Me.Controls("CheckBox" & k).Value = False

Next
End With

  BoxDate.Value = ""
  BoxAgence.Value = ""
  BoxConseiller.Value = ""
  BoxCapitaux.Value = ""
  BoxFrais.Value = ""
  BoxMatricule.Value = ""
  BoxRdv.Value = ""
  BoxClient.Value = ""
  BoxCommentaires.Value = ""
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
1 K
Retour