Confirmation effacement

[cj welch]

Bonsoir,

j 'ai créée le code suivant :

Sub Macro2()
'
' Macro2 Macro
ActiveSheet.Unprotect Password:="ln"
Call Message
'
    Range("A4:B11").Select
    Selection.Replace What:="1", Replacement:="N", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="2", Replacement:="N", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

          ActiveSheet.Protect Password:="ln"

End Sub

Sub Message()
   
    rep = MsgBox("Voulez-vous faire une remise a zero ?", 20)
    If rep = 7 Then End

End Sub

je souhaiterai modifier le message :
Quand je clic sur oui, il me propose un code de confirmation "oui" (a recopier)pour que la modification s'opère

Merci pour votre aide
​

 

[Lone-wolf]

Bonjour cj et bonne année.


Le code que tu as créé est un code de modification de cellules; le titre du message est: Confirmation effacement. Que veux-tu faire au juste?

 

[Jacky67]

Bonsoir,

je souhaiterai modifier le message :

Quand je clic sur oui, il me propose un code de confirmation "oui" (a recopier)pour que la modification s'opère

Merci pour votre aide
​

Bonjour,
Essaie comme ci-dessous.
-Une seule macro
-Code de confirmation ==> toto

Sub Macro2()
If MsgBox("Voulez-vous faire une remise a zero ?", 20, "Confirmation") = 7 Then Exit Sub
If InputBox("Entrez le code de confirmation", "Code") <> "toto" Then Exit Sub
ActiveSheet.Unprotect Password:="ln"
With Range("A4:B11")
.Replace "1", "N"
.Replace "2", "N"
End With
ActiveSheet.Protect Password:="ln"
End Sub

 

[Lone-wolf]

Bonjour jacky, cj

Un autre exemple en PJ. Mot de passe cj

 

[cj welch]

MERCI Messieurs cela est parfait
Cordialement

 

[cj welch]

re,
j' ai une autre petite question
Que dois je mettre à la place du 1 dans le code
( .Replace "1", "N") pour remplacer une cellule vide par N
J' ai rentrée ce code .Replace " ", "N" mais cela ne marche pas
merci par avance

 

[Jacky67]

re,
j' ai une autre petite question
Que dois je mettre à la place du 1 dans le code
( .Replace "1", "N") pour remplacer une cellule vide par N
J' ai rentrée ce code .Replace " ", "N" mais cela ne marche pas
merci par avance

Re...
Ajouter aux 2 autres
.Replace "", "N"

 

[cj welch]

merci c'est parfait
je viens de tester le code est j 'ai un autre problème
Pour des cellule ou il est inscrit DSP
Quand je lance la macro
Il me remplace la cellule par DN alors que le code correspondant est .Replace "DSP", "N"
j 'ai verifié la formule, je l'ai supprimé puis réinstallé
j' ai supprimé la ligne ou était inscrit DSP puis réinstallé
Rien a faire je ne trouve pas
aurais tu une idée ?

merci

 

[Jacky67]

E

Il me remplace la cellule par DN alors que le code correspondant est .Replace "DSP", "N"

Re..
Pour moi, ceci fait parti des miracles
Téléverse un classeur avec quelques données.

 

[cj welch]

bonjour,
ci-joint fichier essai
crois tu que l'on puisse mettre un message si le code tapé est faux
merci encore pour ton aide
Cordialement

 

[Jacky67]

Re...
Avant de continuer....
Dans ton exemple la zone modifiable est "C4:X25"
Et La macro travail sur "C4:X63"
Quelle est la zone réelle ??
Pour la remise à zéro
'------------
With Range("C4:X25")
.Value = "N"
End With
'-----------

 

[cj welch]

Re ....

Normalement, la macro doit fonctionner sur ("C4:X63")
j ai supprimer des lignes pour l'exemple, il faut travailler sur C4:X25 (j' ai oublier de modifier la plage dans la macro)
Cordialement

 

[Jacky67]

Re....
Heu.....
Normalement, la macro doit fonctionner sur ("C4:X63")
...il faut travailler sur C4:X25
On fait quoi alors ?

Un exemple en pj avec la plage C4:X25 et un message si le code est incorrect.
NB* La multiplication des messages devient vite agaçant.
Edit:
Exemple 2 avec un unserform de confirmation et mdp invisible.

 

[cj welch]

Merci Jacky67 c'est parfait
Merci encore pour a patience et ta disponibilité
Très cordialement