Créer bouton Ajouter/supprimer/ modifier

Bonjour,

J'ai une base de donnée ou à chaque fois je dois ajouter de nouveaux données au tableau (ligne) ou bien la supprimer ou encore la modifier.

Pourrais-je avoir un peu d'aide.

Vous trouverez ci-joint un fichier représentant le tableau à remplir.

Merci bonne journée

Bonjour

Pas très précis comme question.

Le formulaire existant déjà dans Excel peut répondre à ta demande.

Pour l'ajouter à ta barre de lancement rapide ou dans un onglet du ruban : recherche Formulaire dans la liste des commandes non présentes dans le ruban.

Bonjour,

voici une macro que je veux associer au formulaire mais malheureusement elle ne fonctionne pas , je connais pas la raison

Ref original ComboBox2: Type reference ComboBox3: gaine ComboBox4: câble

ComboBox5: PL ComboBox6: PVC TextBox1: Ref S TextBox2: sertissage 1

TextBox3: sertissage 2 TextBox4: sertissage 3 TextBox5: sertissage 4 TextBox6: Durée

Option Explicit

Dim Ligne As Long

Private Sub Ajouter_Click()

Dim Ctrl As Control

Dim Colonne As Integer

If Me.ComboBox1.ListIndex = -1 Then Exit Sub

Application.EnableEvents = False

With Sheets("Sheet1")

Ligne = Me.ComboBox1.ListIndex + 2

ComboBox1 = .Range("A" & Ligne).Value

ComboBox2 = .Range("C" & Ligne).Value

ComboBox3 = .Range("D" & Ligne).Value

ComboBox4 = .Range("E" & Ligne).Value

ComboBox5 = .Range("F" & Ligne).Value

ComboBox6 = .Range("G" & Ligne).Value

TextBox1.Value = .Range("B" & Ligne).Value

TextBox2.Value = .Range("H" & Ligne).Value

TextBox3.Value = .Range("I" & Ligne).Value

TextBox4.Value = .Range("J" & Ligne).Value

TextBox5.Value = .Range("K" & Ligne).Value

TextBox6.Value = .Range("L" & Ligne).Value

End With

Application.EnableEvents = True

End Sub

Private Sub Modifier_Click()

' Modifier

Dim Ctrl As Control

Dim Colonne As Integer

Dim Ligne As Long

If Me.ComboBox1.ListIndex = -1 Then Exit Sub

Ligne = Me.ComboBox1.ListIndex + 2

With Sheets("Sheet1")

.Range("A" & Ligne).Value = ComboBox1

.Range("C" & Ligne).Value = ComboBox2

.Range("D" & Ligne).Value = ComboBox3

.Range("E" & Ligne).Value = ComboBox4

.Range("F" & Ligne).Value = ComboBox5

.Range("G" & Ligne).Value = ComboBox6

.Range("B" & Ligne).Value = TextBox1.Value

.Range("H" & Ligne).Value = TextBox2.Value

.Range("I" & Ligne).Value = TextBox3.Value

.Range("J" & Ligne).Value = TextBox4.Value

.Range("K" & Ligne).Value = TextBox5.Value

.Range("L" & Ligne).Value = TextBox6.Value

End With

End Sub

Private Sub UserForm_Initialize()

Dim J As Long

With Sheets("Sheet1")

For J = 2 To .Range("C" & Rows.Count).End(xlUp).Row

Me.ComboBox1.AddItem .Range("A" & J)

Next J

End With

End Sub

Private Sub Quitter_Click()

Unload ModiForm

Application.DisplayAlerts = True

ActiveWorkbook.Save

End Sub

End Sub

Bonjour

C'est peut être ceci que tu recherches

enregistre bien ton classeur avec macro

Note : certaines combobox je ne l'ai comprend pas trop

Userform de créer

cordialement,

André

Bonjour,

Je vous remercie Andre13 pour votre aide.

Je partage avec vous la version finale.