'À mettre dans le module de la feuille
Private Sub ComboBox1_Change()
Dim rw
If ComboBox1 <> "" Then
With Sheets(3)
rw = Application.Match(ComboBox1, .Columns(1), 0)
[F8] = .Cells(rw, "B")
[F10] = .Cells(rw, "C")
[F12] = .Cells(rw, "D")
[F14] = .Cells(rw, "E")
[F16] = .Cells(rw, "F")
[F18] = .Cells(rw, "G")
[F20] = .Cells(rw, "H")
[F22] = .Cells(rw, "I")
[F28] = .Cells(rw, "J")
[F38] = .Cells(rw, "K")
End With
Else
Exit Sub
End If
End Sub
'---------------------------------------------------
Sub Modifier()
Dim rw
If ComboBox1 <> "" Then
With Sheets(3)
rw = Application.Match(ComboBox1, .Columns(1), 0)
.Cells(rw, "B") = [F8]
.Cells(rw, "C") = [F10]
.Cells(rw, "D") = [F12]
.Cells(rw, "E") = [F14]
.Cells(rw, "F") = [F16]
.Cells(rw, "G") = [F18]
.Cells(rw, "H") = [F20]
.Cells(rw, "I") = [F22]
.Cells(rw, "J") = [F28]
.Cells(rw, "K") = [F38]
End With
Else
[F8] = Date
End If
Application.ScreenUpdating = False
For i = 10 To 38
Cells(i, 6).MergeArea.ClearContents
Next i
ComboBox1 = ""
End Sub
Sub Supprimer()
Dim rw
If ComboBox1 <> "" Then
With Sheets(3)
rw = Application.Match(ComboBox1, .Columns(1), 0)
.Row(rw).EntireRow.Delete
End With
Else
Exit Sub
End If
Application.ScreenUpdating = False
For i = 10 To 38
Cells(i, 6).MergeArea.ClearContents
Next i
ComboBox1 = ""
End Sub