Salut le fil
Nikel LouReed...
Par contre ce bout de code peut poser problème si pas de tableau sur la feuille
Je sais je cherche des poux dans la tête....
If Intersect(Target, Range(Sh.ListObjects(1).Name)) Is Nothing Then Exit Sub
' on dimensionne des variables
Dim Nom_Tab As String, Id_Num As Integer, Num_Ligne_Tab
' on récupère le nom du tableau de la feuille, le premier tableau de la feuille
Nom_Tab = Sh.ListObjects(1).Name
Je lui préfèrerait cela
' s'il n'y a pas intersection entre la cellule modifiée et le tableau on quitte
If Not Target.ListObject Is Nothing Then
Dim Nom_Tab As String, Id_Num As Integer, Num_Ligne_Tab
Nom_Tab = Target.ListObject
Else
Exit Sub
End If
Petite appréciation personnelle concernant la sauvegarde dans un champ nommé :
C’est rapide à mettre en place, et pour y accéder c’est un fait, cependant j’ai autour de moi des utilisateurs qui s’y connaissent en Excel comme moi je connais les lois quantiques…. Il est très facile de supprimer un champ nommé, en revanche supprimer une clé sur une feuille qui est en
xlSheetVeryHidden
est un peu plus compliqué, mais pas impossible évidemment.
J’utilise souvent une feuille Paramètres ou je sauvegarde la valeur de tous les contrôles des formulaires ou clés que je dois garder.
Mais je le redis c’est mon avis personnel et il n’engage que moi
Bonne programmation à tous.