Bonjour,
Sauriez-vous m'aider pour faire en sorte que dans le tableau ci-dessous, on puisse facilement, sans passer par l'onglet "accueil", supprimer une cellule.
Par exemple, dans la feuille 2, en voulant supprimer un des 2 "Marseille CP", qu'on puisse le faire d'un simple clic droit dans la cellule à supprimer.
Car c'est un peu contraignant de devoir passer par "supprimer les cellules". D'autant qu'on sera plusieurs utilisateurs et certaines personnes sont très très débutantes ;-))))
Voici le code à améliorer pour y arriver :
Private Sub Worksheet_Change(ByVal Target As Range)
With ListObjects("Tabel2") ' <- remplacer Table1 par le nom du tableau listant les établissements
If Not Intersect(Target, .Range.CurrentRegion) Is Nothing Then
.Resize .Range.CurrentRegion
.Sort.SortFields.Add .DataBodyRange
.Sort.Apply
End If
End With
End Sub
Il se trouve à cet emplacement :
mdp des feuilles ==> seb
mdp pour l'éditeur vba ==> vodoraix
Merci beaucoup ne serait-ce que pour avoir lu ce sujet :-)))))))))))))))))))))
Bonne soirée :-))))))))))))))