Discussion :

[redcedar]

Bonjour,
j'ai une combo dont sa sélection affiche les données dont leur champ respectif: pas de pb. Je souhaite pouvoir les modifier et enregistrer ces modifications sans que cela crée une ligne supplémentaire. Je n'arrive pas à gérer cette notion d'index car je pense que le code de mon bouton "Modifier" doit ressembler à celui du bouton "Enregister" (qui fonctionne très bien) mais avec la notion d'index pour ne modifier que la ligne concernée:

Le code de la combo:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CBO_RECHERCHE_Change()
 
   Set maBDD = Sheets("bdd fournisseurs")
   Ligne = [C2].Offset(CBO_RECHERCHE.ListIndex, 0).Row
   Me.TextBox1 = maBDD.Cells(Ligne, 1)
   Me.TextBox2 = maBDD.Cells(Ligne, 2)
   Me.TextBox3 = maBDD.Cells(Ligne, 3)
   Me.TextBox4 = maBDD.Cells(Ligne, 4)
End Sub

Mon bouton "Enregistrer":

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
Private Sub CommandButton5_Click()
 'on enregistre les données saisies
 
 L = Sheets("bdd fournisseurs").Range("a65536").End(xlUp).Row + 1
 
        Sheets("bdd fournisseurs").Range("A" & L) = TextBox1.Value
        Sheets("bdd fournisseurs").Range("B" & L) = TextBox2.Value
        Sheets("bdd fournisseurs").Range("C" & L) = TextBox3.Value
        Sheets("bdd fournisseurs").Range("D" & L) = TextBox4.Value    
 
        'on réactive le bouton Nouveau
        CommandButton6.Enabled = True
 
        TextBox1.Value = ""
        TextBox2.Value = ""
        TextBox3.Value = ""
        TextBox4.Value = ""
 
End Sub

Merci d'avance pour vos conseils.

Cdlt.

[Philippe PONS]

Salut,

C'est pas très facile de démêler ton code spaghetti, mais si je comprend bien, quand tu cliques sur enregistrer, ça n'enregistre pas sur la bonne ligne!
Dans ta Private Sub CBO_RECHERCHE_Change, tu récupère le bon numéro de ligne, dans la variable locale L.
Tu n'as qu'à en faire une variable de portée module, pour pouvoir lire sa valeur dans Private Sub CommandButton5_Click()

Cordialement,

[redcedar]

Bonjour,
le bouton enregistrer fonctionne car je l'utilise uniquement pour des créations, de founisseurs dans mon cas.
Je souhaite un second bouton qui modifie les infos que j'ai sélectionné via ma combo.
Le vrai pb est que je suis plus habitué au code de WinDev mais là je dois absolument le faire dans Excel et je patauge un peu !!
Merci.

[RastaBomboclat]

Bonjour,

Pourrais-tu regarder ce lien interessant où Philippe Tulliez a fait le CRUD?

Le Lien

Je viens de me rappeler de ce fichier (en annexe) que j'ai reçu ici même sur le site il y a un ou deux ans déjà, et qui pourrait aussi servir.


Merci de mettre un si la reponse a servie et un si le sujet est résolu.

[redcedar]

Bonjour et merci pour ce lien... une mine d'or.
J'ai trouvé réponse à toutes mes interrogations.
cdlt.