bonjour à tous,
Utiliser des modules de classes pour ajouter une données dans un tableau, parait un peu lourd....
Pour les circuits, dans le module de classe CCircuit, modifier la Sub sauvegarder():
Public Sub sauvegarder()
Dim ligne As Integer, C As Range
With Worksheets("Donnees Utiles")
ligne = .Range("A" & Rows.Count).End(xlUp).Row
Set C = .Range("A2:A" & ligne).Find(circuit, lookat:=xlWhole)
If Not C Is Nothing Then
MsgBox "Ce circuit existe déjà !"
Exit Sub
Else
.Cells(ligne + 1, 1) = circuit
End If
End With
End Sub
Adapter pour les véhicules...
A+