Si case non vide -- verrouillage de celles-ci

Question

Bonjour,

J'utilise un fichier Excel qui répertorie dans une colonne des numéros. Ceux-ci s'écrivent à chaque fois que je scanne un code-barre.

J'aimerai savoir s'il étai possible de verrouiller ces cases une fois qu'elles sont non vides.

Merci par avance

PHILOU10120 · Answer

Bonjour

Je suppose que si le code scanné s'inscrit sur la feuille il doit avoir une macro pour réaliser cette opération, donc il doit falloir ajouter cette opération dans la macro

Voir avec les personnes compétentes en VBA

Le Pingou · Answer

Bonjour,

Supposer les codes en colonne A, vous devez d'abord déverrouiller toutes les cellules de la colonne A.

Vous pouvez utiliser le code suivant à mettre dans le module de la feuille concernée.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    ActiveSheet.Unprotect
    With Range("A" & Target.Row)
        .Locked = True
        .FormulaHidden = False
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Le Pingou · Answer

Bonjour,

Les 2 modifications, ligne 1 et 3:

If Target.Column < 6 Then
........
    
With Range(Target.Address)

Si case non vide --> verrouillage de celles-ci

3 réponses

Votre réponse

Discussions similaires

Newsletters