Bonjour,
J'essaie maintenant de faire un formulaire pour ajouter un élément à la liste des voiles. En utilisant ce que vous avez proposé au dessus je fais :
Private Sub CommandButton_Annuler_Click()
Unload Me
End Sub
Private Sub CommandButton_valider_Click()
Set ShBateaux = Sheets("BATEAUX")
Set ShCalculs = Sheets("CALCULS")
Set TitreBateaux = Range("Tableau_voiles[#Headers]")
Dim I As Integer
Dim AireVoile As Range
For I = 1 To TitreBateaux.Count
If ListBox_bateaux = TitreBateaux(I) Then
Set AireVoile = ShBateaux.ListObjects("Tableau_voiles").ListColumns(TitreBateaux(I).Value).DataBodyRange
AireVoile.End(xlDown).Offset(1, 0) = UserForm_ajoutvoile.TextBox_nomvoile
End If
Next I
Unload Me
Unload UserForm_nouveaucalcul
Call Module1.lancer
End Sub
Cependant rien ne se passe, la sélection de AireVoile ne se fait pas, et la nouvelle donnée saisie n'apparaît pas.
Avez_vous une idée du problème ?
Merci d'avance pour votre réponse