OVH Cloud OVH Cloud

grille de saisie et mise à jour d'une liste

3 réponses
Avatar
jcb2
bonsoir,

dans un userform j'ai un bouton qui me permet de faire apparaitre le
dataform pour mettre à jour une liste de données
une fois cette grille fermée, avec mes mises à jour faites, ma liste
déroulante qui reprend ma plage de cellule ne se met pas à jour ;
la plage de cellules liée est correcte et liée à l'aide de l'astuce
DECALER(.....;;;) etc...

il doit y avoir une astuce pour mettre initialiser cette liste dès que la
grille de saisie est fermée mais je ne la vois pas

merci de votre aide

3 réponses

Avatar
AV
il doit y avoir une astuce pour mettre initialiser cette liste dès que la
grille de saisie est fermée mais je ne la vois pas


Dans le cas présent, l'utilisation de la fonction DECALER (volatile) me parait
poser plus de problème qu'en résoudre..
Exemple de solution avec un bouton (sur L'UF) qui fait afficher la grille
La liste (En "Feuil1" de A2 à Ax - A1 = étiquette) mise à jour après ajout
éventuel de donnée, est à récupérer dans une Combobox

Private Sub CommandButton1_Click()
[A1].Select
ActiveSheet.ShowDataForm
UserForm1.ComboBox1.RowSource = _
"Feuil1!" & Range("Feuil2!A2:A" & [Feuil1!A65536].End(3).Row).Address
End Sub

AV

Avatar
LSteph
Bonjour,
peut être dans le code du bouton qui commande
ta grille:
'***
Private Sub CommandButton1_Click()
Me.Hide
Feuil1.Select
Feuil1.ShowDataForm
Me.Repaint
Me.Show
End Sub
'***

'lsteph

"jcb2" a écrit dans le message de news:
41f3d92f$0$2160$
bonsoir,

dans un userform j'ai un bouton qui me permet de faire apparaitre le
dataform pour mettre à jour une liste de données
une fois cette grille fermée, avec mes mises à jour faites, ma liste
déroulante qui reprend ma plage de cellule ne se met pas à jour ;
la plage de cellules liée est correcte et liée à l'aide de l'astuce
DECALER(.....;;;) etc...

il doit y avoir une astuce pour mettre initialiser cette liste dès que la
grille de saisie est fermée mais je ne la vois pas

merci de votre aide




Avatar
LSteph
Bonjour,
Mon précédent post ne convient pas, aussi rectif.
Cet exemple envisage la column(1) de "database"
comme source de combobox1 du userform
il faut que le nom Base_de_données soit défini dans la feuille

'***
Private Sub CommandButton1_Click()

Me.Hide
Feuil1.Select
Feuil1.ShowDataForm
Me.ComboBox1.RowSource = _
Range("database").Columns(1).Address

Me.Show
End Sub

Private Sub UserForm_Initialize()

Me.ComboBox1.RowSource = _
Range("database").Columns(1).Address

End Sub
'***

'lSteph
"jcb2" a écrit dans le message de news:
41f3d92f$0$2160$
bonsoir,

dans un userform j'ai un bouton qui me permet de faire apparaitre le
dataform pour mettre à jour une liste de données
une fois cette grille fermée, avec mes mises à jour faites, ma liste
déroulante qui reprend ma plage de cellule ne se met pas à jour ;
la plage de cellules liée est correcte et liée à l'aide de l'astuce
DECALER(.....;;;) etc...

il doit y avoir une astuce pour mettre initialiser cette liste dès que la
grille de saisie est fermée mais je ne la vois pas

merci de votre aide