T
thuan
Guest
Bonjour j'ai un petit pb mais je sais pas trop comment faire pour le résoudre, voila le pb.
Je lancement ma useform et donc elle marche mais lorsque qu'elle apparait je n'arrive pas à me déplacer sur ma feuille excel je voudrai pouvoir me dplacer sur ma feuille autant que je veux et surtout pouvoir afficher ma useforme à un endroit précis.
voici mon code:
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0:
Worksheets(1).Activate
Case 1:
Worksheets(2).Activate
Case 2:
Worksheets(3).Activate
Case 3:
Worksheets(4).Activate
Case 4:
Worksheets(5).Activate
Case 5:
Worksheets(6).Activate
Case 6:
Worksheets(7).Activate
Case 7:
Worksheets(8).Activate
Case 8:
Worksheets(9).Activate
Case 9:
Worksheets(10).Activate
Case 10:
Worksheets(11).Activate
End Select
End Sub
Private Sub CommandButton1_Click()
WSCol.Activate
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim i As Byte
With ComboBox1
For i = 33 To 33
.AddItem Sheets("Moteur Porte Meule").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Moteur Porte Pièce").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Moteur de Taillage").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Broche Porte Meule").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Broche Porte Pièce").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("CourroiePortePièceBlocRenvoi").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Ensemble Bloc Renvoi").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("CourroieBlocRenvoiBlocSerrage").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Bloc Serrage").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Palier Intermédiaire Taillage").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Porte Molette Taillage").Range("C" & i)
Next
End With
End Sub
De plus j'aimerais que la useforme se lance automatiquement et se met à jour lorsque j'ouvre mon dossier excel,
si vous savez aussi comment je peux faire pour supprimer la mise à jour de ce lien qui me demande aux démarrage ca serait cool
MERCI
Je lancement ma useform et donc elle marche mais lorsque qu'elle apparait je n'arrive pas à me déplacer sur ma feuille excel je voudrai pouvoir me dplacer sur ma feuille autant que je veux et surtout pouvoir afficher ma useforme à un endroit précis.
voici mon code:
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0:
Worksheets(1).Activate
Case 1:
Worksheets(2).Activate
Case 2:
Worksheets(3).Activate
Case 3:
Worksheets(4).Activate
Case 4:
Worksheets(5).Activate
Case 5:
Worksheets(6).Activate
Case 6:
Worksheets(7).Activate
Case 7:
Worksheets(8).Activate
Case 8:
Worksheets(9).Activate
Case 9:
Worksheets(10).Activate
Case 10:
Worksheets(11).Activate
End Select
End Sub
Private Sub CommandButton1_Click()
WSCol.Activate
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim i As Byte
With ComboBox1
For i = 33 To 33
.AddItem Sheets("Moteur Porte Meule").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Moteur Porte Pièce").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Moteur de Taillage").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Broche Porte Meule").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Broche Porte Pièce").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("CourroiePortePièceBlocRenvoi").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Ensemble Bloc Renvoi").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("CourroieBlocRenvoiBlocSerrage").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Bloc Serrage").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Palier Intermédiaire Taillage").Range("C" & i)
Next
For i = 33 To 33
.AddItem Sheets("Porte Molette Taillage").Range("C" & i)
Next
End With
End Sub
De plus j'aimerais que la useforme se lance automatiquement et se met à jour lorsque j'ouvre mon dossier excel,
si vous savez aussi comment je peux faire pour supprimer la mise à jour de ce lien qui me demande aux démarrage ca serait cool
MERCI