Discussion :

[TileMaestro]

Bonjour,

Je développe pour une société industrielle un fichier Excel dont le but principal est de collecter des infos sur les arrêts de la ligne de production.

Pour saisir un arrêt:
-Onglet "SAISIE"
-Bouton "Saisir un arrêt"
-Remplir l'Userform



-Ok

ET LÀ, LE PROBLEME SE POSE :

La macro affiche l'onglet concernant la date de saisie de l'arrêt mais la molette (entre autres) est active sur l'onglet "SAISIE".
Pour palier à ça, il suffit de cliquer sur un autre onglet et de revenir sur l'onglet souhaité.
Mes équipes étant réticentes à l'informatique, j'aimerai leurs simplifier la saisie au maximum et donc supprimer ce "bug" ou cette erreur ...

Sauriez vous m'aider ?

Merci beaucoup pour votre lecture.

TileMaestro

[Invité]

Bonjour,

Ajoutez cet événement dans votre Userform :

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
 
Private Sub Dat_Change()
 
Dim I As Integer
 
  For I = 1 To Sheets.Count
      If Sheets(I).Name = Val(Mid(Dat, 1, 2)) Then
         With Sheets(I)
              .Activate
              .Range("E4").Select
         End With
         Exit For
      End If
  Next I
 
End Sub

[TileMaestro]

Bonjour,

Tout d'abord, merci de votre réponse.

J' ai collé le code dans mon Userform, mais malheureusement ça ne supprime pas mon problème ...


Quelles sont vos pistes ? Avez vous une idée d'où ça peut venir ?

Lors de mes recherches sur l'éradication de ce problème, la seule info que j'ai trouvée était que lorsqu'une macro sélectionnait ou activait plusieurs fois une sheet, ce bug apparaissait ... J'ai cherché à remédier à cela mais je n'ai malheureusement pas trouvé de doublon dans mon code.


Merci de votre lecture.

TileMaestro

[Invité]

Qu'obtenez-vous avec ce fichier ?

[TileMaestro]

Exactement la même chose.

[Invité]

Moi j'obtiens ça en choisissant le 4 juillet :
Nb : Je suis sur Excel 10, 32 bits.
Pièce jointe 491060