Cela a l'air mieux là. Juste ceci à corriger :
Dans les feuille Petanque nocturne et Journée tu as deux codes --> 'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Supprime les et remplace les par le code ci-dessous à placer dans THISWORKBOOK
- Code: Tout sélectionner
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Macro Dan pour Gerard le 17/09/10
Select Case Sh.Name
Case "Petanque-Nocturne", "Petanque-Journee"
If Not Application.Intersect(Target, Range("L9:L40")) Is Nothing Then
ActiveWorkbook.Save
Sheets("Tableau de Bord").Select
UserForm1.Show
End If
End Select
End Sub
je souhaitais qu'a la fin de la saisi de la ligne le fichier s'enregistre..
Le code fonctionne lorsque tu clique en colonne L mais pas à la fin de la saisie. Maintenant ce qui est possible c'est de faire réagir le code si l'hotesse complète vace son code la colonne J dans la feuille.
Amicalement