Fichier de gestion Excel VBA - Userform

Version imprimable

15/07/2010, 15h46
Hilsen

Fichier de gestion Excel VBA - Userform

Bonjour, 8-)

Pour une brève présentation du contexte, je suis un utilisateur lambda de excel, et je suis en train d'élaborer un fichier excel dans le but de faire de la gestion de locataires sur un chantier sur le lequel je suis en stage.

Il s'agit en réalité de créer une base de données dont la saisie se fait par l'intermédiaire d'un formulaire (userform). Je passe donc par de la programmation (de base) en VBA. :aie:

Pour la saisie, il n'y a pas de problème.
Cependant, j'aimerais ensuite, lorsque j'ai la liste des locataires, pouvoir cliquer sur le nom d'un locataire et que cela m'affiche le formulaire de saisie pré-rempli avec les informations relatives au locataire.
(j'espere etre suffisamment clair... :? )

Je suis parti dans l'idée de créer une macro... mais est-il possible d'affecter une macro automatiquement au moment de l'enregistrement du locataire? :?

2eme question: est-il possible d'imprimer simplement un userform?
J'ai 3 onglets. Est-il possible d'imprimer 1 onglet par page...?

Vous remerciant de vos réponses :)

Hilsen
15/07/2010, 16h42
Invité

Bonjour

Ta liste de locataire dans laquelle tu veux cliquer, où se trouve-t-elle ? Dans une feuille, sur un userform ? Est-ce une zone de liste ou juste les cellules d'une feuille.

Philippe

Premiere partie résolue !

Bonsoir Philippe,

Merci de t'etre arréter sur ma question :lol:

Je viens cependant de réussir la premiere partie.:ccool:
Ma liste était simplement une feuille excel remplie.
Chaque ligne correspond à un locataire différent.
Dans la colonne G, il y a "Lien vers la fiche d'Etat des Lieux"
Et c'etait cette cellule que je voulais rendre cliquable.
cela donne ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Plage As Range Set Plage = Range("G9:G10000") If Application.Intersect(Target, Plage) Is Nothing Then Else If ActiveCell.Value <> "" Then Lignee = ActiveCell.Row Consult (Lignee) End If End If End Sub
avec Consult, un Sub qui me permettra de lancer l'userform de saisie pré-rempli...

Il ne me manque donc plus que le "pré-remplissage" de l'userform.
(Dans l'idéal, il faudrait que la saisie ne soit pas modifiable. Ce qui doit etre possible en mettant les enable des Frame sur False).
Dans ce nouveau formulaire prérempli, je voudrais cependant insérer non pas simplement un bouton OK et un bouton Annuler (comme le formulaire original), mais 3 boutons: MODIFIER, IMPRIMER et Annuler.

Pour le bouton MODIFIER, ca devrait aller, mais pour l'impression, aurais-tu une idée?

Te remerciant une fois de plus:)

Hilsen

PS : Faut-il que je recrée completement mon formulaire de saisie ou en mettant certaines propriétés à l'originale, celle-ci peut se modifiée un peu?:mrgreen:

15/07/2010, 18h50
Phileo

bonjour,

Pour rendre tes champs non modifiables tu peux effectivement mettre leur propriété Enabled à False.

Pour l'impression d'un userform tu peux regarder ici :http://silkyroad.developpez.com/VBA/UserForm/#LIII-E

Mais si tu veux quelque chose de "présentable" ça risque d'être dur d'utiliser ton userform de base.

Une idée serait un onglet caché que tu ferais apparaitre au moment de l'impression en le remplissant avec les paramètres de la personne choisie.
Comme cela tu pourrais mettre en forme tes différents champs de manière plus libre.

Ou encore mieux utiliser la fonction de publipostage de Word mais là ça complique encore plus la manip.
A voir si tu as du temps à y consacrer
16/07/2010, 08h43
Hilsen

Bonjour Phileo,:P

Je pense qu'effectivement, ton idée de la feuille à imprimer est plus interressante que d'imprimer l'UserForm directement.:ccool:

Juste pour avoir une réponse complémentaire :
Quelle est la propriété pour mettre des valeurs par défaut dans les TextBox, les ComboBox et les boutons d'option???:?

De même, sais-tu si le UserForm de base (celui que j'utilise pour la saisie) peut-il etre modifié pour ne pas avoir a recréer ce même userform désactivé???
Peut-on faire en sorte que les boutons varient facilement (passer de 2 boutons OK/Annuler à 3 boutons Annuler/Modifier/Imprimer) ???:?

Merci de ta réponse8-)

Hilsen
16/07/2010, 15h42
Phileo

Pour les valeurs par défaut tu peux utiliser la procédure userform_initialize pour fixer les valeurs que tu souhaites à l'affichage de la feuille.

Pour utiliser le même userform dans tes deux cas, créer une variable indiquant ton cas par exemple création = Oui ou non puis initialiser différemment l'userform selon le cas.

Pour les boutons différents une idée serait d'utiliser les objets Frame

Pour le cas 1 création tu crées un frameCration avec 2 boutons
Pour le cas 2 modification tu crées un frameModif avec 3 boutons

Dans le cas 1 tu masques framemodif et affiches framecréation
Dans le cas 2 tu masques framecréation et affiches frameModif
16/07/2010, 22h51
Hilsen

Bonsoir Phileo

Citation:

Envoyé par Phileo

Pour les valeurs par défaut tu peux utiliser la procédure userform_initialize pour fixer les valeurs que tu souhaites à l'affichage de la feuille.

Pourrais-tu me donner un exemple s'il te plait?
Je ne vois pas bien comment faire cette initialisation...:roll:

Tu veux que je colle ici le code de mon userform en question?
(c'est relativement long...)

Citation:

Envoyé par Phileo

Pour utiliser le même userform dans tes deux cas, créer une variable indiquant ton cas par exemple création = Oui ou non puis initialiser différemment l'userform selon le cas.

Pour les boutons différents une idée serait d'utiliser les objets Frame

Pour le cas 1 création tu crées un frameCration avec 2 boutons
Pour le cas 2 modification tu crées un frameModif avec 3 boutons

Dans le cas 1 tu masques framemodif et affiches framecréation
Dans le cas 2 tu masques framecréation et affiches frameModif

Ca par contre, c'est dans mes cordes :ccool:

Merci Phileo
20/07/2010, 12h40
Phileo
bonjour

Dans le code de ton Userform tu as deux zone de sélection
- en haut à gauche tu peux choisir "Userform"
- en haut à droite l'évènement "initialize"

ça te donnera une routine :
Code:

1 2 3 Private Sub UserForm_Initialize() TB_montexte.Text = "Exemple par défaut" End Sub
dans mon exemple j'ai un userform contenant un champ texte "TB_montexte".

Je l'initialise à la valeur "Exemple par défaut" à l'ouverture de l'userform.

Est-ce plus clair ?

Re,

Une dernière chose pour parachever mon oeuvre :mouarf:
Comment effectuer une recherche dans une cellule fusionnée??

Pour être plus clair, j'ai la liste de mes locataires (1 ligne = 1 nom de locataire + un n° de logement).
J'ai un lien au bout de cette ligne pour afficher une autre feuille (un planning).
En cliquant sur ce lien, je voudrais que sur la feuille de planning soit sélectionnée la cellule contenant le nom et le n° de logement du locataire.
(Je suis suffisamment clair?:aie:)

Voici mes codes actuellement :
Sur la feuille de listing :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Plage As Range Set Plage = Range("H9:H2000") If Application.Intersect(Target, Plage) Is Nothing Then Else If ActiveCell.Value <> "" Then Lignee_Planning = ActiveCell.Row Range("E" & Lignee_Planning).Select Recherche_Loc2 (Lignee_Planning) End If End If End Sub
Dans le module1:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Recherche_Loc2(Lignee_Planning) B(0) = Lignee_Planning B(1) = Range("E" & Lignee_Planning).Text 'Nom du locataire B(2) = Range("D" & Lignee_Planning).Text 'Numéro logt du locataire Sheets("Planning").Visible = True Sheets("Planning").Select Mot = B(1) & Chr(10) & "N° Logt: " & B(2) Set NomLoc_Rech2 = Range("A:A").Find(Mot) If NomLoc_Rech2 Is Nothing Then MsgBox "ERREUR !", vbCritical, "Erreur" Consultation 'Méthode qui renvoie au listing locataire Else NomLoc_Rech2.Select End If End Sub
Pour l'instant, à chaque fois que je clique dans la zone pour afficher le planning d'un locataire, il m'affiche le MsgBox Erreur...:cry:

La difficulté vient du fait que les cellules de la colonne "Nom" (Colonne A) sont sur 4 lignes fusionnées et que la cellule contient le nom, un numéro de logement et d'autres détails avec les sauts de ligne, comme ci-dessous:

http://ups.imagup.com/ano1/1280370931.jpg

Merci:ccool: