Assemblage de deux macros

Bonjour,

J'ai deux macros, mais je n'arrive pas à les faire fonctionner ensemble.

La première me permet d'ajouter un bouton pour valider l'ouverture de nouveaux onglets.

La deuxième me permet d'éviter qu'une personne écrase le fichier existant (éviter de sauvegarder sur le même fichier "impossible d'enregistrer"), juste qu'il soit possible de créer une version 2 (enregistrer sous).

Mais je n'arrive pas à faire une macro, pour exécuter les deux en même temps, dans le même fichier.

Pouvez-vous m'aidez SVP?

Merci

Pierre

1er:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

If Not Intersect(Target, Range("I15")) Is Nothing Then

If Target.Value = "¨" Then

For i = 2 To 6

Sheets(i).Visible = -1

Next i

Target.Offset(0, 1) = "Validez en cliquant sur le bouton rouge "

Target.Value = "þ"

Target.Offset(9, 1).Select

Exit Sub

Else

For i = 2 To 6

Sheets(i).Visible = 2

Next i

Target.Offset(0, 1) = "Validez en cliquant sur le bouton rouge "

Target.Value = "¨"

Cells(9, 1).Select

End If

End If

End Sub

2éme:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = False Then

MsgBox "Veuillez ""enregistrer sous"" et utiliser un nouveau nom"

Cancel = True

Else

MsgBox "Veuillez utiliser un nouveau nom"

End If

End Sub

Bonjour Sarf et bienvenue,

1er point essaye de mettre les balises code comme ceci.

2éme point t'es macro sont liées à des événement?? Cela est voulu? Parce-que ça peut être ça la source du probléme.

Et si possible tu peux nous transmettre un exemple de fichier .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("I15")) Is Nothing Then
If Target.Value = "¨" Then
For i = 2 To 6
Sheets(i).Visible = -1
Next i
Target.Offset(0, 1) = "Validez en cliquant sur le bouton rouge "
Target.Value = "þ"
Target.Offset(9, 1).Select
Exit Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = False Then
MsgBox "Veuillez ""enregistrer sous"" et utiliser un nouveau nom"
Cancel = True
Else
MsgBox "Veuillez utiliser un nouveau nom"
End If
End Sub

Cordialement.

Bonjour,

Merci de votre réponse.

Je vous joins un fichier excel avec ma 1er macro (C'est ma macro de base). J'aimerais ajouter à ce fichier la 2éme macro. C'est ca qui me pose un problème.

Merci de votre aide

Pierre

Hello,

Je suis désolé, mais j'ai regardé ton fichier je ne comprends pas ce que tu veux faire . Si tu peux expliquer pas à pas.

Regarde ce post pour empêcher l'enregistrement si c'est ça que tu veux faire avec ta 2 éme macro.

https://www.excel-pratique.com/fr/astuces_vba/empecher_enregistrement_fichier.php