Limiter enregistrement et recommencer

**jean30** · 04/04/2018, 18h34

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** · 04/04/2018, 19h04

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** · 04/04/2018, 20h34

Bonjour,

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

**unparia** · 04/04/2018, 20h42

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** · 04/04/2018, 20h49

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** · 05/04/2018, 11h22

Envoyé par Arkham46

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 :

Envoyé par 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.

Salut Jacques !

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

Envoyé par jean30

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à

Envoyé par jean30

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 …

Limiter enregistrement et recommencer [XL-2003]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager