Discussion :

[jpma75]

Bonjour,

Un tableau A1:B5
Colonne A : des dates (issues de formules)
Colonne B : des numéros (liés aux dates de la colonne A)

Objectif : récupérer le numéro dans la macro quand l'utilisateur sélectionne l'option correspondant à la date.
Moyen : UF Contrôle Bouton d'Option
Contraintes : les dates (et donc les numéros) sont dynamiques et doivent donc s'actualiser dans le UF

Est-il possible :
1 - Que le libellé du bouton d'Option récupère la valeur d'une cellule (date) ? (Si j'associe une cellule à la propriété Caption du UF ça ne fonctionne pas)
2 - D'utiliser la fonction Offset pour récupérer le numéro correspondant à la date sélectionnées ? (l'utilisateur ne voit que les dates)

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

[galopin01]

Bonjour,
De manière générale les propriétés ne font pas d'action. Le fait d'être blond ne t'aide pas à te coiffer... De même que le fait d'être rouge n'aide pas ta voiture à rouler.
Par contre les évènements et les actions de l'utilisateur peuvent aider. Le fait de prendre un peigne ou d'acheter de l'essence par exemple.

Tu ne peux pas associer une cellule à une propriété par contre les évènements sont fait pour ça.
Das l'évènement Initialize du UserForm tu peux décider que le caption de ton Button aura la valeur (texte) d'une cellule.
Tu peux décider qu'au moment ou tu vas cliquer sur le bouton sa caption va changer et prendra une autre valeur.
A+

[Transitoire]

Bonjour, Chez vous ça ne marche pas? Chez moi ça marche voir pièce jointe. par ailleurs, on peut entrer cette valeur autrement qu'avec Initialise.
Attention de rajouter la parentalité de la feuille et du UserForm(ce que je n'ai pas fait sur l'exemple ci-dessous.)




Cordialement

[jpma75]

Bonjour,

Merci, j'ai tiré partie de ces explications (finalement, je n'ai plus besoin de recourir à Offset)

J'imagine qu'il est possible de nettement simplifier ce code (hormis pour la déclaration des variables que je préfère en colonne ) ?!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
Private Sub Bouton_Annulation_Click()
    Unload UserForm1
End Sub
Private Sub Bouton_OK_Click()
Dim Option1 As Integer
Dim Option2 As Integer
Dim Option3 As Integer
Dim Option4 As Integer
Dim Option5 As Integer
 
    Option1 = Range("ABY7")
    Option2 = Range("ABY8")
    Option3 = Range("ABY9")
    Option4 = Range("ABY10")
    Option5 = Range("ABY11")
 
    If OptionButton1 Then Col_Déb_Impress = Option1
    If OptionButton2 Then Col_Déb_Impress = Option2
    If OptionButton3 Then Col_Déb_Impress = Option3
    If OptionButton4 Then Col_Déb_Impress = Option4
    If OptionButton5 Then Col_Déb_Impress = Option5
 
    Unload UserForm1
    Call CreerPDF
 
    Col_Déb_Impress = Option1 '?? (si clic sur Ok sans avoir sélectionné une Option, je veux que ça soit celle-ci par défaut
 
End Sub
Private Sub Userform_Initialize()
    OptionButton1.Caption = Range("ABX7")
    OptionButton2.Caption = Range("ABX8")
    OptionButton3.Caption = Range("ABX9")
    OptionButton4.Caption = Range("ABX10")
    OptionButton5.Caption = Range("ABX11")
End Sub

PS :

1. Col_Déb_Impress est déclarée comme Variable Public (dans un autre module)
2. J'ai un doute sur la réinitialisation sur l'Option1 (cf. plus haut dans le code). Sans doute une propriété à mettre à True ?!
3. Transitoire, tu dis

   on peut entrer cette valeur autrement qu'avec Initialize

   , mais c'est bien ce que tu proposes ici ?!

Cordialement,
jp

[Transitoire]

J'ai simplement donné un exemple avec initialize du UserForm.
Nous pourrons avoir une Macro appelé Test sur un module normal et qui serait lancée par un événement quelconque et qui modifierais le Caption

Code :

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

1
2
3
Sub Test()
UserForm1.OptionButton1.caption = Worksheets("Feuil1").range("B3").text 
End Sub

Cordialement

[jpma75]

Bonsoir,

Certes mais cela optimise-t-il le code ? A mon niveau cela ne me paraît pas flagrant.

Cordialement,
jp