XL 2016 Interdire de saisir en colonne

Seddiki_adz · 25 Juin 2023

bonjour
je cherche une formule ou une méthode d’interdire de saisir en colonne C et D si en a M1 et M2 en colonne B et interdire de saisir en colonne E et F si en a M3 et M4 en colonne B et interdire de saisir en colonne G et H si en a M5 et M6 en colonne B et interdire de saisir en colonne I et J si en a M7 et M8 en colonne B et interdire de saisir en colonne K et L si en a M9 et M10 en colonne B
Merci

Seddiki_adz · 26 Juin 2023

mapomme à dit:
Re,

La version avec liste de validation peut poser un problème si on change la valeur en colonne B.
Dans ce cas, on peut se retrouver avec des cellules ayant déjà une valeur avant le changement de la colonne B et ne devant pas en comporter après la nouvelle valeur de la colonne B.

La version VBA répond en partie à ce défaut.

Elle n'empêche pas la saisie dans les cellules interdites mais annule la saisie.

Elle prend en compte le changement de valeur de la colonne B.

Elle permet la saisie multi-cellules.

Le code est dans le module associé à la feuille "Feuil1" :

VB:

Private Sub Worksheet_Change(ByVal Target As Range) Dim der&, i&, n&, k& On Error GoTo FIN Application.EnableEvents = False der =...

ChRouan · 25 Juin 2023

Bonsoir. A mon avis il faudra obligatoirement passer par une macro Visual Basic pour modifier le statut verrouillé/déverrouillé des cellules puis protéger la feuille, avec ou sans mot de passe. Cette macro devra s'exécuter chaque fois qu'il y a modification d'une cellule dans la colonne B.

mapomme · 25 Juin 2023

Bonsoir @Seddiki_adz , @ChRouan ,

Avec une liste de validation pour chaque plage de couleur (voir fichier joint).

Seddiki_adz · 25 Juin 2023

mapomme à dit:
Bonsoir @Seddiki_adz , @ChRouan ,

Avec une liste de validation pour chaque plage de couleur (voir fichier joint).
Regarde la pièce jointe 1173420

Merci

Seddiki_adz · 25 Juin 2023

ChRouan à dit:
Bonsoir. A mon avis il faudra obligatoirement passer par une macro Visual Basic pour modifier le statut verrouillé/déverrouillé des cellules puis protéger la feuille, avec ou sans mot de passe. Cette macro devra s'exécuter chaque fois qu'il y a modification d'une cellule dans la colonne B.

Merci

ChRouan · 25 Juin 2023

mapomme à dit:
Bonsoir @Seddiki_adz , @ChRouan ,

Avec une liste de validation pour chaque plage de couleur (voir fichier joint).
Regarde la pièce jointe 1173420

En effet, c'est judicieux, pas besoin de passer par une macro.

mapomme · 26 Juin 2023

Re,

La version avec liste de validation peut poser un problème si on change la valeur en colonne B.
Dans ce cas, on peut se retrouver avec des cellules ayant déjà une valeur avant le changement de la colonne B et ne devant pas en comporter après la nouvelle valeur de la colonne B.

La version VBA répond en partie à ce défaut.

Elle n'empêche pas la saisie dans les cellules interdites mais annule la saisie.
Elle prend en compte le changement de valeur de la colonne B.
Elle permet la saisie multi-cellules.

Le code est dans le module associé à la feuille "Feuil1" :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim der&, i&, n&, k&
   On Error GoTo FIN
   Application.EnableEvents = False
   der = Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1
   For i = 2 To der
      If Not Intersect(Target, Range("b" & i & ":L" & i)) Is Nothing Then
         If (Cells(i, "b") Like "M#") Or (Cells(i, "b") Like "M##") Then
            n = CInt(Mid(Cells(i, "b"), 2)) - 1: n = n \ 2
            If n <= 4 Then Cells(i, "c").Offset(, 2 * n).Resize(, 2).ClearContents
         End If
      End If
   Next i
FIN:
   Application.EnableEvents = True
End Sub

Seddiki_adz · 26 Juin 2023

mapomme à dit:
Re,

La version avec liste de validation peut poser un problème si on change la valeur en colonne B.
Dans ce cas, on peut se retrouver avec des cellules ayant déjà une valeur avant le changement de la colonne B et ne devant pas en comporter après la nouvelle valeur de la colonne B.

La version VBA répond en partie à ce défaut.

Elle n'empêche pas la saisie dans les cellules interdites mais annule la saisie.

Elle prend en compte le changement de valeur de la colonne B.

Elle permet la saisie multi-cellules.

Le code est dans le module associé à la feuille "Feuil1" :

VB:

Private Sub Worksheet_Change(ByVal Target As Range) Dim der&, i&, n&, k& On Error GoTo FIN Application.EnableEvents = False der = Me.UsedRange.Row + Me.UsedRange.Rows.Count - 1 For i = 2 To der If Not Intersect(Target, Range("b" & i & ":L" & i)) Is Nothing Then If (Cells(i, "b") Like "M#") Or (Cells(i, "b") Like "M##") Then n = CInt(Mid(Cells(i, "b"), 2)) - 1: n = n \ 2 Cells(i, "c").Offset(, 2 * n).Resize(, 2).ClearContents End If End If Next i FIN: Application.EnableEvents = True End Sub

Excellent Merci

XL 2016 Interdire de saisir en colonne

Seddiki_adz

XLDnaute Impliqué

Pièces jointes

Seddiki_adz

ChRouan

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Pièces jointes

Seddiki_adz

XLDnaute Impliqué

Seddiki_adz

XLDnaute Impliqué

ChRouan

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Pièces jointes

Seddiki_adz

XLDnaute Impliqué

Discussions similaires