Comment protéger la validation des données des collages

Question

Comment protéger la validation des données des collages

Orkit 45

Bonjour, Excel est sans doute un logiciel très puissant mais je ne comprend pas pourquoi certaines fonctionnalités n'évoluent pas. Comment protéger efficacement des cellules dans lesquelles il y'a une validation de données des collage (notamment lorsque l'on colle des données provenant de Word par exemple) car dans ce cas précis, même avec du VBA, c'est difficile de protéger ces cellules et lorsqu'on coédite sur Excel en ligne il n'y a pas moyen de protéger la validation des données. C'est bien de mettre l'IA mais des fonctionnalités comme ça devraient évoluer. Également pour ce qui concerne les tableaux structurés qui n'évoluent pas quand la feuille est protégée. Il y'a beaucoup trop ce genre de difficultés sur Excel qui découragent les utilisateurs qui se tournent vers d'autres solutions

0 commentaires

3 réponses

Votre réponse

Answer 1

Daniel Colardelle 331

Bonjour,

Effectivement, ça pourrait être prévu. Le problème est que, quand on colle une cellule sur une autre, on colle toutes les propriétés, dont évidemment la validation (ou son absence). Sinon, mets cette macro dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.CutCopyMode = False
  Application.CellDragAndDrop = False
End Sub

Orkit 45 Points de réputation

2025-07-29T09:21:06.62+00:00

Bonjour et merci pour votre réponse, la macro marche bien, cependant, elle ne prend pas en compte l'action coller lorsque la copie vient de Word par exemple, ainsi lorsque je copie puis colle venant de Word, tout est détruit sur la ou les cellules de validation. Avez-vous une astuce dans ce cas ou dans le cas de Excel en ligne ?

Answer 2

Daniel Colardelle 331

Bonjour,

A tester, pour une validation en E1, par exemple (valable pour le coller, à modifier pour le collage spécial). Uniquement pou Excel français :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Txt As String
  If Target.Address <> "$E$1" Then Exit Sub
  Txt = Application.CommandBars("Standard").Controls("&Annuler").List(1)
  If Txt = "Coller" Then
    Application.Undo
  End If
End Sub

Daniel

0 commentaires

Answer 3

Daniel Colardelle 331

Oups, au temps pour moi :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Txt As String
  If Target.Address <> "$E$1" Then Exit Sub
  Application.EnableEvents = False
  Txt = Application.CommandBars("Standard").Controls("&Annuler").List(1)
  If Txt = "Coller" Then
    Application.Undo
  End If
  Application.EnableEvents = True
End Sub

Daniel

0 commentaires