Code VBA pour revenir sur la première feuille

Version imprimable

13/04/2023, 23h19
drachko

Code VBA pour revenir sur la première feuille

Bonsoir,
J'ai créé une macro qui me permet de valider des contrôles et de transférer les données de ces contrôles dans un second classeur. Je souhaiterais que quand je suis sur le dernier onglet à la validation des données, revenir sur la première feuille. J'ai essayé avec ce code " ThisWorkbook.Worksheets(1).Activat" en essayant aussi de changer le 1 par le nom de la première feuille, mais ça me fait revenir sur la deuxième feuille et non la première. Je précise que dans la colonne de gauche du Visual Basic la première feuille est bien sous "Feuil1". Savez-vous d'où peut venir le problème?
Merci
14/04/2023, 06h00
Philippe Tulliez

Bonjour,
Dans la collection Worksheets, le premier élément est la première feuille à gauche dans le classeur. Dans la fenêtre de l'explorateur de projet de l'éditeur VBA les feuilles sont classées par ordre alphabétique du CodeName de la feuille.
Je vous conseille d'ailleurs d'utiliser le CodeName de la feuille pour l'activer

Pour en savoir plus sur le CodeName, je vous conseille la lecture de VBA Excel - Comment s’affranchir de la modification du nom de la feuille en utilisant son CodeName
14/04/2023, 22h11
drachko

Code VBA pour revenir sur la première feuille

Bonsoir,
Mon problème n'est toujours pas résolu.
j'ai essayé de modifier le code avec les différentes propositions du lien fournis par Philippe, mais rien ne fonctionne.
Je reviens toujours sur la deuxième feuille et non la première.
Je n'arrive pas à trouver la solution.
Merci
14/04/2023, 22h34
Philippe Tulliez

Bonjour,
Il est impossible de vous aider et de vous répondre d'une façon pertinente sans être plus précis et surtout sans publier le code que vous utilisez.
16/04/2023, 10h25
drachko

Bonjour Philippe,
Est-ce que je colle le code directement dans le message?
Merci
16/04/2023, 10h44
anasecu

Bonjour

Citation:

Envoyé par drachko

Est-ce que je colle le code directement dans le message?

Tu le colles dans le message en utilisant la balise # du menu du message
16/04/2023, 11h13
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,

Citation:

Est-ce que je colle le code directement dans le message?

Pour illustrer la réponse d'Anasecu, que je salue au passage.

Pièce jointe 637387

Désolé j'ai mal positionné le code dans la balise, voici le bon message.
c'est le code de la ligne 6.
Merci

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
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
126
127
128
129
130
131
Private Sub CommandButton2_Click()
 
         If ActiveSheet.Name = "DIV-NETT" Then ' Vérifier si l'utilisateur est sur la feuille "DIV-NETT"
 
          ' Revenir à la première feuille du classeur
        ThisWorkbook.Worksheets(1).Activate
 
 
 
 
 ' Supprimer les données du UserForm
 
        ' N° d'of
        frmvalidations.TextBox1.Value = ""
 
        ' Quantité mouvements
        frmvalidations.TextBox2.Value = ""
 
        'Prénom collaborateur
        frmvalidations.ComboBox1.Value = ""
 
        ' N° de boite
        frmvalidations.ComboBox2.Value = ""
 
        ' Date
        frmvalidations.ComboBox3.Value = ""
 
        ' Production
        frmvalidations.ComboBox4.Value = ""
 
 
    Else
 
    End If
 
' Rends invisible et réinitialise les ToogleButtonOK
frmvalidations.ToggleButton1.Visible = False  ' Rends invisible les ToogleButtonOK
frmvalidations.ToggleButton1.Value = False    ' Réinitialise les ToogleButtonOK
frmvalidations.ToggleButton2.Visible = False
frmvalidations.ToggleButton2.Value = False
frmvalidations.ToggleButton3.Visible = False
frmvalidations.ToggleButton3.Value = False
frmvalidations.ToggleButton4.Visible = False
frmvalidations.ToggleButton4.Value = False
frmvalidations.ToggleButton5.Visible = False
frmvalidations.ToggleButton5.Value = False
frmvalidations.ToggleButton6.Visible = False
frmvalidations.ToggleButton6.Value = False
frmvalidations.ToggleButton7.Visible = False
frmvalidations.ToggleButton7.Value = False
frmvalidations.ToggleButton8.Visible = False
frmvalidations.ToggleButton8.Value = False
frmvalidations.ToggleButton9.Visible = False
frmvalidations.ToggleButton9.Value = False
frmvalidations.ToggleButton10.Visible = False
frmvalidations.ToggleButton10.Value = False
 
' Réinitialise les ToogleButton N-OK
frmvalidations.ToggleButton11.Value = False
frmvalidations.ToggleButton12.Value = False
frmvalidations.ToggleButton13.Value = False
frmvalidations.ToggleButton14.Value = False
frmvalidations.ToggleButton15.Value = False
frmvalidations.ToggleButton16.Value = False
frmvalidations.ToggleButton17.Value = False
frmvalidations.ToggleButton18.Value = False
frmvalidations.ToggleButton19.Value = False
frmvalidations.ToggleButton20.Value = False
 
' Réinitialise les ToogleButton R2D2
ToggleButton21.Tag = "" ' Réinitialise la propriété Tag
ToggleButton21.BackColor = RGB(255, 255, 0) ' Réinitialise la couleur du bouton en orange
 
ToggleButton22.Tag = ""
ToggleButton22.BackColor = RGB(255, 255, 0)
 
ToggleButton23.Tag = ""
ToggleButton23.BackColor = RGB(255, 255, 0)
 
ToggleButton24.Tag = ""
ToggleButton24.BackColor = RGB(255, 255, 0)
 
ToggleButton25.Tag = ""
ToggleButton25.BackColor = RGB(255, 255, 0)
 
ToggleButton26.Tag = ""
ToggleButton26.BackColor = RGB(255, 255, 0)
 
ToggleButton27.Tag = ""
ToggleButton27.BackColor = RGB(255, 255, 0)
 
ToggleButton28.Tag = ""
ToggleButton28.BackColor = RGB(255, 255, 0)
 
ToggleButton29.Tag = ""
ToggleButton29.BackColor = RGB(255, 255, 0)
 
ToggleButton30.Tag = ""
ToggleButton30.BackColor = RGB(255, 255, 0)
 
 
    'On réinitialise les ToggleButton N-OK'
    For i = 11 To 20
        Controls("ToggleButton" & i).Value = False
    Next i
 
    'On réinitialise les ToggleButton R2D2'
    For i = 21 To 30
        Controls("ToggleButton" & i).Value = False
    Next i
 
    ' Passe à la feuille suivante en cliquant sur "effacer les saisies" et s'arrête a l'avant dernière feuille
    Dim nextSheetIndex As Integer
 
    ' Obtenir l'indice de la feuille active
    Dim currentSheetIndex As Integer
    currentSheetIndex = ActiveSheet.index
 
    ' Calculer l'indice de la feuille suivante
    nextSheetIndex = currentSheetIndex + 1
 
    ' Vérifier si la feuille suivante est la dernière feuille du classeur
    If nextSheetIndex = Worksheets.count Then
        ' Si oui, activer l'avant-dernière feuille
        Worksheets(nextSheetIndex - 1).Activate
    ElseIf nextSheetIndex < Worksheets.count Then
        ' Si non, activer la feuille suivante
        Worksheets(nextSheetIndex).Activate
    End If
 
End Sub

16/04/2023, 11h46
Philippe Tulliez

Bonjour,
L'activation de la feuille 1 en ligne 6 est conditionnée au fait que la feuille active se nomme "DIV-NETT" (ligne 3 du code publié). Peut-être que votre problème se situe à ce niveau là ?

Utilisez le débogage ou placez un MsgBox pour voir si le code passe bien en ligne 6
16/04/2023, 12h41
drachko

Il n'y a pas de retour sur le VBA pour débogage avec le code de la ligne 6.
Le retour sur une feuille se fait parfaitement, mais pas sur la première sur la deuxième.
Merci
16/04/2023, 13h27
Philippe Tulliez
Bonjour,
Je suis désolé mais je ne comprends rien à vos explications.
Essayez dans un module standard cette simple ligne de code et vous verrez que la feuille la plus à gauche sera activée.
Pour le tester, activez n'importe quelle feuille, sauf la première évidemment, et lancer la procédure
Code:

1 2 3 Sub t() ThisWorkbook.Worksheets(1).Activate End Sub
Attention que nous parlons bien d'une feuille de calcul et pas d'une feuille "graphique" ou d'une feuille "macro" sinon, il faut remplacer Worksheets par Sheets
18/04/2023, 21h18
drachko

Bonsoir,
J'ai essayé dans un module standard et la ligne de code fonctionne. Philippe vous me parliez de "L'activation de la feuille 1 en ligne 6 qui est conditionnée au fait que la feuille active se nomme "DIV-NETT" (ligne 5 du code publié).Peut-être que votre problème se situe à ce niveau là?"
Qu'est-ce que je pourrai faire pour contourner ce problème?
Merci
18/04/2023, 21h21
Philippe Tulliez

Bonjour,

Citation:

Qu'est-ce que je pourrai faire pour contourner ce problème?

Je ne peux pas répondre à cette question sans connaître votre intention.
Je suppose que c'est vous qui avez écrit ces lignes de code donc c'est que c'était votre souhait.