Sélection feuille dans évènement

**benjamin66666** · 31/07/2022, 12h56

Bonjour,

cela fait deux heures que je cherche à sélectionner la feuille deux positions après une feuille déterminée dans une procédure.

J'ai créer un complément xlam.

De ce fait je ne peux pas sélectionner mes feuilles par leur nom (enfin je n'y arrive pas). donc j'utilise sh.next et sh.previous.

Ce code permet d'actualiser les données d'une feuille nommé "client" (une feuille 1 position après la feuille "acceuil")

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
If Sh.Name = "acceuil" Then
 
 
Dim derlign As Integer
derlign = Sh.Previous.Range("A" & Rows.Count).End(xlUp).Row + 100
 
Dim I As Integer
 
For I = 1 To derlign + 2
 
    If Sh.Range("y1").Value = Sh.Previous.Cells(I, 1) Then 'c'est la valeur sur y1 qui va être cherchée dans la colonne A de la feuille précédente
 
        Sh.Next.Range("d7") = Sh.Previous.Cells(I, 2) 'valeur colonne deux avec le même nom que y1 en colonne A 
        Sh.Next.Range("d8") = Sh.Previous.Cells(I, 3)
        Sh.Next.Range("d9") = Sh.Previous.Cells(I, 4)
        Sh.Next.Range("d10") = Sh.Previous.Cells(I, 5)
        Sh.Next.Range("d11") = Sh.Previous.Cells(I, 6)
 
...

je souhaiterais actualiser la feuille "équipement" (deux feuilles après acceuil) avec la feuille source (sh.previous)
j'ai essayé sh.name ("equipement), sh.count(sh+2), sh.next+1... sans succès

je n'arrive pas à viser la feuille (qui se situe deux feuilles après acceuil)

ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For I = 1 To derlign
 
    If Sh.Range("y1").Value = Sh.Previous.Cells(I, 1) Then
 
        Sh.Name("equipement").Range("a2") = "client depuis le " & Sh.Previous.Cells(I, 21)
 
 
        Sh.Name("equipement").Range("e13") = Sh.Previous.Cells(I, 57)
        Sh.Name("equipement").Range("e14") = Sh.Previous.Cells(I, 61)
        Sh.Name("equipement").Range("e15") = Sh.Previous.Cells(I, 16)
        Sh.Name("equipement").Range("e16") = Sh.Previous.Cells(I, 17)

merci pour votre aide,

**deedolith** · 31/07/2022, 17h11

Hello,

Est ce que tu as essayé de passer par la collection Worksheets ?

Code :

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

1
2
3
4
5
Dim Wb As Excel.Workbook
Set Wb = ThisWorkbook
 
Dim Sh As Excel.Worksheet
Set Sh = Wb.Worksheets("nom de ma feuille")

Et si tu as besoin de tester l'existance de la feuille, une petite fonction fera le taff:

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
Public Sub Test()
    Dim Wb As Excel.Workbook
    Set Wb = ThisWorkbook
 
    If (ExistInCollection("nom de ma feuille", Wb.Worksheets)) Then
        '// faire quelque chose
    End If
End Sub
 
 
Public Function ExistInCollection(ByVal Key As String, ByRef Col As Object) As Boolean
    ExistInCollection = ReferenceExistInCollection(Key, Col) Or ValueExistInCollection(Key, Col)
End Function
 
Private Function ReferenceExistInCollection(ByVal Key As String, ByRef Col As Object) As Boolean
On Error GoTo Error
    Dim Data As Variant
    Set Data = Col(Key)
    ReferenceExistInCollection = True
Exit Function
Error:
    ReferenceExistInCollection = False
End Function
 
Private Function ValueExistInCollection(ByVal Key As String, ByRef Col As Object) As Boolean
On Error GoTo Error
    Dim Data As Variant
    Data = Col(Key)
    ValueExistInCollection = True
Exit Function
Error:
    ValueExistInCollection = False
End Function

**benjamin66666** · 01/08/2022, 14h29

salut,

je te remercie beaucoup pour ta réponse,
il ne trouve pas ma feuille même après réalisation de ton code ("l'indice n'appartient pas à la sélection)

dans mon évènement, il est impossible d'atteindre une feuille par son nom car celle-ci est créée après l'ouverture d'un classeur vierge par un module.

je ne peut utiliser que les attributs .next ou .previous devant SH (et ca fonctionne bien)

Mon souci est que je ne parviens pas à chercher l'avant dernière feuille ou la feuille d'après la feuille suivante,

**benjamin66666** · 01/08/2022, 14h40

j'ai trouvé !

avant dernière
sh.previous.previous

feuille après suivante
sh.next.next

**deedolith** · 01/08/2022, 16h07

Je n'avais pas noté que tu travaillais à partir d'un XLAM.
De ce fait, l'écriture Worksheets("xxxxx") n'est pas fiable vu que tu manipules plusieurs classeurs (ça équivaut à ActiveWorkbook.Worksheets("xxxxx")).

Enregistres-tu quelque part des références sur les classeurs ouverts ?
En qualifiant complètement le chemin vers la collection Worksheets, cela devrait fonctionner.

**benjamin66666** · 06/08/2022, 12h29

salut deedolith

je te remercie pour ton aide,

oui, effectivement, j'utilise un fichier xlam,

je me suis débrouillé avec les .NEXT et .PREVIOUS pour désigner mes feuilles à partir d'une feuille spécifique.
cela fonctionne très bien,

en gros, j'actualise trois onglets à partir d'un tableau (situé avant la feuille "acceuil") dés que l'utilisateur active la feuille

Voici mon code

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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
Private Sub appXls_SheetActivate(ByVal Sh As Object)
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
If Sh.Name = "acceuil" Then
 
 
    Dim derlign As Integer
    derlign = Sh.Previous.Range("A" & Rows.Count).End(xlUp).Row + 100
 
    'code client+ca
 
    Sh.Range("d12:d" & derlign).Value = Sh.Previous.Range("a2:a" & derlign).Value
 
    Sh.Range("E12:E" & derlign).Value = Sh.Previous.Range("X2:X" & derlign).Value
 
    'honos
 
    Sh.Range("f12:f" & derlign).Value = Sh.Previous.Range("s2:s" & derlign).Value
 
    'ir
 
    Sh.Range("g12:g" & derlign).Value = Sh.Previous.Range("l2:l" & derlign).Value
 
    'taux horaire
    Sh.Range("h12:h" & derlign).Value = Sh.Previous.Range("by2:by" & derlign).Value
 
    'actualisation feuille client
 
    Dim I As Integer
 
    For I = 1 To derlign + 2
 
        If Sh.Range("y1").Value = Sh.Previous.Cells(I, 1) Then
 
            Sh.Next.Range("d7") = Sh.Previous.Cells(I, 2)
 
            Sh.Next.Range("d8") = Sh.Previous.Cells(I, 3)
 
            Sh.Next.Range("d9") = Sh.Previous.Cells(I, 4)
 
            Sh.Next.Range("d10") = Sh.Previous.Cells(I, 5)
 
            Sh.Next.Range("d11") = Sh.Previous.Cells(I, 6)
 
            Sh.Next.Range("d12") = Sh.Previous.Cells(I, 22)
 
            Sh.Next.Range("d13") = Sh.Previous.Cells(I, 24)
 
            Sh.Next.Range("i7") = Sh.Previous.Cells(I, 7)
 
            Sh.Next.Range("i8") = Sh.Previous.Cells(I, 8)
 
            Sh.Next.Range("i9") = Sh.Previous.Cells(I, 10)
            Sh.Next.Range("i9").NumberFormat = "dd/mm/yyyy"
 
            Sh.Next.Range("i10") = Sh.Previous.Cells(I, 12)
 
            Sh.Next.Range("a2") = "client depuis le " & Sh.Previous.Cells(I, 21)
            Sh.Next.Range("c2") = Sh.Previous.Cells(I, 67)
 
            Sh.Next.Range("f1") = Sh.Previous.Cells(I, 19) & " € "
            Sh.Next.Range("f1").NumberFormat = "0 $"
 
            Sh.Next.Range("i1") = Sh.Previous.Cells(I, 13)
            Sh.Next.Range("i1").NumberFormat = "0"
 
        End If
 
    Next I
End If
 
 'actualisation feuille equipement
For I = 1 To derlign
 
    If Sh.Range("y1").Value = Sh.Previous.Cells(I, 1) Then
 
        Sh.Next.Next.Range("e13") = Sh.Previous.Cells(I, 57)
        Sh.Next.Next.Range("e14") = Sh.Previous.Cells(I, 61)
        Sh.Next.Next.Range("e15") = Sh.Previous.Cells(I, 16)
        Sh.Next.Next.Range("e16") = Sh.Previous.Cells(I, 17)
        Sh.Next.Next.Range("e17") = Sh.Previous.Cells(I, 58)
        Sh.Next.Next.Range("e18") = Sh.Previous.Cells(I, 60)
        Sh.Next.Next.Range("h13") = Sh.Previous.Cells(I, 62)
        Sh.Next.Next.Range("h14") = Sh.Previous.Cells(I, 15)
        Sh.Next.Next.Range("h15") = Sh.Previous.Cells(I, 54)
        Sh.Next.Next.Range("h16") = Sh.Previous.Cells(I, 55)
        Sh.Next.Next.Range("h17") = Sh.Previous.Cells(I, 59)
        Sh.Next.Next.Range("k15") = Sh.Previous.Cells(I, 18)
        Sh.Next.Next.Range("k16") = Sh.Previous.Cells(I, 56)
        Sh.Next.Next.Range("k14") = Sh.Previous.Cells(I, 65)
        Sh.Next.Next.Range("k13") = Sh.Previous.Cells(I, 66)
        Sh.Next.Next.Range("f1") = Sh.Previous.Cells(I, 19) & " € "
        Sh.Next.Next.Range("f1").NumberFormat = "0 $"
        Sh.Next.Next.Range("h18") = Sh.Previous.Cells(I, 63)
        Sh.Next.Next.Range("h19") = Sh.Previous.Cells(I, 64)
 
        Sh.Next.Next.Range("a2") = "client depuis le " & Sh.Previous.Cells(I, 21)
 
    End If
 
Next I
 
 
'actualisation feuille mission
For I = 1 To derlign
 
    If Sh.Range("y1").Value = Sh.Previous.Cells(I, 1) Then
 
        Sh.Next.Next.Next.Range("a2") = "client depuis le " & Sh.Previous.Cells(I, 21)
 
        Sh.Next.Next.Next.Range("f1") = Sh.Previous.Cells(I, 19)
        Sh.Next.Next.Next.Range("f1") = Sh.Previous.Cells(I, 19) & " € "
        Sh.Next.Next.Next.Range("f1").NumberFormat = "0 $"
 
        Sh.Next.Next.Next.Range("c12:h1000").ClearContents
 
 
        'actualisation depuis feuille formule
 
        Sh.Next.Next.Next.Range("c12") = Sh.Previous.Previous.Cells(I, 2)
        Sh.Next.Next.Next.Range("c13") = Sh.Previous.Previous.Cells(I, 3)
        Sh.Next.Next.Next.Range("c14") = Sh.Previous.Previous.Cells(I, 4)
        Sh.Next.Next.Next.Range("c16") = Sh.Previous.Previous.Cells(I, 5)
        Sh.Next.Next.Next.Range("c15") = Sh.Previous.Previous.Cells(I, 6)
        Sh.Next.Next.Next.Range("c17") = Sh.Previous.Previous.Cells(I, 7)
        Sh.Next.Next.Next.Range("c18") = Sh.Previous.Previous.Cells(I, 8)
        Sh.Next.Next.Next.Range("c19") = Sh.Previous.Previous.Cells(I, 9)
        Sh.Next.Next.Next.Range("c20") = Sh.Previous.Previous.Cells(I, 10)
        Sh.Next.Next.Next.Range("c21") = Sh.Previous.Previous.Cells(I, 11)
        Sh.Next.Next.Next.Range("c22") = Sh.Previous.Previous.Cells(I, 12)
        Sh.Next.Next.Next.Range("c23") = Sh.Previous.Previous.Cells(I, 13)
        Sh.Next.Next.Next.Range("c24") = Sh.Previous.Previous.Cells(I, 14)
        Sh.Next.Next.Next.Range("c25") = Sh.Previous.Previous.Cells(I, 15)
        Sh.Next.Next.Next.Range("c26") = Sh.Previous.Previous.Cells(I, 16)
        Sh.Next.Next.Next.Range("c27") = Sh.Previous.Previous.Cells(I, 17)
 
        Sh.Next.Next.Next.Range("c28") = Sh.Previous.Previous.Cells(I, 18)
        Sh.Next.Next.Next.Range("c29") = Sh.Previous.Previous.Cells(I, 19)
 
 
        Sh.Next.Next.Next.Range("c30") = Sh.Previous.Previous.Cells(I, 20)
        Sh.Next.Next.Next.Range("c31") = Sh.Previous.Previous.Cells(I, 21)
        Sh.Next.Next.Next.Range("c32") = Sh.Previous.Previous.Cells(I, 22)
        Sh.Next.Next.Next.Range("c33") = Sh.Previous.Previous.Cells(I, 23)
        Sh.Next.Next.Next.Range("c34") = Sh.Previous.Previous.Cells(I, 24)
        Sh.Next.Next.Next.Range("c35") = Sh.Previous.Previous.Cells(I, 25)
        Sh.Next.Next.Next.Range("c36") = Sh.Previous.Previous.Cells(I, 26)
        Sh.Next.Next.Next.Range("c37") = Sh.Previous.Previous.Cells(I, 27)
        Sh.Next.Next.Next.Range("c38") = Sh.Previous.Previous.Cells(I, 28)
        Sh.Next.Next.Next.Range("c39") = Sh.Previous.Previous.Cells(I, 29)
        Sh.Next.Next.Next.Range("c40") = Sh.Previous.Previous.Cells(I, 30)
        Sh.Next.Next.Next.Range("c41") = Sh.Previous.Previous.Cells(I, 31)
 
 
        Sh.Next.Next.Next.Range("c42") = Sh.Previous.Previous.Cells(I, 32)
        Sh.Next.Next.Next.Range("c43") = Sh.Previous.Previous.Cells(I, 33)
        Sh.Next.Next.Next.Range("c44") = Sh.Previous.Previous.Cells(I, 34)
 
 
        Sh.Next.Next.Next.Range("c45") = Sh.Previous.Previous.Cells(I, 35)
        Sh.Next.Next.Next.Range("c46") = Sh.Previous.Previous.Cells(I, 36)
        Sh.Next.Next.Next.Range("c47") = Sh.Previous.Previous.Cells(I, 37)
 
 
        Sh.Next.Next.Next.Range("c48") = Sh.Previous.Previous.Cells(I, 38)
        Sh.Next.Next.Next.Range("c49") = Sh.Previous.Previous.Cells(I, 39)
        Sh.Next.Next.Next.Range("c50") = Sh.Previous.Previous.Cells(I, 40)
        Sh.Next.Next.Next.Range("c51") = Sh.Previous.Previous.Cells(I, 41)
 
 
        Sh.Next.Next.Next.Range("c52") = Sh.Previous.Previous.Cells(I, 42)
        Sh.Next.Next.Next.Range("c53") = Sh.Previous.Previous.Cells(I, 43)
 
 
        Sh.Next.Next.Next.Range("c54") = Sh.Previous.Previous.Cells(I, 44)
 
 
        Sh.Next.Next.Next.Range("c55") = Sh.Previous.Previous.Cells(I, 45)
 
 
        Sh.Next.Next.Next.Range("c56") = Sh.Previous.Previous.Cells(I, 46)
 
 
         Sh.Next.Next.Next.Range("$C$11:$h$1000").AutoFilter Field:=1, Criteria1:="<>"
 
 
    End If
 
Next I
 
        Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
 
End Sub

Sélection feuille dans évènement [Toutes versions]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager