Discussion :

[Vijinn]

Bonjour à tous.
Ce que je souhaite semble assez simple mais je n'arrive pas à trouver mon bonheur dans les discussions que j'ai regardées.

J'ai un formulaire avec un champ "filtre" et un champ "truc".
Je voudrais un code qui remplisse automatiquement le champ "truc" dans TOUS les enregistrements préalablement filtrés, avec une valeur rentrée via une inputbox.

Suis-je assez clair ?

Merci de votre aide.

[madefemere]

Bonsoir,

C'est possible en utilisant le RecordSet du formulaire filtré et en le parcourant.
Sur l'évènement Sur click d'un bouton, on peut avoir un code du genre :

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
Private Sub btnmajtruc_Click()
Dim valtruc As String
valtruc = InputBox("Donner la nouvelle valeur !")
If Len(valtruc) > 0 Then
    With Me.Recordset
        If .RecordCount > 0 Then
            .MoveFirst
            While Not .EOF
                .Edit
                ![Truc] = valtruc
                .Update
                .MoveNext
            Wend
        End If
    End With
End If
End Sub

Cordialement,

[Vijinn]

Super, c'est ce que je voulais.
Juste un petit perfectionnement : si le recordset a beaucoup d'enregistrements (c'est souvent mon cas), la macro prends du temps. N'est-il pas possible d'éviter l'effet "stroboscopique" des enregistrements qui défilent, comme dans Excel avec Application.ScreenUpdating = False ?

Merci.

[madefemere]

Bonjour,

C'est le souci dans la mise à jour en visuel du Recordset d'un formulaire (surtout quand on a beaucoup de données).
Essaies d'utiliser la méthode Echo pour neutraliser ce scintillement.

Cordialement.

[Vijinn]

Ouaiiiiis, génial !

En plus ça rend presque instantanée l'exécution de la macro ! C'est vraiment tout bénèf : avant le processus était très ralenti par l'affichage d'une image dans un champ OLE de mon formulaire.

Merci beaucoup