Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

MuscatMimi

XLDnaute Accro
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
 
Dernière édition:
Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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)

Code: 
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.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Avec un Usf, comment supprimer les Données d'une Ligne dans BDD

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
 
Vote positif 0 Vote négatif
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:
Code: 
Option Explicit
Public Verrou As Boolean
Public Ligne As Integer
[COLOR=Blue][B]Public LigModif As Long[/B][/COLOR]
.......
...

2- le bouton enregistrer modification:

Code: 
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:
Code: 
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.
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
261
Valtrase
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
111
vgendron
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
432
CedricR34
C
  • Résolu(e)
Microsoft 365 Extraire les données d'une ligne d'un tableau dynamique piloté par un segment
Réponses
2
Affichages
138
ralph45
W
  • Question Question
Autres Inserer automatiquement une ligne avec même mise en forme après avoir valider mes données
Réponses
11
Affichages
320
walki
W
N
  • Résolu(e)
Microsoft 365 Récupération données ListBox dans TextBox
2 3
Réponses
35
Affichages
917
NONO14
N
  • Question Question
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
893
jeff1494
G
  • Question Question
Microsoft 365 Labels qui se dimensionnent tous seuls.
Réponses
3
Affichages
213
GClaire
G
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
210
fanch55
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
188
Paulle
P
P
  • Question Question
Microsoft 365 Après filtre ave ComboBox (ListView), Recherche avec 4 critères dans BDD et sélectionner la ligne correspondante
2
Réponses
27
Affichages
1 K
Piment
P
A
  • Question Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
858
aurelio.ewane
A
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
360
sousou
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
367
NONO14
N
M
  • Question Question
XL 2021 Aide pour sauvegarde des données dans un calendrier automatique Excel
Réponses
2
Affichages
104
mimednejma
M
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
618
Dégé59
D
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
69 K
NONO14
N
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
236
cathodique
M
  • Question Question
Microsoft 365 Afficher les données d'un userform sur un autre userform
Réponses
3
Affichages
527
Manon71.
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…