Discussion :

[jean30]

Bonjour les experts du Vba
J'ai une macro qui reporte des données sur la "Feuil4" dans les colonnes A, B, C, D, E,
Pas de souci de ce côté là
Ce que je voudrais c'est limiter les enregistrements à 100 lignes (soit jusqu'à la ligne 101) puis
Recommencer les enregistrements à partir de la ligne 2 en écrasant les anciens au fur et à mesure
Mais là, je sèche lamentablement
En comptant sur vos connaissances et en vous remerciant

[Marc-L]

Bonjour, la logique veut quand t'es tout en bas alors tu remontes tout en haut !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Arkham46]

Bonjour,

Je ne vous comprends ni l'un ni l'autre...

[unparia]

Bonjour
Marc-L, que je salue, appelle ton attention sur le fait qu'il te suffit de contrôler quelle ligne x est celle de l'enregistrement en cours (et sans voir ton code, on ne sait pas comment elle est déterminée) et de donner à la variable x la valeur 2 lorsque cette variable a atteint la valeur 100.

[jean30]

Bonsoir
Je vous met le code en vous remerciant

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
Sub LogModif(ByVal SheetName As String, ByVal Target As Range)
'Inscription en Log des modifications dans la feuille BaseTemp
 
    Static DerniereLigUtil As Long
    Dim LogNbLig As Long
    Dim i, j, k As Long
    Dim NewNbLig As Long
    Dim D As Date
    Dim Tadd() As String
    Dim S, Nom, Donnée As String
    Dim Valeur As Variant
 
    'MsgBox "SheetName = " & SheetName & " Target = " & Target.Address
 
    'Pas d'utilisateur identifié (sécurité)
    If Len(UserLogged) = 0 Then
        Application.Undo
        MsgBox "Pas d'utilisateur connecté, identifier un utilisateur sur la page <" & LogonNomFeuille & ">"
        Exit Sub
    End If
 
    'Feuille Base pas chargée (sécurité)
    If BaseNbLig = 0 Then
        Application.Undo
        MsgBox "Feuille <" & BaseNomFeuille & "> rechargée pour l'utilisateur <" & UserLogged & ">"
        Call AfficherColonnesBase
        Exit Sub
    End If
 
    Tadd() = Split(Replace(Target.Address, ":", "$"), "$")
    '$98:$99    action sur lignes 98 à 99       -> Tadd(0) = "" / Tadd(1) = "98" / Tadd(2) = "" / Tadd(3) = "99"
    '$E:$F      action sur colonnes E à F       -> Tadd(0) = "" / Tadd(1) = "E" / Tadd(2) = "" / Tadd(3) = "F"
    '$B$5:$D$7  action sur un range de cellules -> Tadd(0) = "" / Tadd(1) = "B" / Tadd(2) = "5" / Tadd(3) = "" / Tadd(4) = "D" / Tadd(5) = "7"
    '$B$5       action sur cellule unique       -> Tadd(0) = "" / Tadd(1) = "B" / Tadd(2) = "5"
 
    'Interdire les insertions ou suppressions de colonnes
    If InStr(1, Target.Address, ":") Then
        'Cas d'une insertion / suppression de colonne(s)
        If UBound(Tadd) = 3 Then
            If (Not IsNumeric(Tadd(1))) And (Not IsNumeric(Tadd(3))) Then
                If UserLogged <> AdminUser Then
                    'Insertion ou suppression de colonne(s) dans de la zone de données
                    MsgBox "L'insertion ou la suppression de colonne n'est pas autorisée"
                    Application.Undo
                    Exit Sub
                End If
            End If
        End If
 
        'Nouveau nombre de lignes de données de la feuille Base
        NewNbLig = Sheets(SheetName).Cells(Rows.Count, 1).End(xlUp).Row
 
        'MsgBox "UBound(Tadd) = " & UBound(Tadd) & " Tadd(1) = " & Tadd(1) & " Tadd(3) = " & Tadd(3) & " NewNbLig = " & NewNbLig & " BaseNbLig = " & BaseNbLig
 
        'Cas d'une insertion / suppression de ligne(s)
        If UBound(Tadd) = 3 Then
            If IsNumeric(Tadd(1)) And IsNumeric(Tadd(3)) Then
                'Insertion / suppression hors de la zone de données ou couper / coller dans la zone de données
                If NewNbLig = BaseNbLig Then
                    'Insertion ou Suppression de ligne(s) hors zone de données
                    If Tadd(1) > BaseNbLig Then Exit Sub
                    '---------------------------------------------------
                    'Couper / Coller de ligne(s) dans la zone de données
                    'Ne traite pas correctement les Couper / Coller à
                    'cheval sur zone de données et hors zone de données
                    '---------------------------------------------------
                    'Une seule ligne Couper / Coller
                    If Tadd(1) = Tadd(3) Then
                        S = "$" & BaseColNom & "$" & Tadd(1): Nom = Sheets(SheetName).Range(S).Value
                        S = "$" & BaseColPrénom & "$" & Tadd(1): Nom = Nom & " " & Sheets(SheetName).Range(S).Value
                        If Len(Trim(Nom)) = 0 Then Nom = "Nouveau à saisir" 'Normalement non !
                    Else
                        Nom = "Multiples"
                    End If
                    Donnée = Target.Address & " / " & CStr(BaseNbLig)
                    Valeur = "Couper / Coller"
                End If
                '------------------------------------------------
                'Insertion de ligne(s) dans de la zone de données
                '------------------------------------------------
                If NewNbLig > BaseNbLig Then
                    'Une seule ligne insérée
                    If (NewNbLig - BaseNbLig) = 1 Then
                        S = "$" & BaseColNom & "$" & Tadd(1): Nom = Sheets(SheetName).Range(S).Value
                        S = "$" & BaseColPrénom & "$" & Tadd(1): Nom = Nom & " " & Sheets(SheetName).Range(S).Value
                        If Len(Trim(Nom)) = 0 Then Nom = "Nouveau à saisir"
                    Else
                        Nom = "Multiples"
                    End If
                    Donnée = Target.Address & " / " & CStr(BaseNbLig)
                    Valeur = "Insertion"
                End If
                '--------------------------------------------------
                'Suppression de ligne(s) dans de la zone de données (et peut-être au-delà)
                '--------------------------------------------------
                If NewNbLig < BaseNbLig Then
                    'Une seule ligne supprimée
                    If (BaseNbLig - NewNbLig) = 1 Then
                        Nom = BaseNomPrénomSélection
                    Else
                        Nom = "Multiples"
                    End If
                    Donnée = Target.Address & " / " & CStr(BaseNbLig)
                    Valeur = "Suppression"
                End If
            End If
 
            'Ajuster le nombre de lignes
            BaseNbLig = NewNbLig
        End If
 
        'Cas d'un range de cellules
        If UBound(Tadd) = 5 Then
            'Tout sur la même ligne
            If Tadd(2) = Tadd(5) Then
                'S = "$" & BaseColNom & "$" & Tadd(2): Nom = Sheets(SheetName).Range(S).Value
                'S = "$" & BaseColPrénom & "$" & Tadd(2): Nom = Nom & " " & Sheets(SheetName).Range(S).Value
                Nom = BaseNomPrénomSélection
            Else
                Nom = "Multiples"
            End If
            Donnée = Target.Address
            If VarType(Target.Value) = VarType8204 Then
                Valeur = "Multiples"
            ElseIf Len(Target.Value) = 0 Then
                Valeur = "Vide"
            Else
                Valeur = Target.Value
            End If
        End If
    Else
        'Case d'une cellule unique
        'S = "$" & BaseColNom & "$" & Tadd(2): Nom = Sheets(SheetName).Range(S).Value
        'S = "$" & BaseColPrénom & "$" & Tadd(2): Nom = Nom & " " & Sheets(SheetName).Range(S).Value
        Nom = BaseNomPrénomSélection
        S = "$" & Tadd(1) & "$" & "1"
        If Len(Sheets(SheetName).Range(S).Value) Then Donnée = Sheets(SheetName).Range(S).Value Else Donnée = Target.Address
        If Len(Target.Value) = 0 Then Valeur = "Vide" Else Valeur = Target.Value
    End If
 
    'MsgBox Target.Address & " " & Nom & " " & Donnée & " " & Valeur
 
    'Nombre de lignes présentes en feuille Log
    LogNbLig = Sheets(LogNomFeuille).Range(LogColDateHeure & Rows.Count).End(xlUp).Row
 
    'Si n° de dernière ligne utilisée connu, on l'utilise
    If DerniereLigUtil > 0 Then
        'Si vidage manuel de la log en cours d'opérations alors il faut corriger
        If LogNbLig < DerniereLigUtil Then DerniereLigUtil = LogNbLig
        k = DerniereLigUtil + 1
    Else
        'Si pas le max atteint on prend la ligne suivante
        If LogNbLig < LogNbLigTitre + LogNbMax Then
            k = LogNbLig + 1
        'Sinon il faut rechercher le time stamp le plus ancien et utiliser la ligne correspondante
        Else
            D = "31/12/2050"
            For i = LogNbLigTitre + 1 To LogNbLigTitre + LogNbMax
                If Sheets(LogNomFeuille).Range(LogColDateHeure & i).Value < D Then
                    D = Sheets(LogNomFeuille).Range(LogColDateHeure & i).Value
                    k = i
                End If
            Next i
        End If
    End If
 
    'On boucle quand le nombre max a été atteint
    If k > LogNbLigTitre + LogNbMax Then k = LogNbLigTitre + 1
    DerniereLigUtil = k
 
    Sheets(LogNomFeuille).Range(LogColDateHeure & k).Value = Now
    Sheets(LogNomFeuille).Range(LogColDateHeure & k).NumberFormat = "dd/mm/yyyy hh:mm:ss"
    Sheets(LogNomFeuille).Range(LogColUtilisateur & k).Value = UserLogged
    Sheets(LogNomFeuille).Range(LogColNom & k).Value = Nom
    Sheets(LogNomFeuille).Range(LogColTitre & k).Value = Donnée
    Sheets(LogNomFeuille).Range(LogColValeur & k).Value = Valeur
End Sub

[Marc-L]

Je ne vous comprends ni l'un ni l'autre...

Ma réponse étant au niveau de la présentation initiale …
Evidemment si cette dernière eut été au niveau du requis des règles de ce forum, elle aurait été tout autre !
Etonnnant alors ton incompréhension …

Et pourtant :

Bonjour
Marc-L, que je salue, appelle ton attention sur le fait qu'il te suffit de contrôler quelle ligne x est celle de l'enregistrement en cours (et sans voir ton code, on ne sait pas comment elle est déterminée) et de donner à la variable x la valeur 2 lorsque cette variable a atteint la valeur 100.

Salut Jacques !

Là on voit le fin connaisseur d'Excel et des usages de ce forum …

J'ai une macro qui reporte des données sur la "Feuil4" dans les colonnes A, B, C, D, E,
Pas de souci de ce côté là

Je vous met le code en vous remerciant

Dans ton (?) code, dans quelle ligne les données sont reportées, comment ?
Car pour écrire des données dans une feuille de calculs,
il faut bien indiquer une adresse donc un numéro de ligne est de facto inclu.
Et c'est ce numéro de ligne que tu dois contrôler …

[jean30]

Bonjour à tous
Ces codes ne sont pas de moi
Je vous met l'ensemble des codes du module

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
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
Option Explicit
 
'--------------------------------------------------------------------------------------
'Appelé par les routines pour vérifier l'autorisation d'une feuille pour un utilisateur
'--------------------------------------------------------------------------------------
Function FeuilleAutorise(ByVal NomFeuille As String, ByVal Warn As Boolean) As Boolean
'Test si la feuille est autorisée en affichage
    Dim i As Integer
 
    'Test de validité de contexte des variables publiques (après plantage ou arrêt ou test)
    If Not (Not TabFeuillesAutorise) Then
    Else
        MsgBox "Fonction FeuilleAutorise: contexte non établi, reconnecter l'utilisateur"
        Exit Function
    End If
 
    For i = 1 To UBound(TabFeuillesAutorise)
        If TabFeuillesAutorise(i) = NomFeuille Then Exit For
    Next i
 
    If i > UBound(TabFeuillesAutorise) Then
        FeuilleAutorise = False
        If Warn Then MsgBox "Feuille <" & NomFeuille & "> non autorisée pour l'utilisateur <" & UserLogged & ">"
    Else
        FeuilleAutorise = True
    End If
 
End Function
 
'------------------------------------------------
'Feuille BaseTemp / Évènements Worksheet_Change()
'------------------------------------------------
 
Sub LogModif(ByVal SheetName As String, ByVal Target As Range)
'Inscription en Log des modifications dans la feuille BaseTemp
 
    Static DerniereLigUtil As Long
    Dim LogNbLig As Long
    Dim i, j, k As Long
    Dim NewNbLig As Long
    Dim D As Date
    Dim Tadd() As String
    Dim S, Nom, Donnée As String
    Dim Valeur As Variant
 
    'MsgBox "SheetName = " & SheetName & " Target = " & Target.Address
 
    'Pas d'utilisateur identifié (sécurité)
    If Len(UserLogged) = 0 Then
        Application.Undo
        MsgBox "Pas d'utilisateur connecté, identifier un utilisateur sur la page <" & LogonNomFeuille & ">"
        Exit Sub
    End If
 
    'Feuille Base pas chargée (sécurité)
    If BaseNbLig = 0 Then
        Application.Undo
        MsgBox "Feuille <" & BaseNomFeuille & "> rechargée pour l'utilisateur <" & UserLogged & ">"
        Call AfficherColonnesBase
        Exit Sub
    End If
 
    Tadd() = Split(Replace(Target.Address, ":", "$"), "$")
    '$98:$99    action sur lignes 98 à 99       -> Tadd(0) = "" / Tadd(1) = "98" / Tadd(2) = "" / Tadd(3) = "99"
    '$E:$F      action sur colonnes E à F       -> Tadd(0) = "" / Tadd(1) = "E" / Tadd(2) = "" / Tadd(3) = "F"
    '$B$5:$D$7  action sur un range de cellules -> Tadd(0) = "" / Tadd(1) = "B" / Tadd(2) = "5" / Tadd(3) = "" / Tadd(4) = "D" / Tadd(5) = "7"
    '$B$5       action sur cellule unique       -> Tadd(0) = "" / Tadd(1) = "B" / Tadd(2) = "5"
 
    'Interdire les insertions ou suppressions de colonnes
    If InStr(1, Target.Address, ":") Then
        'Cas d'une insertion / suppression de colonne(s)
        If UBound(Tadd) = 3 Then
            If (Not IsNumeric(Tadd(1))) And (Not IsNumeric(Tadd(3))) Then
                If UserLogged <> AdminUser Then
                    'Insertion ou suppression de colonne(s) dans de la zone de données
                    MsgBox "L'insertion ou la suppression de colonne n'est pas autorisée"
                    Application.Undo
                    Exit Sub
                End If
            End If
        End If
 
        'Nouveau nombre de lignes de données de la feuille Base
        NewNbLig = Sheets(SheetName).Cells(Rows.Count, 1).End(xlUp).Row
 
        'MsgBox "UBound(Tadd) = " & UBound(Tadd) & " Tadd(1) = " & Tadd(1) & " Tadd(3) = " & Tadd(3) & " NewNbLig = " & NewNbLig & " BaseNbLig = " & BaseNbLig
 
        'Cas d'une insertion / suppression de ligne(s)
        If UBound(Tadd) = 3 Then
            If IsNumeric(Tadd(1)) And IsNumeric(Tadd(3)) Then
                'Insertion / suppression hors de la zone de données ou couper / coller dans la zone de données
                If NewNbLig = BaseNbLig Then
                    'Insertion ou Suppression de ligne(s) hors zone de données
                    If Tadd(1) > BaseNbLig Then Exit Sub
                    '---------------------------------------------------
                    'Couper / Coller de ligne(s) dans la zone de données
                    'Ne traite pas correctement les Couper / Coller à
                    'cheval sur zone de données et hors zone de données
                    '---------------------------------------------------
                    'Une seule ligne Couper / Coller
                    If Tadd(1) = Tadd(3) Then
                        S = "$" & BaseColNom & "$" & Tadd(1): Nom = Sheets(SheetName).Range(S).Value
                        S = "$" & BaseColPrénom & "$" & Tadd(1): Nom = Nom & " " & Sheets(SheetName).Range(S).Value
                        If Len(Trim(Nom)) = 0 Then Nom = "Nouveau à saisir" 'Normalement non !
                    Else
                        Nom = "Multiples"
                    End If
                    Donnée = Target.Address & " / " & CStr(BaseNbLig)
                    Valeur = "Couper / Coller"
                End If
                '------------------------------------------------
                'Insertion de ligne(s) dans de la zone de données
                '------------------------------------------------
                If NewNbLig > BaseNbLig Then
                    'Une seule ligne insérée
                    If (NewNbLig - BaseNbLig) = 1 Then
                        S = "$" & BaseColNom & "$" & Tadd(1): Nom = Sheets(SheetName).Range(S).Value
                        S = "$" & BaseColPrénom & "$" & Tadd(1): Nom = Nom & " " & Sheets(SheetName).Range(S).Value
                        If Len(Trim(Nom)) = 0 Then Nom = "Nouveau à saisir"
                    Else
                        Nom = "Multiples"
                    End If
                    Donnée = Target.Address & " / " & CStr(BaseNbLig)
                    Valeur = "Insertion"
                End If
                '--------------------------------------------------
                'Suppression de ligne(s) dans de la zone de données (et peut-être au-delà)
                '--------------------------------------------------
                If NewNbLig < BaseNbLig Then
                    'Une seule ligne supprimée
                    If (BaseNbLig - NewNbLig) = 1 Then
                        Nom = BaseNomPrénomSélection
                    Else
                        Nom = "Multiples"
                    End If
                    Donnée = Target.Address & " / " & CStr(BaseNbLig)
                    Valeur = "Suppression"
                End If
            End If
 
            'Ajuster le nombre de lignes
            BaseNbLig = NewNbLig
        End If
 
        'Cas d'un range de cellules
        If UBound(Tadd) = 5 Then
            'Tout sur la même ligne
            If Tadd(2) = Tadd(5) Then
                'S = "$" & BaseColNom & "$" & Tadd(2): Nom = Sheets(SheetName).Range(S).Value
                'S = "$" & BaseColPrénom & "$" & Tadd(2): Nom = Nom & " " & Sheets(SheetName).Range(S).Value
                Nom = BaseNomPrénomSélection
            Else
                Nom = "Multiples"
            End If
            Donnée = Target.Address
            If VarType(Target.Value) = VarType8204 Then
                Valeur = "Multiples"
            ElseIf Len(Target.Value) = 0 Then
                Valeur = "Vide"
            Else
                Valeur = Target.Value
            End If
        End If
    Else
        'Case d'une cellule unique
        'S = "$" & BaseColNom & "$" & Tadd(2): Nom = Sheets(SheetName).Range(S).Value
        'S = "$" & BaseColPrénom & "$" & Tadd(2): Nom = Nom & " " & Sheets(SheetName).Range(S).Value
        Nom = BaseNomPrénomSélection
        S = "$" & Tadd(1) & "$" & "1"
        If Len(Sheets(SheetName).Range(S).Value) Then Donnée = Sheets(SheetName).Range(S).Value Else Donnée = Target.Address
        If Len(Target.Value) = 0 Then Valeur = "Vide" Else Valeur = Target.Value
    End If
 
    'MsgBox Target.Address & " " & Nom & " " & Donnée & " " & Valeur
 
    'Nombre de lignes présentes en feuille Log
    LogNbLig = Sheets(LogNomFeuille).Range(LogColDateHeure & Rows.Count).End(xlUp).Row
 
    'Si n° de dernière ligne utilisée connu, on l'utilise
    If DerniereLigUtil > 0 Then
        'Si vidage manuel de la log en cours d'opérations alors il faut corriger
        If LogNbLig < DerniereLigUtil Then DerniereLigUtil = LogNbLig
        k = DerniereLigUtil + 1
    Else
        'Si pas le max atteint on prend la ligne suivante
        If LogNbLig < LogNbLigTitre + LogNbMax Then
            k = LogNbLig + 1
        'Sinon il faut rechercher le time stamp le plus ancien et utiliser la ligne correspondante
        Else
            D = "31/12/2050"
            For i = LogNbLigTitre + 1 To LogNbLigTitre + LogNbMax
                If Sheets(LogNomFeuille).Range(LogColDateHeure & i).Value < D Then
                    D = Sheets(LogNomFeuille).Range(LogColDateHeure & i).Value
                    k = i
                End If
            Next i
        End If
    End If
 
    'On boucle quand le nombre max a été atteint
    If k > LogNbLigTitre + LogNbMax Then k = LogNbLigTitre + 1
    DerniereLigUtil = k
 
    Sheets(LogNomFeuille).Range(LogColDateHeure & k).Value = Now
    Sheets(LogNomFeuille).Range(LogColDateHeure & k).NumberFormat = "dd/mm/yyyy hh:mm:ss"
    Sheets(LogNomFeuille).Range(LogColUtilisateur & k).Value = UserLogged
    Sheets(LogNomFeuille).Range(LogColNom & k).Value = Nom
    Sheets(LogNomFeuille).Range(LogColTitre & k).Value = Donnée
    Sheets(LogNomFeuille).Range(LogColValeur & k).Value = Valeur
 
End Sub
 
 
'-------------------------------------------------
'UserForm JPLogonForm / Bouton CmdValider_Click()
'-------------------------------------------------
 
Sub AfficherColonnesBase()
'Générer la feuille Base avec les colonnes autorisées pour l'utilisateur
 
    Dim ParamNbLig As Long
    Dim ParamNbCol As Long
    Dim i, j, k, ErrNb As Long
 
    'Pas d'utilisateur identifié (sécurité)
    If Len(UserLogged) = 0 Then
        MsgBox "Pas d'utilisateur connecté, identifier un utilisateur sur la page <" & LogonNomFeuille & ">"
        Exit Sub
    End If
 
    ParamNbLig = Sheets(ParamNomFeuille).Range(ParamColNom & Rows.Count).End(xlUp).Row
 
    'Recherche l'utilisateur dans la liste
    For i = ParamLig0TabCols + 1 To ParamNbLig
        If UCase(Sheets(ParamNomFeuille).Range(ParamColNom & i).Value) = UCase(UserLogged) Then Exit For
    Next i
 
    'Utilisateur non trouvé
    If i > ParamNbLig Then
        MsgBox "Utilisateur <" & UserLogged & "< non trouvé dans la feuille " & ParamNomFeuille
        Exit Sub
    End If
 
    'Nombre de colonnes de la feuille Param
    ParamNbCol = Sheets(ParamNomFeuille).Cells(WorksheetFunction.Max(1, ParamLig0TabCols), Cells.Columns.Count).End(xlToLeft).Column - ParamCol0TabCols
    If ParamNbCol <= 0 Then
        MsgBox "Feuille " & ParamNomFeuille & " / Table des colonnes autorisées par utilisateur: pas trouvé de liste des colonnes en ligne " & ParamLig0TabCols & _
               " à partir de la colonne " & ParamCol0TabCols + 1
        Exit Sub
    End If
 
    Erase TabBaseColAutorise
    ReDim TabBaseColAutorise(ParamNbCol)    'Lbound = 0 et Ubound = ParamNbFeuilles / utilisé de 1 à ParamNbCol
    'MsgBox LBound(TabBaseColAutorise) & " " & UBound(TabBaseColAutorise) & " " & ParamNbCol
 
    'Parcours des colonnes à afficher
    Application.ScreenUpdating = False
 
    'Nombre de lignes de la colonne Nom en feuille Base
    BaseNbLig = Sheets(BaseNomFeuille).Cells(Rows.Count, Sheets(BaseNomFeuille).Range(BaseColNom & 1).Column).End(xlUp).Row
 
    'Masquage des colonnes non autorisées de la feuille Base
    For j = ParamCol0TabCols + 1 To ParamCol0TabCols + ParamNbCol
        'Si colonne à afficher on la copie de Base dans BaseTemp
        If UCase(Sheets(ParamNomFeuille).Cells(i, j).Value) = "X" Then
            TabBaseColAutorise(j - ParamCol0TabCols) = True
            Sheets(BaseNomFeuille).Columns(j - ParamCol0TabCols).Hidden = False
        'Sinon masquer la colonne copie uniquement le format de la colonne de la feuille Base sur la feuille BaseTempon et masque la colonne dans BaseTemp
        Else
            Sheets(BaseNomFeuille).Columns(j - ParamCol0TabCols).Hidden = True
        End If
    Next j
 
    'Retire les filtres éventuels
    With Sheets(BaseNomFeuille)
        If .AutoFilterMode Then
            .Cells.AutoFilter
        End If
    End With
 
    'Positionnement en haut
    Application.Goto Sheets(BaseNomFeuille).Range("A" & BaseLig0 + 1), True
    Application.ScreenUpdating = True
End Sub