J
Janko
Guest
Bonjour à toutes et à tous,
Après une petite question sur les formules matricielles (merci Monique), une autre sur les formats personnalisés (merci Vériland), je termine cette semaine par une question/confirmation sur les UserForms (merci Thierry ? ;o))
Après avoir parcouru l'aide d'XL, l'historique de XLD, décortiqué les nombreuses démos de @+thierry sur les UserForms, je suis arrivé à réaliser mon envie et résoudre le problème auquel j'étais confronté (alors pourquoi venir embêter les forumistes, me direz-vous !...); juste pour obtenir une confirmation.
Bref, je désirais atteindre une cellule (juste me positionner dessus) en fonction de la valeur sélectionnée dans une cmbBox d'un UserForm. Pour ce faire :
Private Sub UserForm_Initialize() 'Alimentaion de la cmbBox
Dim x As Byte
For x = 2 To 13
cmbBudget.AddItem Sheets("Ca budgétés").Cells(1, x)
Next x
End Sub
Private Sub cmbBudget_Change() 'Positionnement sur la cellule
Sheets("Ca budgétés").Range("A1:M1").Select
Dim cell As Range
For Each cell In Selection.Cells
If cell = cmbBudget.Value Then
cell.Select
End If
Next
Unload Me
End Sub
Ma question : n'y-a-t-il pas une procédure beaucoup plus simple ? Comme dans Access, la colonne liée ne peut-elle servir à déterminer le Range ? Du style :
Cell.Select = cmbBox.ControleSource
Merci pour tous les éclaircissements que vous pouvez (m')apporter, et excellent week-end à toutti.
Janko
Après une petite question sur les formules matricielles (merci Monique), une autre sur les formats personnalisés (merci Vériland), je termine cette semaine par une question/confirmation sur les UserForms (merci Thierry ? ;o))
Après avoir parcouru l'aide d'XL, l'historique de XLD, décortiqué les nombreuses démos de @+thierry sur les UserForms, je suis arrivé à réaliser mon envie et résoudre le problème auquel j'étais confronté (alors pourquoi venir embêter les forumistes, me direz-vous !...); juste pour obtenir une confirmation.
Bref, je désirais atteindre une cellule (juste me positionner dessus) en fonction de la valeur sélectionnée dans une cmbBox d'un UserForm. Pour ce faire :
Private Sub UserForm_Initialize() 'Alimentaion de la cmbBox
Dim x As Byte
For x = 2 To 13
cmbBudget.AddItem Sheets("Ca budgétés").Cells(1, x)
Next x
End Sub
Private Sub cmbBudget_Change() 'Positionnement sur la cellule
Sheets("Ca budgétés").Range("A1:M1").Select
Dim cell As Range
For Each cell In Selection.Cells
If cell = cmbBudget.Value Then
cell.Select
End If
Next
Unload Me
End Sub
Ma question : n'y-a-t-il pas une procédure beaucoup plus simple ? Comme dans Access, la colonne liée ne peut-elle servir à déterminer le Range ? Du style :
Cell.Select = cmbBox.ControleSource
Merci pour tous les éclaircissements que vous pouvez (m')apporter, et excellent week-end à toutti.
Janko