Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Confirmation effacement

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

cj welch

XLDnaute Occasionnel
Bonsoir,

j 'ai créée le code suivant :

Code: 
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
​
 
Trier par date Trier par votes
cj welch à dit:
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
​
Cliquez pour agrandir...
Bonjour,
Essaie comme ci-dessous.
-Une seule macro
-Code de confirmation ==> toto
VB: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
'-----------
 
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
656
Phil69970
S
  • Question Question
XL 2016 Inversion jour / mois
Réponses
2
Affichages
525
dysorthographie
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
577
Dégé59
D
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
841
sylvanu
D
  • Question Question
Microsoft 365 Problème avec remplacer . par ,
Réponses
3
Affichages
546
de_hanstrapp
D
T
  • Question Question
Microsoft 365 Modification formules via VBA
Réponses
1
Affichages
331
Dudu2
N
  • Résolu(e)
XL 2019 transformation de cordonnée GPS
Réponses
14
Affichages
1 K
sylvanu
B
  • Question Question
Microsoft 365 Remplacer "." par "," avec VBA sans qu'il considère que c'est des milliers si ça ne commence par "0."
Réponses
1
Affichages
683
Eric KERGRESSE
E
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
570
Francky79
F
M
  • Question Question
XL 2016 Problème avec fonction VBA
Réponses
7
Affichages
744
MCOTTEND
M
A
  • Résolu(e)
XL 2016 Selection.replace inopérante
Réponses
4
Affichages
641
albuqs
A
  • Question Question
XL 2016 excel VBA : recherche dans une colonne sans la sélectionner
Réponses
4
Affichages
607
job75
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
726
Francky79
F
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
848
Usine à gaz
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
  • Question Question
XL 2016 Définir un nom en vba
Réponses
3
Affichages
614
Phillip
E
  • Résolu(e)
XL 2019 Format Date Anglais / Francais
Réponses
5
Affichages
2 K
EDI9366
E
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
2 K
halecs93
Y
  • Résolu(e)
XL 2013 Recherche qui fonctionne avec le texte et non la Value
Réponses
3
Affichages
569
youguybass
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…