XL 2010 Problème de syntaxe d'une macro

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Orson83
  • Date de début Date de début

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
Orson83

Orson83

XLDnaute Impliqué
Bonjour à tous,
J'ai réalisé une macro qui ne fonctionne pas correctement. Désolé pour mon niveau en VBA 😵
Si quelqu'un pouvait jeter un coup d'oeil, ce serait sympa 😉
Pour faire simple, je cherche à faire une action dans la feuille 2 qui est Very Hidden à l'ouverture du classeur, je fais mon action à l'intérieur, puis je la remets Very Hidden.
Les actions consistent à renseigner la cellule C10 (ce sera automatique) avec 2 messages, message 1 si la cellule est complétée, message 2 si elle est vide. J'ai inséré aussi une gestion de beug avaec On Error GoTo Fin.

VB: 
Option Explicit

Dim Sh As Worksheet

Private Sub Workbook_Open()
On Error GoTo Fin ' Gère une erreur d'exécution macro
Sheets("Feuil2").Visible = xlSheetVisible
  With Sheets("Feuil2")
    If Range("C10") = "" Then
      .Range("C10") = "123"
    If Range("C10") = "" Then
        MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
    Else
      MsgBox "Opération réalisée avec succès. Merci de transmettre ce fichier à l'éditeur."
    If Sheets("Feuil2").Visible = True
    Alors
        Sheets("Feuil2").Visible = xlSheetVeryHidden
    End If
    End If
  End With
  ' Si une erreur s'est produite...
Fin:
  MsgBox "Erreur d'éxécution. Veuillez paramétrer les macros sur : Désactiver toutes les macros avec notification."
End Sub

Merci pour votre aide.
Tchotchodu31
 
Solution
S
@Tchotchodu31, Phil,

coucou François, ton fichier en retour. 🙂

code VBA de ThisWorkbook :

VB: 
Option Explicit

Private Sub Workbook_Open()
  On Error GoTo Fin ' Gère une erreur d'exécution macro
  ActiveWindow.DisplayWorkbookTabs = False ' N'affiche pas le nom des onglets
  With Worksheets("Feuil2")
    .[C10] = GetSerialNumber(Environ("homedrive")) ' cette cellule est remplie par un procédé automatique
    If .[C10] = "" Then
      MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
    Else
      MsgBox "Opération réalisée avec succès. Merci de transmettre ce fichier à l'éditeur."
    End If
  End With
  ActiveWindow.DisplayWorkbookTabs = True ' Affiche le nom des onglets
Exit Sub
  ' Si une erreur s'est produite...
Trier par date Trier par votes
Bonjour,
1- If Range("C10") = "" Then manque le point pour référer à Feuil2 : If .Range("C10") = "" Then
2-
VB: 
    If .Range("C10") = "" Then
      .Range("C10") = "123"
    If .Range("C10") = "" Then
        MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
Si C10 est vide on met 123 ou un msgbox ? Dans l'état jamais de msgbox car si C10 vide on met 123 donc ensuite C10 n'est pas vide
3- "Alors" n'est pas une syntaxe VBA. Préférez Then
4-
Code: 
        If Sheets("Feuil2").Visible = True Then
            Sheets("Feuil2").Visible = xlSheetVeryHidden
        End If
inutile car il suffit de faire :
Sheets("Feuil2").Visible = xlSheetVeryHidden
5- Tel que conçu on passera toujours par :
Code: 
Fin:
  MsgBox "Erreur d'éxécution. Veuillez paramétrer les macros sur : Désactiver toutes les macros avec notification."
End Sub
Il manque un Exit sub pour sortir avant le msgbox s'il n'y a pas de problème :
Code: 
...
Exit Sub
Fin:
  MsgBox "Erreur d'éxécution. Veuillez paramétrer les macros sur : Désactiver toutes les macros avec notification."
End Sub
Difficile de corriger si on n'a pas exactement le besoin exprimé.
 
Vote positif 0 Vote négatif
sylvanu à dit:
VB: 
    If .Range("C10") = "" Then
      .Range("C10") = "123"
    If .Range("C10") = "" Then
        MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
Si C10 est vide on met 123 ou un msgbox ? Dans l'état jamais de msgbox car si C10 vide on met 123 donc ensuite C10 n'est pas vide
Cliquez pour agrandir...
Je crois que c'est fait exprès, pour tester si la mise à jour de la cellule a bien fonctionné. 😉
 
Vote positif 0 Vote négatif
Bonjour

Je viens de faire un petit test avec ta macro; j'ai :

1 - Remplacer :

If Sheets("Feuil2").Visible = True
Alors
par
If Sheets("Feuil2").Visible = True Then


2 Il y a trois IF ; donc il manque un END IF dans la suite de la macro

A toi de refaire le test complet

Bonne réception
 
Vote positif 0 Vote négatif
Bonjour Tchotchodu31, le forum

Pêle-mele il manquait :

un "end if"
un "then"
un "alors" en trop
Et il reste surement des erreurs au niveau des ".range..."
Car un coup tu fait :
If Range("C10") et la ligne suivante .Range("C10")
Je pense qu'il faut mettre de partout .Range("C10")
Et si tu intentais ton code il serait plus lisible pour toi et tu verrais plus facilement les erreurs
VB: 
Private Sub Workbook_Open()
On Error GoTo Fin ' Gère une erreur d'exécution macro
Sheets("Feuil2").Visible = xlSheetVisible
  With Sheets("Feuil2")
    If .Range("C10") = "" Then
      .Range("C10") = "123"
        If .Range("C10") = "" Then
            MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
        Else
          MsgBox "Opération réalisée avec succès. Merci de transmettre ce fichier à l'éditeur."
            If Sheets("Feuil2").Visible = True Then
                Sheets("Feuil2").Visible = xlSheetVeryHidden
            End If
        End If
    End If
  End With
  ' Si une erreur s'est produite...
Fin:
  MsgBox "Erreur d'éxécution. Veuillez paramétrer les macros sur : Désactiver toutes les macros avec notification."
End Sub

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour marcel32, sylvanu 😉, juvaxe, Phil69970, le forum,
Merci d'avoir regardé. j'ai fait un mix de toutes vos suggestions et je les ai appliqué dans le fichier joint.
Je ne parviens pas à rendre la feuille 2 cachée en permanence et à faire afficher les msgbox sur la feuille 1.
J'ai fait un petit résumé dans le fichier.
Merci pour votre aide.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous

Peut être ceci (non testé)
VB: 
Private Sub Workbook_Open()
On Error GoTo Fin ' Gère une erreur d'exécution macro
Sheets("Feuil2").Visible = xlSheetVisible
  With Sheets("Feuil2")
    If .Range("C10") = "" Then
      .Range("C10") = "123" ' cette cellule sera remplie par un procédé automatique
        If .Range("C10") = "" Then
            MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
        Else
          MsgBox "Opération réalisée avec succès. Merci de transmettre ce fichier à l'éditeur."
            If Sheets("Feuil2").Visible = True Then
                Sheets("Feuil2").Visible = xlSheetVeryHidden
            End If
        End If
    End If
  End With
Sheets("Feuil2").Visible = xlSheetVeryHidden
Exit Sub
  ' Si une erreur s'est produite...
Fin:
    MsgBox "Erreur d'éxécution. Veuillez paramétrer les macros sur : Désactiver toutes les macros avec notification."
   Sheets("Feuil2").Visible = xlSheetVeryHidden
End Sub
Edit : j'ai modifié le code :
Sheets("Feuil2").Visible = xlSheetHidden
en
Sheets("Feuil2").Visible = xlSheetVeryHidden

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Phil69970 à dit:
Bonjour à tous

Peut être ceci (non testé)
VB: 
Private Sub Workbook_Open()
On Error GoTo Fin ' Gère une erreur d'exécution macro
Sheets("Feuil2").Visible = xlSheetVisible
  With Sheets("Feuil2")
    If .Range("C10") = "" Then
      .Range("C10") = "123" ' cette cellule sera remplie par un procédé automatique
        If .Range("C10") = "" Then
            MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
        Else
          MsgBox "Opération réalisée avec succès. Merci de transmettre ce fichier à l'éditeur."
            If Sheets("Feuil2").Visible = True Then
                Sheets("Feuil2").Visible = xlSheetVeryHidden
            End If
        End If
    End If
  End With
Sheets("Feuil2").Visible = xlSheetHidden
Exit Sub
  ' Si une erreur s'est produite...
Fin:
    MsgBox "Erreur d'éxécution. Veuillez paramétrer les macros sur : Désactiver toutes les macros avec notification."
    Sheets("Feuil2").Visible = xlSheetHidden
End Sub
@Phil69970
Cliquez pour agrandir...
Phil69970, le forum,
J'ai testé ton code.
La feuille 2 est visible à la première ouverture jusqu'à la fermeture de la msgbox. Peut-être qu'il serait possible de la rendre invisible dès l'ouverture ?
A la deuxième ouverture, la feuille 2 est bien masquée mais il n'y a plus la msgbox qui indique que l'opération à été réalisée avec succès. Peut-on la faire afficher ?
Tchotchodu31
 
Vote positif 0 Vote négatif
Tchotchodu31 à dit:
Peut-être une piste avec la fonction :
ActiveWindow.DisplayWorkbookTabs = True/False ' Affiche / n'affiche pas le nom des onglets
Cliquez pour agrandir...
Il semblerait que je sois arrivé à gérer l'affichage des onglets 🙂. Merci de regarder si j'ai pas fait de bêtise.
Reste plus qu'à gérer l'affichage des msgbox.
 

Pièces jointes

Vote positif 0 Vote négatif
Le fil

Je suis parti du principe que la cellule C10 est vide
J'ai ensuite ouvert le fichier .....

VB: 
Private Sub Workbook_Open()
On Error GoTo Fin ' Gère une erreur d'exécution macro
ActiveWindow.DisplayWorkbookTabs = False ' N'affiche pas le nom des onglets
Sheets("Feuil2").Visible = xlSheetVisible
With Sheets("Feuil2")
    If .Range("C10").Value = "" Then
        .Range("C10") = "123" ' cette cellule sera remplie par un procédé automatique
        MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
    Else
        MsgBox "Opération réalisée avec succès. Merci de transmettre ce fichier à l'éditeur."
    End If
End With
Sheets("Feuil2").Visible = xlSheetVeryHidden
Exit Sub
  ' Si une erreur s'est produite...
Fin:
    MsgBox "Erreur d'éxécution. Veuillez paramétrer les macros sur : Désactiver toutes les macros avec notification."
    Sheets("Feuil2").Visible = xlSheetVeryHidden
ActiveWindow.DisplayWorkbookTabs = True 'Affiche le nom des onglets
End Sub
Edit :
Pour masquer les onglets
@Phil69970
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Phil69970 à dit:
Le fil

Je suis parti du principe que la cellule C10 est vide
J'ai ensuite ouvert le fichier .....

VB: 
Private Sub Workbook_Open()
On Error GoTo Fin ' Gère une erreur d'exécution macro
Sheets("Feuil2").Visible = xlSheetVisible
With Sheets("Feuil2")
    If Sheets("Feuil2").Range("C10").Value = "" Then
        Sheets("Feuil2").Range("C10") = "123" ' cette cellule sera remplie par un procédé automatique
        MsgBox "Cette opération a échoué. Veuillez contacter l'éditeur."
    Else
        MsgBox "Opération réalisée avec succès. Merci de transmettre ce fichier à l'éditeur."
    End If
End With
Sheets("Feuil2").Visible = xlSheetVeryHidden
Exit Sub
  ' Si une erreur s'est produite...
Fin:
    MsgBox "Erreur d'éxécution. Veuillez paramétrer les macros sur : Désactiver toutes les macros avec notification."
    Sheets("Feuil2").Visible = xlSheetVeryHidden
End Sub
@Phil69970
Cliquez pour agrandir...
Si la cellule C10 est vide avant la première ouverture, la msgbox affiche une erreur.
C'est à la deuxième ouverture que le msgbox est correcte car la cellule C10 est déjà renseignée.
PS : la fonction : ActiveWindow.DisplayWorkbookTabs = True/False fonctionne de mon coté
 
Vote positif 0 Vote négatif
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

M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
151
MATLEA
M
PORCHER
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
265
AtTheOne
AtTheOne
treza88
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
350
TooFatBoy
TooFatBoy
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
436
sylvanu
sylvanu
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
251
sylvanu
sylvanu
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
thunder23
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
763
Simon 1234
S
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
954
tnion
T
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
599
fanch55
fanch55
oguruma
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
594
oguruma
oguruma
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
586
patricktoulon
patricktoulon
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
1 K
ThierryP
T
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
993
job75
job75
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
664
sylvanu
sylvanu
Cédric06400
  • Résolu(e)
XL 2021 Revenir sur Excel
Réponses
6
Affichages
583
Franc58
F
oguruma
EXCEL :: VBA :: Barre de progression via un graphique cylindrique
Réponses
0
Affichages
419
oguruma
oguruma
M
  • Question Question
Microsoft 365 Utilisation du ficher Excel à plusieurs utilisateurs en simultané.
Réponses
5
Affichages
553
TooFatBoy
TooFatBoy
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
584
AtTheOne
AtTheOne
Retour