Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

[MuscatMimi]

Bonjour, a tout le Forum
Et oui, a nouveau de retour pour solliciter les compétences des pro

J'ai un Usf qui me permet de rentrer des données dans ma base de données
De lire ces données dans cet Usf via une ListBox, et mes TextBox
Je n'arrive pas a trouver le code pour pouvoir supprimer une Ligne sélectionnées dans cette ListBox
et aussi de pouvoir modifier si besoin,cette ligne sélectionnées ,via mes textBox de cet Usf,
J'y arrive mais une nouvelle ligne ce crée,comprends pas

Merci a tous a l'avance

 

[skoobi]

Re : Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

Bonjour,

Le mieux serait que tu envoies un extrait de ton fichier (non confidentiel) avec un descriptif car chaque BDD est spécifique.

Bonne jounée.

 

[MuscatMimi]

Re : Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

Bonjour, e

Merci de ta réponse
J'ai pris ce fichier sur ce forum,j'ai essayé au mieux de l'adapter a mon besoin,
J'ai assez galéré, mais je crois mettre pas trop mal débrouillé
Sauf que je bute sur Supprimer les Données d'une Ligne de ma
une fois cette ligne sélectionnée dans la ListBox de l'Usf_Mod
Idem, pour en modifier le contenu
J'ai constaté que le code pour éffectuer une recherche via cet Usf, était assez compliqué, je ne sais pas si pour si peu de données il n'y aurait pas plus simple

Désolé de le mettre sur Ci-Joint ,mais j'arrive pas a plus l'alléger
A l'avenir je vais avoir un serveur et mettrait mes ficiers dessus, ça servira a tous

Dans l'attente ,merci



Cijoint.fr - Service gratuit de dépôt de fichiers

 

[skoobi]

Re : Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

Re bonjour,

pour la suppression, voici le code du bouton concerné (modification en bleu)

Private Sub CommandButton1_Click()
Dim rep
rep = MsgBox("Etes vous sûr de vouloir supprimer cette ligne?", vbYesNo)
  If rep = vbYes Then
   [COLOR=Blue][B] Sheets("INTERVENTIONS").Rows(ListBox1.ListIndex + 2).Delete
    ListBox1.RemoveItem ListBox1.ListIndex[/B][/COLOR]
    
    Ligne = Sheets("INTERVENTIONS").[B65000].End(xlUp).Row + 1
    
  End If
End Sub

ListIndex renvoie le N° de ligne dans la listbox (commence à 0).
Et comme les données commence en ligne 2:
Rows(ListBox1.ListIndex + 2)

Ca devrait t'aider pour créer le code du bouton de modification.

 

[MuscatMimi]

Re : Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

Bonsoir a tous

Merci skoobi, super pour Supprimer les Données d'une Ligne

Mais reste la question de: quand je DbleCliq sur une ligne dans ma ListBox ,cela ouvre l'Usf creation, et une fois les ecritures modifiée, le Btn Enregistrer Modifs doit Valider les données de cette ligne dans ma Bdd,mais pas les ajouter
Bonne soirée en Alsace

 

[MuscatMimi]

Re : Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

Re bonjour,

pour la suppression, voici le code du bouton concerné (modification en bleu)

Private Sub CommandButton1_Click()
Dim rep
rep = MsgBox("Etes vous sûr de vouloir supprimer cette ligne?", vbYesNo)
  If rep = vbYes Then
   [COLOR=Blue][B] Sheets("INTERVENTIONS").Rows(ListBox1.ListIndex + 2).Delete
    ListBox1.RemoveItem ListBox1.ListIndex[/B][/COLOR]
    
    Ligne = Sheets("INTERVENTIONS").[B65000].End(xlUp).Row + 1
    
  End If
End Sub

ListIndex renvoie le N° de ligne dans la listbox (commence à 0).
Et comme les données commence en ligne 2:
Rows(ListBox1.ListIndex + 2)

Ca devrait t'aider pour créer le code du bouton de modification.

Bonsoir a tous, et a toi skooby,

j'ai répondu a ton dernier post en te remerciant, pour le code ,pour un bouton Supprimé,
Mais restait une autre question , regarde mon dernier post, concernant, modifier les données d'une ligne sans qu'une autre ligne ce cré dans ma Bdd

merci a l'avance

 

[skoobi]

Re : Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

Bonsoir,

Il y a 3 ajouts (bleu) / modifications (rouge) à faire:

1- dans le module1:

Option Explicit
Public Verrou As Boolean
Public Ligne As Integer
[COLOR=Blue][B]Public LigModif As Long[/B][/COLOR]
.......
...

2- le bouton enregistrer modification:

Private Sub CommandButton4_Click() 'Enregistrer Modification
[SIZE=4][B][COLOR=Red]'[/COLOR][/B][/SIZE]Dim derlgn As Integer
With Worksheets("INTERVENTIONS")
[SIZE=4][COLOR=Red][B]'[/B][/COLOR][/SIZE]derlgn = .Range("B65536").End(xlUp).Row + 1
     .Cells([COLOR=Red][B]LigModif[/B][/COLOR], 2) = NomCompte.Value
     .Cells([B][COLOR=Red]LigModif[/COLOR][/B], 3) = La_Date.Value
     .Cells([B][COLOR=Red]LigModif[/COLOR][/B], 4) = Libelle.Value
     .Cells([B][COLOR=Red]LigModif[/COLOR][/B], 5) = TypeOperation.Value
     .Cells([B][COLOR=Red]LigModif[/COLOR][/B], 6) = Debit.Value
     .Cells([B][COLOR=Red]LigModif[/COLOR][/B], 7) = Credit.Value
     
 End With
.......
....

3- le code du double clic de la listbox:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  USF_MOD.Hide
  creation.CommandButton4.Visible = True 'Caption = "Modifier"
  creation.Credit.Visible = True
  creation.Label2.Visible = True
  creation.Debit.Visible = True
  creation.Label9.Visible = True
  creation.CommandButton1.Visible = False
[COLOR=Blue][B]  LigModif = ListBox1.ListIndex + 2[/B][/COLOR]
  creation.Show
  
End Sub

Voili voilou 😉

Bonne soirée.

 

[MuscatMimi]

Re : Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

Bonsoir Skooby
merci beaucoup pour ton aide, je viens de modifier mon fichier
ça fonctionne parfaitement
bonne soirée et peut-être a bientôt
Ciao Skooby