Discussion :

[stsym]

Bonjour

Je cherche à l'aide d'un code vba à obtenir le résultat suivant.

Dans un table j'ai une colonne qui contient des cellules vides, des valeurs numériques et d'autres un texte "///".
Le mecanisme que je souhaite est le suivant.
Attendre la première valeur numérique et la recopier dans toutes les cellules vides placées sous elle.




Espérant avoir été clair.
Merci pour votre aide.
Cordialement.

StSym

[Jean-Philippe André]

Bonjour,

quel est l'ordre de tes enregistrements ? la notion "d'en-dessous" n'existe pas sans un ordre de tri


Dans Access on ne parle pas de colonne mais de champs, pas de ligne mais d'enregistrement.

[tee_grandbois]

Bonsoir,
dans la mesure où les enregistrements sont traités dans leur ordre d'arrivée dans la table (sans garantie qu'Access le fasse quand il y a beaucoup de données) il est possible de gérer des ruptures dans une boucle pour mettre à jour une table (mais il y a intérêt à sauvegarder la table avant de lancer ce type de code). De plus, ici on a une difficulté supplémentaire consistant à "bypasser" un enregistrement qui n'est pas mis à jour et qui oblige à gérer la fin de fichier. Mais c'est un défi que j'ai déjà relevé :

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
Function majTableau()
Dim oRs As DAO.Recordset
' Gestion des ruptures
Dim stRupture1 As String    ' pour Article
Dim stRupture2 As String    ' pour Qty_niv01
 
Set oRs = CurrentDb.OpenRecordset("tbl_Tableau")
 
    If Not oRs.EOF And Not oRs.BOF Then ' Si table non vide
        Do Until oRs.EOF
            ' Rupture sur Article
            If stRupture1 <> oRs.Fields("Article") Then stRupture1 = oRs.Fields("Article")
 
            ' On ne gère pas le code '////' et on passe à l'enregistrement suivant
            If oRs.Fields("Qty_niv01") = "////" Then oRs.MoveNext
            ' pour chaque MoveNext forcé, on gére la sortie de boucle
            If oRs.EOF Then Exit Do
 
            ' Rupture sur Qty_01 : on stocke la valeur et on passe à l'enregistrement suivant
            If stRupture2 <> oRs.Fields("Qty_niv01") And Not IsNull(oRs.Fields("Qty_niv01")) _
              And oRs.Fields("Qty_niv01") <> "////" Then
                stRupture2 = oRs.Fields("Qty_niv01")
                oRs.MoveNext
                If oRs.EOF Then Exit Do
            End If
 
            ' Mise à jour de l'enregistrement si Qty_ni01 est vide
            If IsNull(oRs.Fields("Qty_niv01")) Then
                oRs.Edit
                oRs.Fields("Qty_niv01") = stRupture2
                oRs.Update
            End If
            oRs.MoveNext
        Loop
 
    End If
    oRs.Close
    Set oRs = Nothing
End Function

[stsym]

Bonsoir

Jean-Philippe,
Merci pour ces précisons concernant de vocabulaire Access.
J'avais retranscrit avec le vocabulaire Excel mon proto réalisé avec cette même application.

Tee_grandbois
Merci pour ta solution rapidement proposée.
Je l'ai adaptée en apportant les modifications suivantes.

J'ai remplacé
Dim stRupture2 As String par Dim stRupture2 As Integer
et
If oRs.Fields("Qty_niv01") = "////" Then oRs.MoveNext par If oRs.Fields("Qty_niv01") = "9999" Then oRs.MoveNext

Le résultat souhaité est bien obtenu sur un nombre limité d'enregistrement.
Dans mon cas j'en ai environ 2 millions et le système plante comme tu l'avais prévu.
Je vais donc scinder ces enregistrements sur plusieurs tables.

Encore merci pour ton aide.
Cordialement
StSym

[tee_grandbois]

Bonsoir,
pour le traitement de données volumineuses il y a peut-être une solution ici