ToolBox

[Laurent313131]

Bonsoir,

J'ai beau chercher (mal sans doute 😉) mais je ne trouve pas de post traitant du sujet suivnant.

Je voudrais savoir s'il est possible de créer une sorte de tool box avec VBA dans laquelle on renseignerait diverses informations (Nom, Prénom ...)

L'exemple en photo ci-dessous vous parlera probablement davantage ! (désolé pour la qualité mais je n'ai trouvé que ça...)

Merci !

http://img388.imageshack.us/my.php?image=sanstitreug7.jpgCe lien n'existe plus

 

[jeanpierre]

Re : ToolBox

Bonsoir Laurent313131,

Fais une recherche (en haut à droite sous ton pseudo) sur UserForm ou USF* (le caractère générique * pour avoir 4 caractères, la recherche du forum n'accepte pas en dessous).

Bonne recherche et soirée.

Jean-Pierre

 

[Laurent313131]

Re : ToolBox

Merci j'y vais de ce pas ! La nuit va être longue je sens 🙂

 

[BERRACHED said]

Re : ToolBox

Salut,Laurent313131

oui c'est possible en Vba c'est un Userform qui contiens divers contrôles tel que (Textbox,Combox,Listbox,Listview ect.......) qui captent bien évidemment les différentes information dont tu en a besoin est selon ta concéption

Cordialement

PS: Salut,jeanpierre

 

[Laurent313131]

Re : ToolBox

Bien je me débrouille plutôt bien donc je suis content ^^

 

[Laurent313131]

Re : ToolBox

STUPEUR !!!!!!!!!!!!!!!!!!!!! Mon userform n'a pas été sauvegardé !!! Je m'explique : hier je travaille dessus jusqu'à 3h30 du matin(!), j'enregistre mon fichier excel et là je vais pour réouvrir mon UserForm et y'a plus rien, même les codes ont disparu.

Quelle manip ai-je oublié ???

 

[Roland_M]

Re : ToolBox

bonjour

tu travailles avec 2007 !?

car avec 2007 si tu ne précises pas de sauvegarder en xlsm
il enregistre en xls et sans les macros !
encore une connerie de 2007

 

[jeanpierre]

Re : ToolBox

Bonjour Laurent, Saïd, le forum,

Sous quelle version d'excel travailles-tu ?

Manifestement, tu serais sous 2007.

Renseigne ton profil à ce sujet....

Sous 2007, il y a, à priori, deux types d'enregistrement (entre autres), fichier ordinaire (sans macro), et fichier avec macro (xlsm de mémoire), mais par défaut, c'est toujours le premier qui est pris en compte (de ce que j'ai lu).

Bon courage, mais bon tu as déjà la direction et sans aucun doute la mémoire de ce que tu as fait.

Bon dimanche tout de même.

Jean-Pierre

 

[Laurent313131]

Re : ToolBox

Effectivement je suis en 2007 ! Merci pour les infos. Ca devrait vite revenir et ça me fera un bon entraînement de le refaire !

Bon Dimanche à vous.

 

[Laurent313131]

Re : ToolBox

Nouvelle petite question :

J'ai crée un bouton de commande qui ferme mon USF lorsque je clique dessus avec le code suivant :

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub


J'en ai un second qui enregistre mon USf en ouvrant une fenêtre enregistrer-sous :

Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

En fait, je voudrais qu'un message du type "Veuillez enregistrer avant de quitter" s'affiche si je clique sur mon Button 1 sans avoir cliqué sur le 2 au préalable.

Je sais le faire si des textbox ne sont pas remplies (l'utilisateur ne peux pas quitter s'il ne les a pas toutes remplies) mais je sais pas comment faire dans le cas où il faut cliquer...

Merci

 

[Laurent313131]

Re : ToolBox

Je fais remonter le sujet ...

 

[kjin]

Re : ToolBox

Bonsoir,
Il suffit peut être d'ajouter une variable de type booléen déclarée au niveau du module
Attention contrôler que tu as clické sur le bouton ne veux pas dire contrôler que tu as enregistré !

Dim Sauve As Boolean
Private Sub CommandButton1_Click()
If Sauve = True Then
Unload Me
Else
MsgBox "il faut enregistrer"
End If
End Sub

Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogSaveAs).Show
Sauve = True
End Sub

Mais le plus simple reste encore de supprimer le second bouton et d'enregistrer avant de quitter

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
Unload Me
End sub

A+
kjin

 

[Laurent313131]

Re : ToolBox

Merci ça marche parfaitement !