Discussion :

[tony76]

bonsoir à tous,

Mon problème "le focus ne peux être déplacé sur le contrôle............."

je précise que se fichier et ancien et marche très bien sous XL 2000 mais j'ai 2010 et la sa cloche

Code :

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

TextBox1.SetFocus

merci pour le coup de main car je cherche depuis un moment

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
Private Sub TabStrip1_click(ByVal Index As Long)
Dim typ As String
Select Case Index
Case 0 'recherche
    Label106.Visible = False ' affichage de l'immat en cour
    TextBox1.Visible = True 'boite de saisie de l'immat à rechercher
    TabStrip1.Value = 0 'bascule sur le tabstrip qui vas bien
    Cancel = True
    TextBox1.Enabled = True
    TextBox1.SetFocus '<---------- ligne avec le problème !
    TextBox1.SelStart = 0
    TextBox1.SelLength = 10
    Frame1.TabStop = False
    masquage
....................................

[tony76]

personne pour me donnée un coup pouce

ce code marche parfaitement sous ecxel 2000 mais pas sous 2010, toujours se problème de setfocus d'après VBE

[clementmarcotte]

personne pour me donnée un coup pouce

Paie moi Excel 2013.

D'une manière plus générale, personne n'est obligé de savoir la réponse et personne n'est obligé de répondre.

Question :

Et puis, comment peut-on tester un code incomplet chez-nous ?

[tony76]

merci pour ta réponse, oui je sais personne n'est obliger de me répondre

et pour le code je le joint:

comment mon application fonctionne

2 fichiers Tdmi.xls et TDMI_V3.120.14

il faut cliquer sur TDMI_V3.120.14 le deuxième se lance automatiquement (base de donnée)

1re USF cliquer sur démarrer
sur l'USF suivante cliquer sur l'onglet Visualisation

puis arriver dans Visualisation

1. cliquer sur " Edition des visites
2. puis inserré une date ex: 30/05/14
3. puis retard de visite
4. puis tous
5. puis tous
6. et encore une fois tous
7. puis Visualiser puis OK
8. sur la nouvelle fenêtre " APPUYER SUR AFFICHAGE"

APPUYER SUR AFFICHAGE

il faut appuyer sur la touche R du clavier et débogage
qui me donne erreur setfocus.................

cette onglet devrais m'afficher l'onglet visite du classeur Tdmi.xls

PS: pour Excel 2013 erreur de ma part mais 2010 toute mes excuses

[AlainTech]

Bonjour,

Fichier avec mot de passe sur le code...

Tu ne risques pas d'avoir beaucoup d'aide.

[tony76]

merci de vous intéresser a mon problème

mot de passe 25rga en minuscules sans espace

[casefayere]

Bonjour,
je n'ai pas ouvert ton fichier, peut-être ajouter la ligne

Code :

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

TextBox1.Locked = False

avant le setfocus au cas où cette propriété était à True

[tony76]

Merci casefayere pour cette ligne de code

Code :

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

TextBox1.Locked = False

mais malheureusement cela ne fonctionne pas peut-être pourrais tu te faire
une idée plus précise en testant mon fichier ?
j'ai mis le descriptif détaillé de son fonctionnement et quand l'erreur ce produit

[casefayere]

Bonjour,,
j'ai regardé ton fichier :

1 - c'est une usine à gaz
2 - pas besoin de mot de passe chez moi (étonnant, non !)
3- en suivant tes directives, je me retrouve à la fin sur l'onglet "affichage" du Multipage mais sur le label de l'onglet "visualisation" => "appuyer sur affichage" et je reste bloqué à ce niveau sans message d'erreur.

trop galère pour analyser plus loin (et manque de temps), je te souhaite un bon courage et espère que quelqu'un te viendra en aide

[tony76]

merci d'avoir testé mon application, une fois arrivé sur " APPUYER SUR AFFICHAGE " il faut appuyer sur la touche " r " du clavier et tu
arrive là ou le setfocus bloque

est pour l'usine à gaz, oui mais il y a énormément de fonctions dans l'application

encore merci pour ton coup de pouce

[casefayere]

Imagines-toi qu'il est difficile dans un USF multipage comme celui-là d'aller retrouver ton "TextBox1" afin de voir s'il existe sur la bonne page, à toi de controler s'il est vraiment présent sur cette page, tu as tellement de TextBox qu'une erreur est toujours possible

[tony76]

oui je me doute, mais le hic, c'est que l'application fonctionne parfaitement sans aucun souci de TextBox sur Excel 2000

et c'est là que je bloque.

Sous Excel 2000 impeccable tout marche (vraiment tout)
et sous 2010 cette fameuse TextBox1.setfocus qui cloche et je ne vois vraiment pas de quoi cela peut venir

Encore merci, pour ta participation

[casefayere]

Bonsoir,

pour étudier ton code, il faut avoir une tête archi claire, alors je fouine, je vois plein de "Select" qui ne servent à rien, et notamment je suis tombé sur cette partie qui me laisse perplexe

Code :

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

1
2
3
4
5
6
Private Sub CommandButton26_Click(
.....
......
.....
UserForm3.MultiPage1.Pages(4).Enabled = False
UserForm3.MultiPage1.Pages(4).Enabled = True

j'ai comme l'impression que tu n'ouvres pas le bon "Multipage", mais, allons savoir sinon cette partie

Code :

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

UserForm3.MultiPage1.Pages(4).Enabled = False

ne sert à rien

[tony76]

Merci pour tes explications

pour ce qui est d'avoir une tête archi claire, je suis d'accord il faudrait même de têtes

pour ce qui et de la page choisi, c'est la bonne page

nous somme bien sur

Code :

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

1
2
 
UserForm3.MultiPage1.Pages(4)

est ce que devrais m'afficher cette page devrais être ceci (avec plein de données à l’intérieur bien sur)



pour ce que tu me conseil je les enlevé mais cela ne change rien

pour le Select oui est il y a surement énormément d'amélioration a faire et ou d'optimisation
je me doute que corriger un code qui au départ n'est pas de soit se n'est pas évident voir même très très ..... compliquer
surtout quand celui-ci à plus de 8000 lignes de code au total

mais je ne comprend pas pourquoi ce code marche très bien sous 2000 et pas 2010
car il n'y a que cette page qui coince, cette page qui devrais m'afficher l’aperçu avant impression



comme tu ma dis que tu ne voyer pas le message d'erreur voici comment moi je l’obtiens
a l'ouverture du fichier on arrive ici il faut cliquer sur Visualisation (qui nous amène sur une autre usf)



nous arrivons sur l'autre usf " Visualisation "
je rentre les infos suivante Édition des visites (ex: 30/06/14) --> Retard de visite --> tous --> tous --> tous
est enfin Visualiser (bouton)

nous arrivons ensuite sur cette page est en appuyant sur la touche "r" du clavier on obtiens la fenêtre d'erreur ci-dessous




est quand on clique sur Débogage on arrive ici

[tony76]

bonjour à tous,

je revient vers vous car malheureusement je n'est pas trouvé le problème, mais je sais maintenant que cela ne vient pas du SetFocus.
j’espère que vous pourriez m'aider car je bloque depuis un sacret bout de temps


voici la page d’où je commence Userform3




je clique sur Visualisé (page 6) qui m'envoie sur une autre UserForm (UserForm6) ci-dessous est j'arrive ici
je rentre les infos suivante Édition des visites (ex: 12/12/15) --> Retard de visite --> tous --> tous --> tous
est enfin Visualiser (bouton)

une fois fait j’obtiens ceci



une fois que je clique sur le bouton cela devrais me renvoyer vers l'UserForm3 page 4 ci-dessous avec les connes rempli




mais voilà j'arrive bien sur la page 4 de l'UserForm 3 mais avec le contenu de la page 6 et là ?????
je pense que le code du bouton y et pour quelque chose mais je ne vois pas

code du bouton de l'UserForm6

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
 
Private Sub CommandButton26_Click() 'boutton editer du menu edition
'filtrage
Dim compteur
 
compteur = 0 ' Initialise la variable.
 
 
    Worksheets("ted2").Activate
    Cells.Select
    Selection.Delete Shift:=xlUp
Select Case potentiel_visite
    Case 32
        Worksheets("Archivage_Indisponibles").Activate
        While Cells(compteur + 1, MAT) <> ""
            compteur = compteur + 1 'comptage du nombre de ligne
        Wend
        compteur = compteur + 1
        Rows("1:1").Select
    Case 8 'si archivage des indispo
        Worksheets("Archivage_Potentiels").Activate
        While Cells(compteur + 1, MAT) <> ""
            compteur = compteur + 1 'comptage du nombre de ligne
        Wend
        compteur = compteur + 1
        Rows("1:1").Select
    Case Else
        Worksheets("ted").Activate
        While Cells(compteur + 4, MAT) <> ""
            compteur = compteur + 1 'comptage du nombre de ligne
        Wend
        compteur = compteur + 4 + 1
        Rows("3:3").Select
End Select
 
    Selection.AutoFilter
    If filtre = "TOUS" Then
        Selection.AutoFilter Field:=1
    Else
        Selection.AutoFilter Field:=champ2, Criteria1:=filtre
    End If
    If filtre2 = "TOUS" Then
        Selection.AutoFilter Field:=champ
    Else
        Selection.AutoFilter Field:=champ, Criteria1:=filtre2
    End If
    If potentiel_visite = 4 Then Selection.AutoFilter Field:=champ3, Criteria1:="<>" 'si edition des indispo
 
Select Case potentiel_visite
    Case 32 'si archivage des indispos
        Rows("2:" & compteur).Select
        Selection.Copy
        Sheets("ted2").Select
        Range("A1").Select
        ActiveSheet.Paste
        Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("G2") _
        , Order2:=xlAscending, Key3:=Range("BR2"), Order3:=xlDescending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
    Case 8 'si archivage des potentiels
        Rows("2:" & compteur).Select
        Selection.Copy
        Sheets("ted2").Select
        Range("A1").Select
        ActiveSheet.Paste
        Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("G2") _
        , Order2:=xlAscending, Key3:=Range("BR2"), Order3:=xlDescending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
    Case Else
        Rows("3:" & compteur).Select
        Selection.Copy
        Sheets("ted2").Select
        Range("A1").Select
        ActiveSheet.Paste
        'Trie
        Rows("1:" & compteur).Select
        Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
            False, Orientation:=xlTopToBottom
End Select
 
'remise à zero
champ = 1
filtre2 = filtre
 
Select Case potentiel_visite
    Case 32 'si archivage des indispo
        Worksheets("Archivage_Indisponibles").Activate
 
    Case 8 'si archivage des potentiels
        Worksheets("Archivage_Potentiels").Activate
    Case Else
        Worksheets("ted").Activate
End Select
 
Application.CutCopyMode = False ' desactivation du filtrage
Selection.AutoFilter
 
Worksheets("ted").Activate
 
Select Case potentiel_visite
    Case 1 'edition des potentiel
        UserForm3.edition_potentiels (potentiel_visite)
    Case 2 'édition des visite
        If visite <> 0 Then
          Call UserForm3.edition_prochaine_visite(potentiel_visite, visite, nom_visite)
        Else
            Call UserForm3.editions_prochaines_visites(potentiel_visite, visite, nom_visite)
        End If
    Case 4
          UserForm3.edition_potentiels (potentiel_visite)
    Case 8 'si archivage des potentiels
        UserForm3.edition_potentiels (potentiel_visite)
    Case 16 'édition liste du mat
        UserForm3.edition_list_mat (potentiel_visite)
    Case 32
        UserForm3.edition_potentiels (potentiel_visite)
    Case Else
End Select
 
CommandButton27_Click
UserForm3.MultiPage1.Pages(4).Enabled = False
UserForm3.MultiPage1.Pages(4).Enabled = True
Unload UserForm6
End Sub

Désoler pour la longueur du message mais je voulais être le plus claire possible merci à tous pour l'aide que je pourrais avoir
(grosse prime pour le vainqueur)

[clementmarcotte]

bonjour à tous,



mais voilà j'arrive bien sur la page 4 de l'UserForm 3 mais avec le contenu de la page 6 et là ?????
je pense que le code du bouton y et pour quelque chose mais je ne vois pas



Désoler pour la longueur du message mais je voulais être le plus claire possible merci à tous pour l'aide que je pourrais avoir
(grosse prime pour le vainqueur)

Qu'est-ce qu'il y a dans le code que tu montres qui fait référence à un quelconque userform ?

Comment fais-tu pour accéder à tes pages : le nom que tu as donné à ta page, ou leur indice ?

Parce que si tu utilises les indices, tu es absolument à la bonne place. Les indices donnent l'ordre des pages et commencent à zéro. Donc, ton 4 veut dire la cinquième page en partant de la gauche.

[HopPopPop]

Bonsoir à tous,

Je n'ai pas tout suivi, c'est dur ...

A priori, sur le TextBox1 qui a la propriété Visible à False, ne faudrait-il pas au préalable mettre l'instruction

Code :

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

TextBox.Visible = True

avant celle-là

Code :

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

TextBox1.SetFocus

[tony76]

merci pour ta réponse

je me disais que expliquer sa c'est pas facile si tu veux te faire une idée plus précise et si tu à un peut de temps
pour lancé mon application tu pourrais mieux comprendre en début du pot en téléchargement TDMI_V3.120.14

pour ce qui et du code il vient de l'UserForm 6 du bouton Visualisé

le nom que tu as donné à ta page, ou leur indice ? se sont les noms des pages, les index son effectivement de 0 à 8 (j'édite l'image)



merci HopPopPop mais le TextBox n'est pas en cause j'ai ajouté a la suite car le fichier se trouve dans se pot

je pense que j'aurais du créer un autre pot !!!


PS: le souci avec le textbox s'est que j'ai des raccourci clavier dans la page 1 le "r" pour recherche voila pourquoi j’arrive sur le SetFocus qui na rien a voir

pour un test Tdmi.zip