Message d'erreur

[Sebastienh]

Bonjour à tous,

Je souhaiterais savoir comment créer un message d'erreur.
Je m'explique :
1° - création d'un tableau excel qui pourra être rempli par quelqu'un d'autre.
2°- si une autre personne supprime ou change l'intérieur de la cellule, je souhaiterais que ce message d'erreur apparaisse.

Merci d'avance

 

[Guiv]

Re : Message d'erreur

Re,
Nouvel exemple: on peut saisir une fois et une seule dans les cellules de la plage protégée. Pour écraser une saisie, déprotéger la feuille et supprimer les données dans la cellule concernée. On peut alors faire une nouvelle saisie.
Cordialement,
Guiv

 

[Sebastienh]

Re : Message d'erreur

Splendide, merci infiniment.
Peut on mettre son propre code ?

 

[Guiv]

Re : Message d'erreur

Re,

Peut on mettre son propre code ?

Je suppose que tu veux savoir comment intégrer le code à ton fichier?

Sélectionner toutes les cellules de ta feuille et déverrouiller les cellules.
Puis Clic droit sur l'onglet de ta feuille/Visualiser le code.
Dans la fenêtre VBE, coller:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:E3")) Is Nothing Then
        ActiveSheet.Unprotect
        If Target = "" Then
            Target.Locked = False
        Else
            Target.Locked = True
        End If
        ActiveSheet.Protect
    End If
End Sub

Modifier Range("A1:E3") à ta convenance.
Fermer la fenêtre VBE
Protéger la feuille.
Et voilà.
Cordialement,
Guiv

 

[Sebastienh]

Re : Message d'erreur

Déjà encore un merci par rapport au message précèdent.
Avec ton code VBE, cela le verrouille après écriture, génial.
Mais si j'ôte la protection aucun mot de passe n'est alors demandé.
C'est là que j'aimerais mettre un mot de passe qui empêche une personne de modifier sans connaitre le mot de passe.
Merci

 

[Guiv]

Re : Message d'erreur

Re,
Lignes de code à modifier:

ActiveSheet.Unprotect Password:="toto"

et

ActiveSheet.Protect Password:="toto"

Cordialement,
Guiv

 

[Sebastienh]

Re : Message d'erreur

splendide, merci encore mille fois pour ton aide et un grand merci de façon générale.

 

[Sebastienh]

Re : Message d'erreur

Désolé, il y a un soucis:

Erreur d'exécution '1004'

 

[Guiv]

Re : Message d'erreur

Re,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:E3")) Is Nothing Then
        ActiveSheet.Unprotect Password:="toto"
        If Target = "" Then
            Target.Locked = False
        Else
            Target.Locked = True
        End If
        ActiveSheet.Protect Password:="toto"
    End If
End Sub

Si tu copies scrupuleusement ce code (en changeant la plage de cellule si besoin), il n'y a pas d'erreur.Tu peux bien sûr changer le password en respectant les guillemets.
Cordialement,
Guiv

 

[Sebastienh]

Re : Message d'erreur

Désolé, c'est moi qui devais me faire déboguer.

 

[Sebastienh]

Re : Message d'erreur

Bonjour à tous,

Je reviens vers vous car comme vous m'avez apporté la solution au mois d'avril, j'aimerais vous exposer une autre difficulté.

J'utilise le fichier excel (programme V1) que vous m'avez aidé à créer et je souhaiterais rajouter un bouton ou code d'accès pour une visibilité uniquement de 2 feuilles.

Pour récapituler le fichier que j'utilise comprend :
1 page accueil avec un bouton démarrer qui envoi sur un code et ouvre 1 ou plusieurs pages suivant le code

j'aimerais rajouter un bouton ou un code pour une visibilité d'une seule feuille existante en lecture seule.

merci d'avance
seb

 

[Sebastienh]

Re : Message d'erreur

Monsieur GUIV, qui avait penché sur ma demande, serait il là ?