Définir la position du scrollbar dans combobox

Version imprimable

Voir 40 message(s) de cette discussion en une page

En utilisant ce code,
Code:

1 2 3 Set feuilSuivi = Sheets("Data suivi Arrets") derlig = Cells(65536, 2).End(xlUp).Row + 1 txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value
derlig pourrait être appliqué à plusieurs feuille est-ce que je me trompe? Exemple:
Code:

1 2 3 4 5 Set feuilSuivi = Sheets("Data suivi Arrets") derlig = Cells(65536, 2).End(xlUp).Row + 1 txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value 'reprend la valeur de la dernière ligne de feuilSuivi txbExemple.Value = feuil2.Cells(derlig, 1).Value 'reprend la valeur de la dernière ligne de feuil2
N'est-ce pas donc plus contraignant d'inscrire la feuille dans la définission de derlig?
Code:

1 2 3 Set feuilSuivi = Sheets("Data suivi Arrets") derlig = feuilSuivi.Cells(65536, 2).End(xlUp).Row + 1 txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value
Peut-être que ma logiqaue n'est pas la bonne! Quels sont les éventuels problèmes dont tu parles?

Merci
Geneviève

Code:

derlig = Cells(65536, 2).End(xlUp).Row

donne la dernière ligne non vide de la colonne B de la feuille active
mon souci était ceci

Supposons ton userform est initialisé à partir d'une feuille active X
derlig aura la valeur cité plus haut (disons par exemple 20)
Code:

1 2 3 derlig = Cells(65536, 2).End(xlUp).Row + 1 txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value 'reprend la valeur de la dernière ligne de feuilSuivi txbExemple.Value = feuil2.Cells(derlig, 1).Value 'reprend la valeur de la dernière ligne de feuil2
Code:

txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value 'reprend la valeur de la cellule A20 de feuilSuivi (pas forcément la dernière ligne)

reprend la valeur de la cellule A20 de feuilSuivi

22/10/2009, 02h57
Lufia

Ah effectivement, j'avais mal compris :P

Merci beaucoup de ce truc :)
J'en prend bonne note!
Geneviève

Rebonjour à vous!

Je réouvre le problème car il s'agit d'un annexe.

Présentement, j'ai le code suivant qui dit
"Pour chaque cbx qui commence par cbxHeure, ajouter les item de la plage A1:A96, défini le format hh:mm et défini le ListIndex à 28
Code:

1 2 3 4 5 6 7 8 9 10 For Each Ktrl In Me.Controls If TypeOf Ktrl Is MSForms.ComboBox And Left(Ktrl.Name, 8) = "cbxHeure" Then For Each Cel In Sheets("Feuil1").Range("A1:A96") Ktrl.AddItem Format(Cel.Value, "hh:mm") Next Cel Ktrl.ListIndex = 28 End If Next Ktrl
J'aurais aimé ajouter à ce code une autre condition du genre
"Sinon, pour chaque cbx qui commence par cbxTemps, ajouter les item de la plage A1:A96, défini le format hh:mm et défini le ListIndex à 2"

Le but de cet ajout est que, tel que démontré dans le reste de la conversation, si je défini mon rowsource et que je mets le format dans cbx_Change, lorsque je choisi une valeur dans la liste et que j'ouvre la liste de nouveau, la première valeur en haute de la liste reste 00:00 et non la valeur choisie ultérieurement. Je n'avais aucune utilité de cette fonction pour les cbxTemps, mais mes besoins ont changé.

J'ai donc essayé les code suivants:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 For Each Ktrl In Me.Controls If TypeOf Ktrl Is MSForms.ComboBox And Left(Ktrl.Name, 8) = "cbxHeure" Then For Each Cel In Sheets("Feuil1").Range("A1:A96") Ktrl.AddItem Format(Cel.Value, "hh:mm") Next Cel Ktrl.ListIndex = 28 ElseIf TypeOf Ktrl Is MSForms.ComboBox And Left(Ktrl.Name, 8) = "cbxTemps" Then For Each Cel In Sheets("Feuil1").Range("A1:A96") Ktrl.AddItem Format(Cel.Value, "hh:mm") Next Cel Ktrl.ListIndex = 2 End If Next Ktrl
Et ce code qui est plutot illogique en fait (mais on ne sais jamais...)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 For Each Ktrl In Me.Controls If TypeOf Ktrl Is MSForms.ComboBox And Left(Ktrl.Name, 8) = "cbxHeure" Then For Each Cel In Sheets("Feuil1").Range("A1:A96") Ktrl.AddItem Format(Cel.Value, "hh:mm") Next Cel Ktrl.ListIndex = 28 End If For Each Ktrl In Me.Controls If TypeOf Ktrl Is MSForms.ComboBox And Left(Ktrl.Name, 8) = "cbxTemps" Then For Each Cel In Sheets("Feuil1").Range("A1:A96") Ktrl.AddItem Format(Cel.Value, "hh:mm") Next Cel Ktrl.ListIndex = 2 End If Next Ktrl
Mais mes connaissances en VBA étant encore très limitées, j'y vais plutot à taton et je n'arrive pas à faire fonctionner! Avec le premier code testé j'obtien l'erreur "Erreur d'exécution '70': Accès refusé" et si je clic sur Débogage, il pointe sur :
Code:

1 2 3 4 Private Sub CommandButton1_Click() Load frmPostMortem frmPostMortem.Show End Sub
Avec le 2e code testé, ça donne l'erreur "Erreur de compilation: Variable de controle For déja utilisée" en pointant sur "For Each Ktrl In". Ce qui en fait est plutot logique.

Je ne trouve pas comment mettre ma 2e option....
Encore une fois je me tourne vers votre savoir!
Merci à l'avance!
Geneviève

bonjour Geneviève le fil le forum essai comme cela!!

Code:

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim c As Range, K As Control
For Each K In Controls
If TypeOf K Is MSForms.ComboBox And Left(K.Name, 8) = "cbxHeure" Or Left(K.Name, 8) = "cbxTemps" Then
For Each c In Sheets("Feuil1").Range("A1:A96"): K.AddItem Format(c.Value, "hh:mm"): Next
If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else K.ListIndex = 2
End If: Next
End Sub

j'ai repris la simplification de l'ami mercatog tres bien construite d'ailleurs!! que je salue au passage leti a+

Bonjour Laetitia!

J'ai placé ton code dans mon userform initialize:
Code:

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 Private Sub UserForm_Initialize() Dim derlig As Long Dim feuilSuivi As Worksheet Dim HeureDef As String, SourceHeure As String Dim Cel As Range Dim c As Range, K As Control 'Définition des valeur de date picker par défaut MultiPage1.Value = 0 DTPDatePrevue.Value = Now MultiPage1.Value = 1 DTPDateDebut.Value = Now MultiPage1.Value = 0 ' Définition et mise en forme des items combobox Heures et Temps For Each K In Controls If TypeOf K Is MSForms.ComboBox And Left(K.Name, 8) = "cbxHeure" Or Left(K.Name, 8) = "cbxTemps" Then For Each c In Sheets("Feuil1").Range("A1:A96"): K.AddItem Format(c.Value, "hh:mm"): Next If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else K.ListIndex = 2 End If: Next cbxEquipement.RowSource = "Feuil1!b1:b365" ' Récupération du numéro de PostMortem Set feuilSuivi = Sheets("Data suivi Arrets") derlig = feuilSuivi.Cells(65536, 2).End(xlUp).Row + 1 txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value End Sub
Et au lancement de mon USF j'ai l'erreur "Erreur '70' Accès refusé" et il pointe sur
Code:

1 2 3 4 Private Sub CommandButton1_Click() Load frmPostMortem frmPostMortem.Show End Sub
Je ne comprend pas ce qui coince....

Aussi, cette ligne soulève une question:

Code:

If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else K.ListIndex = 2

Si j'ai des combobox qui ne commencent ni pas cbxHeure ni cbxTemps, le ListIndex sera déterminé à 2 n'est-ce pas? J'ai essayé d'inclure un else if de la façon suivante:

Code:

If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else if Left(K.Name, 8) = "cbxTemps" Then K.ListIndex = 2

J'ai aussi essayé avec ceci:

Code:

If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else If Left(K.Name, 8) = "cbxTemps" Then K.ListIndex = 2 Else K.ListIndex = 1

Mais l'erreur du début m'empeche de valider si ma ligne est fonctionnelle...
Qu'est-ce qui peut causer l'erreur "Erreur '70' Accès refusé"??

Merci!
Geneviève

bonjour Geneviève le fil le forum. on va faire par élimination
déja cette ligne dans ton cas sert a rien!! Load frmPostMortem

Code:

1
2
3
Private Sub CommandButton1_Click()
frmPostMortem.Show
End Sub

dans initialise tu rentres seulement le code des combo..

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim c As Range, K As Control
 For Each K In Controls
If TypeOf K Is MSForms.ComboBox And Left(K.Name, 8) = "cbxHeure" Or Left(K.Name, 8) = "cbxTemps" Then
For Each c In Sheets("Feuil1").Range("A1:A96"): K.AddItem Format(c.Value, "hh:mm"): Next
If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else K.ListIndex = 2
End If: Next
 
cbxEquipement.RowSource = "Feuil1!b1:b365"
 
 End Sub

regarde déja si ca marche???

Bonjour Laetitia!

Voila ca que j'ai inscris, j'ai tout mis le reste en commentaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
Dim c As Range, K As Control
 For Each K In Controls
If TypeOf K Is MSForms.ComboBox And Left(K.Name, 8) = "cbxHeure" Or Left(K.Name, 8) = "cbxTemps" Then
For Each c In Sheets("Feuil1").Range("A1:A96"): K.AddItem Format(c.Value, "hh:mm"): Next
If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else K.ListIndex = 2
End If: Next
 
cbxEquipement.RowSource = "Feuil1!b1:b365"
 
 End Sub
Et
Private Sub CommandButton1_Click()
frmPostMortem.Show
End Sub

Malheureusement, j'ai encore exactement la même erreur qui pointe désormais sur frmPostMortem.Show :roll:

Je ne comprend pas :(

29/10/2009, 19h43
laetitia

re , je viens de tester is not pb..
dans ton user tu as pas rajoute quelques choses ??? dans activate ect..

dans ton user garde seulement le code de initialize vire tous le reste du moment que tu sauvegarde pas de souci & regarde si toujours erreur

Bonjour!

J'ai fait le test. Dans le code de mon USF j'ai laissé que ceci (j'ai supprimé tout le reste) :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim c As Range, K As Control
 For Each K In Controls
If TypeOf K Is MSForms.ComboBox And Left(K.Name, 8) = "cbxHeure" Or Left(K.Name, 8) = "cbxTemps" Then
For Each c In Sheets("Feuil1").Range("A1:A96"): K.AddItem Format(c.Value, "hh:mm"): Next
If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else K.ListIndex = 2
End If: Next
 
cbxEquipement.RowSource = "Feuil1!b1:b365"
 
 End Sub

ET dans mon bouton de lancement, la macro suivante:`

Code:

1
2
3
Private Sub CommandButton1_Click()
frmPostMortem.Show
End Sub

Et j'obtien encore la même erreur!

re je comprends pas j'arrive pas a reproduire ton erreur j'ai fais des recherches sur le net rien trouve d'evident une personne en relancant seulement son pc plus ce pb..probleme de pile saturee?? PAS SIMPLE
j'ai aussi essaye de l'ecrire comme toi j'ai pas non plus ce pb..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 For Each Ktrl In Me.Controls If TypeOf Ktrl Is MSForms.ComboBox And Left(Ktrl.Name, 8) = "cbxHeure" Then For Each Cel In Sheets("Feuil1").Range("A1:A96") Ktrl.AddItem Format(Cel.Value, "hh:mm") Next Cel Ktrl.ListIndex = 28 End If For Each Ktrl In Me.Controls If TypeOf Ktrl Is MSForms.ComboBox And Left(Ktrl.Name, 8) = "cbxTemps" Then For Each Cel In Sheets("Feuil1").Range("A1:A96") Ktrl.AddItem Format(Cel.Value, "hh:mm") Next Cel Ktrl.ListIndex = 2 End If Next Ktrl
Citation:

Avec le 2e code testé, ça donne l'erreur "Erreur de compilation: Variable de controle For déja utilisée" en pointant sur "For Each Ktrl In". Ce qui en fait est plutot logique.

pour moi c'est justement pas logique une variable dans le meme module tu peus l'utiliser autant de fois que tu veux. bien sur si elle est bien definis au depart !!dans la chronologie de ton code
un object c'est different nothing object ou un tableau erase tableau
on va jusqu' a liberer instruction set par set nothing mais pas utile enfin pour moi.
et si tu remets le meme code qu' origine toujours le meme pb...

Bonjour Laetitia!

Si je met le code:

Code:

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
37
38
39
40
41
42
Private Sub UserForm_Initialize()
Dim derlig As Long
Dim feuilSuivi As Worksheet
Dim HeureDef As String, SourceHeure As String
Dim c As Range, K As Control
 
 
'Définition des valeur de date picker par défaut
MultiPage1.Value = 0
DTPDatePrevue.Value = Now
MultiPage1.Value = 1
DTPDateDebut.Value = Now
MultiPage1.Value = 0
 
' Définition et mise en forme des items combobox Heures et Temps
 
For Each K In Me.Controls
 
    If TypeOf K Is MSForms.ComboBox And Left(K.Name, 8) = "cbxHeure" Then
        For Each c In Sheets("Feuil1").Range("A1:A96")
            K.AddItem Format(c.Value, "hh:mm")
        Next c
        K.ListIndex = 28
     End If
 
Next K
 
SourceHeure = "Feuil1!A1:A96"
 
cbxTempsPrep.RowSource = SourceHeure
cbxTempsDemarrage.RowSource = SourceHeure
cbxTempsCadenassage.RowSource = SourceHeure
cbxTempsDecadenassage.RowSource = SourceHeure
cbxEquipement.RowSource = "Feuil1!b1:b365"
 
 
' Récupération du numéro de PostMortem
Set feuilSuivi = Sheets("Data suivi Arrets")
derlig = feuilSuivi.Cells(65536, 2).End(xlUp).Row + 1
txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value
 
End Sub

Ça fonctionne bien, sauf que je suis obligé de définir mes rowsources pour les cbxTemps et le problème de positionnement du scrollbar revien...

J'ai essayé d'inscrire:

Code:

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
37
38
39
40
41
42
43
Private Sub UserForm_Initialize()
Dim derlig As Long
Dim feuilSuivi As Worksheet
Dim HeureDef As String, SourceHeure As String
Dim c As Range, K As Control
 
 
'Définition des valeur de date picker par défaut
MultiPage1.Value = 0
DTPDatePrevue.Value = Now
MultiPage1.Value = 1
DTPDateDebut.Value = Now
MultiPage1.Value = 0
 
' Définition et mise en forme des items combobox Heures et Temps
 
For Each K In Me.Controls
 
    If TypeOf K Is MSForms.ComboBox And Left(K.Name, 8) = "cbxHeure" Then
        For Each c In Sheets("Feuil1").Range("A1:A96")
            K.AddItem Format(c.Value, "hh:mm")
        Next c
        K.ListIndex = 28
     End If
 
Next K
 
For Each c In Sheets("Feuil1").Range("A1:A96")
            cbxTempsPrep.AddItem Format(c.Value, "hh:mm")
            cbxTempsDemarrage.AddItem Format(c.Value, "hh:mm")
            cbxTempsCadenassage.AddItem Format(c.Value, "hh:mm")
            cbxTempsDecadenassage.AddItem Format(c.Value, "hh:mm")
Next c
 
cbxEquipement.RowSource = "Feuil1!b1:b365"
 
 
' Récupération du numéro de PostMortem
Set feuilSuivi = Sheets("Data suivi Arrets")
derlig = feuilSuivi.Cells(65536, 2).End(xlUp).Row + 1
txbNoPost.Value = feuilSuivi.Cells(derlig, 1).Value
 
End Sub

Mais j'ai encore une fois mon erreur 70 qui revient en pointant encore sur frm.show

:cry: je ne comprend vraiment pas ce qui ce passe....

30/10/2009, 13h52
laetitia

re,Geneviève le forum j'ai regarde ton zip en details

cbxEquipement si tu la mets dans initialise il faut pas la mettre dans proprietees de ta combobox & vis versa de plus avec 2 listes differente d1:d365 dans proprietees & b1:b3365 dans initialize cela peut être une source de conflit

Code:

cbxEquipement.RowSource = "Feuil1!b1:b365"

j'ai fais un exemple en reprenant tous tes contrôles
ca marche!! rajoute ton code a fur est a mesure a chaque fois tu testes
a+ leti

Bonjour et merci laetitia!

Ça semble bien fonctionner, sauf pour 1 controle, le controle cbxTempsCadenassage. Dans ton fichier zip, où tu reprends mon USF, tu as inscrit comme code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Option Explicit Private Sub Userform_Initialize() Dim c As Range, K As Control For Each K In Controls On Error Resume Next 'important ne as enlever If TypeOf K Is MSForms.ComboBox And Left(K.Name, 8) = "cbxHeure" Or Left(K.Name, 8) = "cbxTemps" Then For Each c In Sheets("feuil1").Range("A1:A96"): K.AddItem Format(c.Value, "hh:mm"): Next If Left(K.Name, 8) = "cbxHeure" Then K.ListIndex = 28 Else K.ListIndex = 2 End If: Next cbxEquipement.RowSource = "feuil1!b1:b365" cbxEquipement.ListIndex = 0 End Sub
Pourtant, le controle cbxTempsCadenassage est vide au lancement du USF. Si je transpose dans mon fichier, tous fonctionne bien, mais si j'ouvre le controle cbxTempsCadenassage, sont ListIndex reste toujours à 0 et ne suit pas la donnée sélectionnée comme les autres controles cbxTemps.

Pourtant, avec le code IF Left(K.Name, 8) = "cbxTemps" ça devrait inclure le controle cbxTempsCadenassage non?! Je suis un peu confuse! Tous les autres contoles cbxTemps fonctionnent!

Si tu as une idée, elle sera la bienvenue!
Merci beaucoup pour ton aide!
Geneviève

06/11/2009, 21h50
ucfoutu

Bonjour,

probablement un problème de casse, tout simplement
Essaye voir en modifiant ainsi :

Code:

If TypeOf K Is MSForms.ComboBox And Left(Lcase(K.Name, 8)) = "cbxheure" Or Left(lcase(K.Name, 8)) = "cbxtemps" Then

et idem plus bas :

Code:

If Left(lcase(K.Name, 8)) = "cbxheure" Then K.ListIndex = 28 Else K.ListIndex = 2

(attention : modifs à main levée sans tester ...)

et bien évidemment : s'il s'agit bien dans tous les cas de comboboxes.
06/11/2009, 21h51
Lufia

!!!!!!!! J'ai trouvé et c'étais particulièrement basic!

Il y avait une plage de définie dans la fenêtre des propriétés RowSource de cbxTempsCadenassage ce qui interférait probablement avec le code!
¨
Ça fonctionne finalement vraiment très bien!
Un très très gros merci!
Geneviève :ccool:

Voir 40 message(s) de cette discussion en une page