VBA action avec userform

[sakura]

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

 

[bof]

Bonsoir,
Ton fichier ne semble pas exploitable en l'état.
A+

 

[sakura]

Bonsoir,
Ton fichier ne semble pas exploitable en l'état.
A+

Merci pour votre réponse mais qu'entendre vous par pas exploitable ?
Merci

 

[bof]

Impossible de charger le Userform.
Même si on ne cherche pas à l'afficher, impossible de lire le code du UserForm.
A+

 

[Lone-wolf]

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.

 

[Lone-wolf]

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.

 

[bof]

Bonjour,
J'aurai du deviner... c'est le calendrier qui était bloquant chez moi...

A+

 

[sakura]

Super merci beaucoup pour l'aide, désolé pour la réponse tardive mais j'étais en déplacement à l'étranger...
Je vais tester ça Lone-wolf 🙂