Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [C1]) Is Nothing Then
On Error Resume Next
Sheets("Inscriptions").Name = Sheets("Inscriptions").Name
If Err.Number <> 0 Then Exit Sub ' Si la feuille Inscriptions n'existe pas on sort
Application.ScreenUpdating = False
If MsgBox("Etes vous bien sur de vouloir supprimer la feuille Inscriptions ?", vbYesNo, "Titre ") = vbYes Then
Application.DisplayAlerts = False
Sheets("Inscriptions").Delete
End If
End If
Fin...
...et après on m'annonce un bug
pour soan
les concours fonctionnent bien (+d'un an d'utilisation) etc...
ParIf Sheets("20").[AI2] = "nous" Then
If Sheets("20").[AI2] <> "nous" Then
Si DisplayAlerts est sur true ou false excel déclenche un message d'avertissement ou pasApplication.DisplayAlerts
Et message fait par une macro dans le codePour info J ai enlever le message d'avertissement de la macro sylvanu
If MsgBox("Etes vous bien sur de vouloir supprimer la feuille Inscriptions ?", vbYesNo, "Titre ") = vbYes Then
Ou x est le nom de ta feuilleIf Sheets(x).[AI2] <> "nous" Then
Bien sur car j’ai écritla macro aller a la feuille bug sur la formule avec X
On peut mettre une variable style
Pour info avant de lancer une nouvelle discussionBonjour Berru, Phil,
Une autre approche en PJ.
La macro se déclenche automatiquement lorsqu'on modifie la valeur de Nous C1, avec :
A vous d'adapter à votre fichier, la macro se trouve dans la feuille Nous.VB:Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [C1]) Is Nothing Then On Error Resume Next Sheets("Inscriptions").Name = Sheets("Inscriptions").Name If Err.Number <> 0 Then Exit Sub ' Si la feuille Inscriptions n'existe pas on sort Application.ScreenUpdating = False If MsgBox("Etes vous bien sur de vouloir supprimer la feuille Inscriptions ?", vbYesNo, "Titre ") = vbYes Then Application.DisplayAlerts = False Sheets("Inscriptions").Delete End If End If Fin: Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
pensez vous que cela est possible de faire pareil si code vba est modifier
Bonjour à tous
@berru76
Je ne pense pas que l'on puisse déclencher une macro si on modifie le code VBA mais on peut mettre un MDP sur le code VBA .
Mais il faut garder à l'esprit que le MDP sur excel y compris le code VBA ne dure souvent que le temps de l'écrire et donc est illusoire.
Perso :
1) Je pense que si quelqu'un connait suffisamment excel pour contourner tout ce que tu as mis en place tu perds ton temps.
2) Si au préalable tu fais preuve de pédagogie pour expliquer ce qui va se passer si le 3 arrive ...
3) Si quelqu'un vient me voir (après avoir expliqué le 2) pour m'expliquer qu'il à bricolé le code et/ou les formules et que plus rien ne fonctionne comme il faut .... la 1ere fois je serais peut être sympa (et encore pas sur) mais la 2eme fois c'est certain que je lui dirais clairement de se débrouiller (imagine d'autres mots à la place de débrouiller ! )
Et pour répondre au post #25 je te propose ce fichier.
@Phil69970
BonjourBonjour à tous
@berru76
Je ne pense pas que l'on puisse déclencher une macro si on modifie le code VBA mais on peut mettre un MDP sur le code VBA .
Mais il faut garder à l'esprit que le MDP sur excel y compris le code VBA ne dure souvent que le temps de l'écrire et donc est illusoire.
Perso :
1) Je pense que si quelqu'un connait suffisamment excel pour contourner tout ce que tu as mis en place tu perds ton temps.
2) Si au préalable tu fais preuve de pédagogie pour expliquer ce qui va se passer si le 3 arrive ...
3) Si quelqu'un vient me voir (après avoir expliqué le 2) pour m'expliquer qu'il à bricolé le code et/ou les formules et que plus rien ne fonctionne comme il faut .... la 1ere fois je serais peut être sympa (et encore pas sur) mais la 2eme fois c'est certain que je lui dirais clairement de se débrouiller (imagine d'autres mots à la place de débrouiller ! )
Et pour répondre au post #25 je te propose ce fichier.
@Phil69970