Contenue d'une cellule

[cormiec]

Bonjour,


J'aimerais savoir comment faire pour qu'on ne puisse plus changer ni effacer le contenu d'une cellule après y avoir inscrit une donnée (par exemple des initialles).

Claude

 

[Guest]

Re : Contenue d'une cellule

Bonjour Cormiec,

Outils/Protection/Protéger la feuille après avoir dévérouiller toutes les cellules qui peuvent être modifiées (Format/Cellule/Protection)

A bientôt

 

[cormiec]

Re : Contenue d'une cellule

Merci,

Mais ça ne fonctionne pas comme je voudrais.
je veux qu'une personne puisse écrire dans la cellule mais que dès qu'il presse sur enter ou qu'il change de cellule, il ne puisse plus changer ni effacer le contenu de cette cellule.

Claude

 

[Guest]

Re : Contenue d'une cellule

Re bonjour Cormiec,

Alors c'est par macro: Click-droit sur l'onglet de la feuille puis visualiser le code coller les lignes ci-dessous dans le volet droit de la fenêtre qui s'ouvre. Fermer la fenêtre.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "[SIZE=4][COLOR=red]A1[/COLOR][/SIZE]" Then
        If Not IsEmpty(Target) Then
            MsgBox "Impossible de sélectionner cette cellule"
            Target.Offset(, 1).Select
        End If
    End If
End Sub

Remplacer A1 par l'adresse de la cellule concernée.
Avec cette macro une fois que la cellule est renseigner, c'est impossible de la sélectionner donc de la modifier autrement que par macro.

A bientôt

 

[cormiec]

Re : Contenue d'une cellule

MERCI,

Ça marche.
maintenant, puis-je le faire pour la collone au complet ?

Claude

 

[Guest]

Re : Contenue d'une cellule

Bonsoir Cormiec,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column= [SIZE=4][COLOR=red]1[/COLOR][/SIZE] Then
        If Not IsEmpty(Target) Then
            MsgBox "Impossible de sélectionner Les cellulles non vides de cette colonne"
            Target.Offset(, 1).Select
        End If
    End If
End Sub

En remplaçant 1 par le numéro de colonne désiré.

A bientôt

 

[cormiec]

Re : Contenue d'une cellule

Excellent,

Maintenant, est-ce possible de le faire pour plus d'une collone dans la même feuille ?

Claude