Foctionnement d'un UserForm

P

paul87

XLDnaute Impliqué

• 20 Juillet 2007

• #2

Re : Foctionnement d'un UserForm

Bonjour à tous...le Forum...
Si quelqu'un avait une idée...pour me donner un petit coup de pouce
SVP
Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2007

• #3

Re : Foctionnement d'un UserForm

Bonjour Paul

ton fichier en tretour. J'ai supprimé toutes les procédures contenue dans le module 1, pour les remplacer par celle ci :

Code:

Sub lanceUSF()
UserForm1.Show
End Sub

si tu veux rajouter d'autres boutons, pour affecter la macro => click droit sur la forme => affecter une macro => tu choisis et sélectionnes "lancerUSF".

bonne journée
@+

 

Pièces jointes

• Essai.zip

  17.2 KB · Affichages: 42
• Essai.zip

  17.2 KB · Affichages: 43
• Essai.zip

  17.2 KB · Affichages: 40

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2007

• #4

Re : Foctionnement d'un UserForm

Aarf, J'ai rien compris, j'ai répondu à coté.... Désolé...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2007

• #5

Re : Foctionnement d'un UserForm

Re Paul

une solution peut être : renommer tous tes boutons par la date souhaitée, sous format jj mm aaaa (click droit sur le bouton, zone nom, tu modifies "Ellipse xx" en 12 08 2006 par exemple ) et dans le module 1 tu mets le code ci dessous :

Code:

Option Explicit
Public dtDateSelectionnee As Date
Sub lanceUSF()
dtDateSelectionnee = DateValue(Application.Caller)
UserForm1.Show
End Sub

ce qui permet d'alimenter ta variable "dtDateSelectionnee", enfin si j'ai bien compris...

@+

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 20 Juillet 2007

• #6

Re : Foctionnement d'un UserForm

Bonjour....et merci pour ta réponse.
J'ai bien compris le principe d'affecter un nom spécifique à chaque bouton...
mais,
la finalité de la chose, serait de pouvoir lorsque je clique sur un bouton correspondant à un essai, avoir l'UF qui s'ouvre, en affichant les renseignements correspondants à l'essai concerné,(les données étant stockées dans la feuille 2)
Merci encore pour vos aides et conseils...
Paul

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2007

• #7

Re : Foctionnement d'un UserForm

Re Paul

je pense qu'il faut initialiser l'USF en fonction de la date, aller rechercher les données dans ta feuille "données" (elle est vide), et renseigner les différents "textbox" et "combo".

Pour renvoyer la date à partir d'un des boutons vers un "textbox" code ci dessous à placer dans l'événement "Initialize" de l'USF :

Code:

Private Sub UserForm_Initialize()
TextBox3.Value = dtDateSelectionnee

@+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Juillet 2007

• #8

Re : Foctionnement d'un UserForm

bonjour

je me lance, sans trop avoir compris la question 🙂

un essai en piece jointe pour initialiser la textbox1 de l'usf1 (nom de l'essai) suivant le rond actionné.

Code:

Public Sub test()
Dim c As String
Dim rond As Shape
Dim i As Byte, j As Integer
Dim t As Boolean

Set rond = ActiveSheet.Shapes(Application.Caller) '.Select

For i = rond.TopLeftCell.Row To rond.BottomRightCell.Row
    For j = rond.TopLeftCell.Column To 2 Step -1
        If Cells(i, j) <> "" And t = False Then
            c = Cells(i, j).Value: t = True
        End If
    Next j
Next i

UserForm1.TextBox1 = c
UserForm1.Show

End Sub

salut

 

Pièces jointes

• Essai.zip

  20.1 KB · Affichages: 34
• Essai.zip

  20.1 KB · Affichages: 28
• Essai.zip

  20.1 KB · Affichages: 38

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 20 Juillet 2007

• #9

Re : Foctionnement d'un UserForm

Un tout grand merci à tous,
Je crois qu'on y est presque...!!
Mais ce qui ne marche pas encore, c'est le fait que le UF(appelé par le bouton) me serve en fait de masque de saisie afin de remplir (horizontalement) les cellules de la feuille 2.
là malgré plusieurs essais je n'arrive à rien.
Encore merci pour vos aides

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Juillet 2007

• #10

Re : Foctionnement d'un UserForm

paul87 à dit:

Un tout grand merci à tous,
Je crois qu'on y est presque...!!
Mais ce qui ne marche pas encore, c'est le fait que le UF(appelé par le bouton) me serve en fait de masque de saisie afin de remplir (horizontalement) les cellules de la feuille 2.
là malgré plusieurs essais je n'arrive à rien.
Encore merci pour vos aides

Cliquez pour agrandir...

Bonjour,
est-ce que tu remplis le UF en totalité ou t'arrive-t-il de le remplir partiellement?

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 20 Juillet 2007

• #11

Re : Foctionnement d'un UserForm

Bonsoir,
non, je dois pouvoir le remplir partiellement, et par la suite pouvoir actualiser ou modifier en cas de besoin.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 20 Juillet 2007

• #12

Re : Foctionnement d'un UserForm

Bonsoir,
voilà ce que ça donne.
J'espère que celà vous conviendra.

A+

 

Pièces jointes

• Essai.zip

  27.8 KB · Affichages: 46
• Essai.zip

  27.8 KB · Affichages: 44
• Essai.zip

  27.8 KB · Affichages: 47

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 23 Juillet 2007

• #13

Re : Foctionnement d'un UserForm

Bonjour,
Génial, un tres grand merci à toi, skoobi
ça correspond parfaitement à ce qu'il me fallait...c'est super.
La version que tu m'a expédié fonctionne tres bien..
je vais maintenant essayer de rajouter des TexBox, ComboBox, dans l'Uf et dans la feuille de données...afin de finaliser mon appli
J'espère que je vais y parvenir....
MERCI +++🙂
Paul

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 23 Juillet 2007

• #14

Re : Foctionnement d'un UserForm

Bonsoir,
j'ai bien réussi à appliquer tes conseils à tous les objets de mon UF....
mais voilà tant que j'y étais, j'ai voulu rajouter un "sous UF" afin de pouvoir avoir encore plus d'info accessibles.
j'ai donc créé un UF " Situation Administrative" qui n'est accessible que par l'UF N°1.....il contiendra essentiellement des CheckBox.
Mon problème, poutant j'ai bien essayé de suivre ton raisonnement, c'est que la valeur prise par le CheckBox "O" ou "N"...ne se positionne pas bien sur la feuille "DONNEES"...
en revanche, à la ré-ouverture de l'UF c'est OK
Si tu pouvais m'expliquer ce qui ne vas pas....
Merci par avance
Ps: j'ai joint mon fichier de "brouillon" pour plus de clareté

 

Pièces jointes

• Essai.zip

  28.1 KB · Affichages: 34
• Essai.zip

  28.1 KB · Affichages: 38
• Essai.zip

  28.1 KB · Affichages: 35

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 23 Juillet 2007

• #15

Re : Foctionnement d'un UserForm

Bonsoir,
c'est car la variable "essai" n'a pas de valeure pour ce nouvel UF.
Dans "commandbutton1" ajoute la ligne en gras:

Private Sub CommandButton1_Click()

'affectation des saisis dans l'UF à des variables
essai = UserForm1.TextBox1.Value
If CheckBox1.Value = True Then
assurance = "O"
Else: assurance = "N"
End If



'commence une nouvelle ligne ou reprend "l'essai" existant
Set i = Worksheets("DONNEES").Cells.Find(essai)
If i Is Nothing Then
Set adresse = Worksheets("DONNEES").Range("a1").End(xlDown).Offset(1, 0)
Else
Set adresse = i
End If


' puis ajout des infos dans la feuille 2

adresse.Offset(0, 10) = assurance


Unload UserForm3
End Sub

Cliquez pour agrandir...

voili voilou 😉

 

Vote positif 0 Vote négatif