Actualiser la feuille apres avoir cliqué sur un bouton

Version imprimable

06/01/2019, 11h26
gmad5

1 pièce(s) jointe(s)

Actualiser la feuille apres avoir cliqué sur un bouton

Bonjour à tous
tout d'abord merci pour vos différentes aides car grâce a ce site j'ai trouvé plein d'astuce et debloquage..
mais j'ai 3 soucis avec ma macro et mon formulaire. je ne sais pas si je dois faire 3 post ou pas.

1) j'ai un formulaire qui permet de remplir différents champs, lorsque j'appuie sur Suivant, il passe a la 2nd ligne, mais j'aimerais qu'il actualise en meme temps la feuille excel, j'ai fait une requete "sauve" mais il actualise pas. savez vous comment on peut forcer une actualisation?

2) J'ai un champ Date et lorsque je clique sur quitter dans mon formulaire il enregistre quand meme une date meme si elle est pas cochée. savez vous si on peux eviter?

3) par defaut, il selectionne la 1ere ligne, mais j'aimerais mettre 2 conditions. exemple, il affiche la 1ere ligne dispo mais qui a la colonne D vide et la colonne E = "XXX"

merci par avance pour vos pistes.
je vous joins mon fichier ca sera peut etre plus simple a comprendre.
gabriel
06/01/2019, 13h19
unparia

Bonjour

Citation:

je vous joins mon fichier ca sera peut etre plus simple a comprendre.

hé bien non.
Tu voudras bien (tu aurais du le faire) :
- lire ceci :
https://www.developpez.net/forums/d8...s-discussions/
- Lis maintenant ma signature.

En l'état, bien malin serait celui qui devinerait avec assurance ce que tu veux exprimer.
Exprime-le donc. En te rappelant que ce qui est clair peut TOUJOURS s'exprimer clairement.
Merci de faire cet effort.

hello,
effectivement désolé. Je n'avais pas pensé à la sécurité.. je débute en code.
je vais essayé de traduire en français :-)
j'ai un formulaire avec des champs en textbox et 2 boutons : suivant et Quitter.

je souhaiterais quand je clique sur suivant et qu'il passe a une 2nd ligne affiché dans mon formulaire, qu'il actualise aussi la feuille excel.

ci dessous le code de mes 2 boutons

Code:

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
Option Explicit
 
Public T() As Variant
 
 
Sub usf()
    acquisition
    UserForm1.Show
End Sub
 
 
Sub acquisition(Optional x As Byte = 0)
Dim lig As Integer, col As Integer
    With Sheets("BDD")
        lig = .Range("A" & Rows.Count).End(xlUp).Row + x
        col = .Cells(1, 1).End(xlToRight).Column
        T = .Range(Cells(1, 1), Cells(lig, col)).Value
    End With
End Sub
 
 
Private Const Nb = 14    ' nb de textbox de l'usf
 
Private Id As Integer
 
Private Sub UserForm_Initialize()
    Id = LBound(T, 1) + 1
    Remplir (Id)
End Sub
 
 
Private Sub Remplir(Idx As Integer)
Dim i As Byte
    For i = 1 To Nb
        Controls("Label" & i).Caption = T(1, i)
        Controls("Textbox" & i).Value = T(Idx, i)
    Next i
End Sub
 
 
Private Sub Sauve(Idx As Integer)
Dim i As Byte
    For i = 1 To Nb
        T(Idx, i) = Controls("Textbox" & i).Value
    Next i
End Sub
 
Private Sub CommandButton2_Click() ' Suivant
    Sauve (Id)
    Id = Id + 1
    If Id > UBound(T, 1) Then Id = LBound(T, 1) + 1
    Remplir (Id)
End Sub
 
 
Private Sub CommandButton3_Click()  ' Quitter
    Sauve (Id)
    Unload Me

quand je clique sur quitter, il ferme bien le formulaire et actualise la page, mais pas quand je fais suivant.
Merci par avance pour votre aide.

06/01/2019, 13h46
Philippe Tulliez

Bonjour,

Citation:

je souhaiterais quand je clique sur suivant et qu'il passe a une 2nd ligne affiché dans mon formulaire, qu'il actualise aussi la feuille excel.

Je suppose que lorsque tu parles d'actualiser, cela signifie que tu souhaites remplacer les valeurs des cellules de la ligne concernée par les champs remplis dans les différents TextBox du formulaire ?
Personnellement, je préfère un bouton de confirmation mais bon.
Je vois que tu as une procédure Sauve qui semble écrire dans les cellules de la ligne définie par l'argument Idx (qui devrait être idéalement de type Long et pas Integer)
Donc il suffit d'appeler cette procédure depuis la procédure CommandButton2_Click (Attention, je n'ai pas vérifié si la procédure Sauve était correcte)

Tu peux t'inspirer de cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire