Discussion :

[Hilsen]

Bonjour,


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.

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

[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

[Hilsen]

Bonsoir Philippe,

Merci de t'etre arréter sur ma question

Je viens cependant de réussir la premiere partie.
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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

[Hilsen]

Bonjour Phileo,

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

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éponse


Hilsen

[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