Discussion :

[BSMAV]

Bonjour,
Je suis un novice en programmation VBA su Excel. Et j'ai crée un formulaire de saisie pour apprendre et par la suite l'utiliser dans une petite association.
Mon problème est de pouvoir à l'aide d'un bouton de commande "Modifier", "reprendre" les données enregistrées dans le tableau Excel de les "remettre" dans le Formulaire afin de pouvoir les modifier.

Pouvez-vous, vous les professionnels me donner un "coup de main" ?
Merci à l'avance.

C'est un formulaire comprenant :

• 5 Labels
• 5 Texts box
• 1 Bouton "Valider" (Qui fonctionne bien)
• 1 Bouton "Modifier" (que je n’arrive pas à coder)
• 1 Bouton "Quitter" (Qui fonctionne bien)

Voici ci-dessous les codes que j'ai écris:

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
Option Explicit
Dim Ws As Worksheet
 
Private Sub cmdnouveau_Click()
    Dim L As Integer
        If MsgBox("Confirmez-vous l'insertion de cette nouvelle saisie ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        'Pour placer le nouvel enregistrement à la premiere ligne du tableau, non vide
            L = Sheets("ESSAI 1").Range("A100").End(xlUp).Row + 1
                Range("A" & L).Value = txtacte
                Range("B" & L).Value = txtdaterencontre
                Range("C" & L).Value = txtdatebapteme
                Range("D" & L).Value = txtnom
                Range("E" & L).Value = txtprenom
        End If
            Unload Me
                UserForm1.Show
 
End Sub
 
Private Sub cmdmodifier_Click()
    Dim Ligne As Long
        Dim I As Integer
            If MsgBox("Confirmez-vous la modification de cette saisie ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
                If txtacte = -1 Then Exit Sub
                    Ligne = txtacte + 2
                        Ws.Cells(Ligne, "B") = "txtdaterencontre"
                            For I = 1 To 5
                                If txtacte("txtacte" & I).Visible = True Then
                                    Ws.Cells(Ligne, I + 2) = ("txtacte" & I)
                                End If
                            Next I
                End If
 
                Unload Me
                    UserForm1.Show
 
  End Sub
 
Private Sub cmdquitter_Click()
   Unload Me
 
End Sub

[Menhir]

Je ne comprends pas ce que tu attends. Quel est ton problème ? Dans quelle mesure ton code ne fais pas ce que tu souhaites ?

[BSMAV]

Bonjour
Je viens de voir votre réponse.
En fait voilà ce qui se passe:
Quand je clique sur le bouton "Modifier" de mon formulaire j'ai un message "Erreur 13" Incompatibilité de message.
Et donc quand je "Débogue", sur les code VBA: la ligne "Ligne= txtacte +2" est surlignée en jaune montrant qu'il y a un problème.

Ci-dessous, les codes du bouton "Modifier"

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
Private Sub cmdmodifier_Click()
' On défini les variables
        Dim Ligne As Long
        Dim I As Integer
        'Demande de confirmation avant enregistrement des modifications ou saisies
            If MsgBox("Confirmez-vous la modification de cette saisie ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
                If txtacte = -1 Then Exit Sub
                    Ligne = txtacte + 2
                        Ws.Cells(Ligne, "B") = "txtdaterencontre"
                            For I = 1 To 5
                                If txtacte("txtacte" & I).Visible = True Then
                                    Ws.Cells(Ligne, I + 2) = ("txtacte" & I)
                                End If
                            Next I
                End If
             'On ferme le formulaire
                Unload Me
                'On réouvre le formulaire
                    UserForm1.Show
 
  End Sub

Ci dessous le tableau que je souhaite modifier par le bouton de contrôle "Modifier", c'est à dire reprendre, par exemple la ligne 1.
Par contre la saisie par mon formulaire se fait très bien
Je suis désolé, mais je ne sais pas comment vous transmettre le formulaire afin que vous puissiez voir à quoi il ressemble.

N° Acte Date Rencontre Date Baptême Nom Prénom
1 12/02/2015 23/08/2015 Marc Jean
2 23/02/2015 23/08/2015 Rabier Jules

[SfJ5Rpw8]

Bonjour,


avec Val c'est pas mieux ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Ligne = Val(txtacte) + 2

[BSMAV]

Du coup, j'ai un message:

Erreur d’exécution (91)
Variable objet ou variable de bloc With non défini

Et la ligne ci-dessous est en jaune.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ligne =Ws.Cells(Ligne, "B") = "txtdaterencontre"

[SfJ5Rpw8]

Et comment déclare tu ta variable WS ? ou est le code où tu lui affecte une feuille de ton classeur ?

ensuite tu veux vraiment écrire dans ton classeur le texte : txtdaterencontre ou le contenu du text box : txtdaterencontre , dans le second cas il faut enlever les guillemets..

[BSMAV]

Bonjour,
Je suis désolé mais je pense que mon problème est tout simple pour vous, mais je pense aussi que j'exprime tres mal mon problème et, que si je pouvais vous communiquer juste mon tableau et mon formulaire, vous trouveriez la solution très rapidement.
En fait je suis également désolé de vous "embêter", car je l'avoue je suis un "papi" et même en sachant "taper" sur un clavier je ne maitrise vraiment pas tout. Mais mon objectif est, d'abord d'apprendre et de rendre service "bénévolement" à des personnes âgées.
Alors si vous pouvez m'indiquer la manière de vous transmettre mon fichier Excel, ce serai bien, car même avec ce forum, j'ai des difficultés, même pour transmettre une pièce jointe.
Je vous remercie quand même de votre sollicitude, pour me répondre et du coup, j'hésite à continuer de vous "embêter" avec mes problèmes.

[Menhir]

même en sachant "taper" sur un clavier je ne maitrise vraiment pas tout.

Pourtant, tu as réussi à créer le code que tu as présenté, non ? Ou est-ce un code que tu as récupéré en supposant qu'il pourrait résoudre ton problème ?

[Nico Chg]

Bonjour,

FYI : Une contribution qui présente des Userforms de saisi de donnée (CRUD)

[BSMAV]

Pourtant, tu as réussi à créer le code que tu as présenté, non ? Ou est-ce un code que tu as récupéré en supposant qu'il pourrait résoudre ton problème ?

Je suis désolé car je ne suis pas toujours présent (disponible) pour répondre dessuite..
En fait j'ai changé la façon de récupérer les données de mon tableau en copiant de nouveaux codes et surtout j'y ai introduit un "ComboBox" afin qu'il ait une liste déroulante.
Et cette liste déroulante me permet de faire une recherche sur les noms:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmdrechercher_Click()
'On crée une variable qui est le N° de ligne
Dim no_ligne As Integer
'On lui donne une valeur
'Comme il y a 2 lignes d'intitulée, on commence à la ligne 3
no_ligne = Comborecherche.ListIndex + 3
'On code les actions
    txtacte.Value = Cells(no_ligne, 1).Value
    txtdaterencontre.Value = Cells(no_ligne, 2).Value
    txtdatebapteme.Value = Cells(no_ligne, 3).Value
    txtnom.Value = Cells(no_ligne, 4).Value
    txtprenom.Value = Cells(no_ligne, 5).Value
 
End Sub

Et là cela fonctionne très bien pour remplir mon formulaire de saisie.
Mais le problème est que dans mon formulaire, apparait très bien le Nom ainsi que le détail de ce nom écrit dans mon tableau et malheureusement j'en reviens au formulaire, si je modifie ( par exemple le prénom ou autre) tout est bien sauf qu'à la validation, c'est une autre ligne qui se crée sans modificatif de la ligne que j'ai appelé.
Je sais, c'est un peu compliqué d'expliquer, mais pour moi ça l'ai d'autan.
Nota: J’essaie de vous envoyer une PJ de mon tableau. J'avoue que pour moi ce n'est pas facile, mais je tente.Essais de saisies VBA 25 mars 2015.xlsm
De toutes façon, je continue mes essais ce qui est bien, c'est qu'à mon age j’apprends de "super choses" intéressantes.
Merci à vous, j'espère que je ne vous accapare pas de trop et je comprends bien que mon petit problème puisse vous déranger.