Message confirmation apres saisie

Le 23/10/2019 à 19:54

Re,

@ tester

avec message box de protection de la feuille effectuée etc. (j'ai mis en commentaire ) ci-joint

crdlt,

André

6inventory-table4-test6.xlsm (33.59 Ko)

Le 23/10/2019 à 22:48

Franchement Bravo.

Tu est trés fort. Merci.

J'ai modifié un peu le code pour l'arranger a ma sauce, cepandant peux-tu encore m'aider pour suprimer ses 2 message:

1_ le premier message qui dit: merci, protection de la feuille en cours...

2_ le dernier qui dit ok quand tu repond oui au message: etes vous certain de votre saisie?.

Merci, Vitor

1inventory-table4.xlsm (31.36 Ko)

Le 24/10/2019 à 06:32

Bonjour toutes et tous

fort non, juste débrouillard merci pour tes compliments

ci-joint,

crdlt,

André

8inventory-table4.xlsm (32.15 Ko)

Le 24/10/2019 à 18:40

Génial, c'est pile ce que je voulais.

Merci beaucoup. juste encore une petite chose quand je veux sauvgarder avec ma Macro (Clean and Save) ça me demande également si je sui certain de ma saisie. Peut-on retirer ce message box? et peux -on également retirer le double clic??

Merci encore pour le support, Vitor

Le 24/10/2019 à 18:57

Re,

j'ai un doute de mettre en vrac le code du coup:

Spoiler

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("B5:P44"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect
    If xRg.Value <> mStr Then xRg.Locked = True
   ' MsgBox "Merci, protection de la feuille en cours..."             ' ajouter
     If MsgBox("Etes vous certain(e) de votre saisie ?", vbYesNo, "Demande de confirmation") = vbYes Then
            Target.Worksheet.Protect
          Set mRg = Target.Item(1)
              mStr = mRg.Value
          Set xRg = Intersect(Range("B5:P44"), Target)
          '  MsgBox "ok"                     ' ajouter on peut supprimer
    Else
        Target.Worksheet.Unprotect
    If xRg Is Nothing Then Exit Sub
    If xRg.Value <> mStr Then xRg.Locked = True
   ' MsgBox ("Modification cellule en cours..." & "  ") & Target  ' ajouter  supprimer le 24/10/2019 18:48
    Target.Worksheet.Unprotect
    End If

' ne pas supprimer
saveplouf:   Exit Sub
Exit Sub
    Target.Worksheet.Protect
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B5:P44"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub

ce soir c'est chaud.mais si je trouve je poste..

crdlt,

André