VBA action avec userform

sakura

XLDnaute Nouveau
Bonjour,

Je ne suis pas experte en VBA et je me suis lancé dans un fichier de suivi client avec création etc avec des userform que je ne maîtrise pas à 100%.
J'ai créé mon fichier de base avec les champs voulu mais je n'arrive pas à faire les boutons d'actions (valider, annuler, supprimer) ou il va copier les éléments sur ma feuille Clients.
Je voudrais mettre une numérotation à chaque création (1, 2, 3, etc) mais je n'y arrive pas non plus.
Pouvez vous m'aider ???
Merci d'avance !
Jess
 

Pièces jointes

  • Fichier clients test.xlsm
    28.2 KB · Affichages: 61

Lone-wolf

XLDnaute Barbatruc
Bonsoir à tous

bof, tu doit sûrement avoir un problème, je suis sous 2013 et pourtant je peux afficher l'usf et voir le code.

Jess, l'initialisation de la combo est erronée

With Me.ComboBox1
ComboBox1.AddItem "Famille"
ComboBox1.AddItem "Amis"
ComboBox1.AddItem "Travail"
ComboBox1.AddItem "Autres"
End With

A corriger par

With ComboBox1
.AddItem "Famille"
.AddItem "Amis"
.AddItem "Travail"
.AddItem "Autres"
End With

Pour la numérotation, il faut déjà créer des entêtes ensuite mettre un boutton dans l'usf. Dans le bouton tu met

With Sheets("Clients")
lig = .Cells(Rows.count, "A").End(xlUp).Row + 1
.Cells(lig, "A") = lig - 1
.Cells(lig, "B") = Groupe(Famille ou Amis ou Tavail ou Autres)
.Cells(lig, "C") = Nom
.Cells(lig, "D") = Prénom
etc
End With

Et pour mieux visualiser les différents groupes et faire un tri, ajouter une ListBox.
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Bonjour Jess :), bof :), le Forum :)

Jess, ton fichier en retour. Je te laisse le soin de finaliser le formulaire.

Mode d'emploi:
Rempli les textboxs + la combo des groupes > clique sur Valider

Pour modifier ou supprimer un nom, sélectionne la combo rechercher, clique sur l'un des noms de la listbox, modifier ou supprimer.

EDIT: j'ai supprimer le calendrier, plus rapide à entrer la date de naissance dans la textbox manuellement. Double-clique sur la feuille Clients pour faire les essais, si tout est ok pour toi, tu pourra éffacer l'appel du formulaire qui se trouve dans le module de la feuille et utiliser le bouton sur l'autre feuille.
 

Pièces jointes

  • Fichier clients test.xlsm
    38.6 KB · Affichages: 54
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 809
Messages
2 092 297
Membres
105 343
dernier inscrit
Poipi81