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