Code Vba introuvable

R

RENEP

XLDnaute Nouveau
Bonjour à tous,

Je cherche de l’aide pour retrouver le texte d’une macro que j’ai cachée dans la feuille Excel ci-jointe (pour tenir mes comptes personnels).

Je l’ai tellement bien caché que je n’arrive plus à me souvenir.

Elle fonctionne à l’aide du bouton ArretCompte et elle porte ce nom.

À cause de cela, je ne peux pas passer mon fichier en .xlsx.

D’avance un grand merci à tous.
 

Pièces jointes

  • CompteBanqueX.xls
    503.5 KB · Affichages: 14
Solution
mapomme
Bonsoir à tous :),

J'ai réussi à récupérer le code ci-dessous.
Est-ce juste ou non ? Y a-t-il encore d'autres macros ? Je n'ai pas de réponse à ces questions.
Ce qui est certain c'est que votre fichier est très très mal en point. Il vaut mieux le laisser tomber et repartir de zéro.

VB: 
Sub ArretCompte()

   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   ActiveSheet.Unprotect ("")

   Range("D1").Activate
   MoisActuel = ActiveCell

   'MsgBox "La valeur du Mois Actuel est :" & MoisActuel
   Title = "CHANGEMENT DE MOIS"
   Msg = "LE SOLDE A QUEL MOIS ? (1 _ 12):"
   REP1 = Application.InputBox(Msg, Title)
   Msg = "LE SOLDE A QUELLE ANNEE ? (2012):"
   REP2 = Application.InputBox(Msg, Title)
      
   If REP1...
Trier par date Trier par votes
Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
j'ai examiné votre fichier, il y a effectivement un code vba dedans, mais inaccessible avec crash d'excel dès qu'on essaye de le récupérer. Les fonctions de réparation d'excel n'arrivent pas à réparer le fichier, les conversions en xlsm ou xlsb s'effectuent mais les fichiers résultants ont le même problème.
Comme cela, je ne vois pas de solution simple à appliquer, quelqu'un aura peut être une idée ou déjà rencontré ce problème.
Je déplace cette discussion dans le forum Excel (vous l'avez créée dans le forum de présentation)

Cordialement,
Bernard
 
Vote positif 0 Vote négatif
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir à tous :),

J'ai réussi à récupérer le code ci-dessous.
Est-ce juste ou non ? Y a-t-il encore d'autres macros ? Je n'ai pas de réponse à ces questions.
Ce qui est certain c'est que votre fichier est très très mal en point. Il vaut mieux le laisser tomber et repartir de zéro.

VB: 
Sub ArretCompte()

   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   ActiveSheet.Unprotect ("")

   Range("D1").Activate
   MoisActuel = ActiveCell

   'MsgBox "La valeur du Mois Actuel est :" & MoisActuel
   Title = "CHANGEMENT DE MOIS"
   Msg = "LE SOLDE A QUEL MOIS ? (1 _ 12):"
   REP1 = Application.InputBox(Msg, Title)
   Msg = "LE SOLDE A QUELLE ANNEE ? (2012):"
   REP2 = Application.InputBox(Msg, Title)
      
   If REP1 = 1 Then
      mois = "Janvier"
   ElseIf REP1 = 2 Then
      mois = "Fevrier"
   ElseIf REP1 = 3 Then
      mois = "Mars"
   ElseIf REP1 = 4 Then
      mois = "Avril"
   ElseIf REP1 = 5 Then
      mois = "Mai"
   ElseIf REP1 = 6 Then
      mois = "Juin"
   ElseIf REP1 = 7 Then
      mois = "Juillet"
   ElseIf REP1 = 8 Then
      mois = "Aout"
   ElseIf REP1 = 9 Then
      mois = "Septembre"
   ElseIf REP1 = 10 Then
      mois = "Octobre"
   ElseIf REP1 = 11 Then
      mois = "Novembre"
   ElseIf REP1 = 12 Then
      mois = "Decembre"
      
   End If

   REP3 = mois & "_" & REP2
   'MsgBox "La valeur concatenee :" & REP3


   Cells.Find(What:=REP3, After:=ActiveCell, LookIn:=xlFormulas, _
              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
              MatchCase:=False).Activate
      
      
   Range("X1").Value = ActiveCell.Address        'ecrit dans cellule X1 l'adresse de la cellule selectionn_e
   Rows(1).Columns("X").Parse ParseLine:="[xxx][xxxxxxxxxxxxxx]", Destination:=Range("Y1")
   Range("Z1").Activate
   'MsgBox "La valeur de la cellule est :" & ActiveCell

   MoisSuivant = ActiveCell + 87

   'MsgBox "La valeur de la cellule est :" & MoisSuivant


   Range("D1,E1,H2,H3,L2,L3,M2,N3,O4,p4,r3").Select
   Range("D1").Activate
   Selection.Replace What:=MoisActuel, Replacement:=MoisSuivant, LookAt:=xlPart, _
                     SearchOrder:=xlByRows, MatchCase:=True
      
   Range("X1:Z1").Select
   Selection.ClearContents

   Range("D1").Select
  
  
  
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   ActiveSheet.Protect ("")

End Sub

Sub PROTECTION()
   Application.ScreenUpdating = False
   ActiveSheet.Unprotect
   Application.ScreenUpdating = True
End Sub
 
Dernière édition:
Vote positif 1 Vote négatif
Solution
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Juste pour mon info personnelle en passant : est-ce un fichier venant d'un Excel pour Mac ?


RENEP à dit:
Je cherche de l’aide pour retrouver le texte d’une macro que j’ai cachée dans la feuille Excel ci-jointe (pour tenir mes comptes personnels).

Je l’ai tellement bien caché que je n’arrive plus à me souvenir.
Cliquez pour agrandir...
Tu l'as cachée avec les outils d'Excel, ou en éditant le fichier avec un outil externe ?
 
Dernière édition:
Vote positif 0 Vote négatif
R

RENEP

XLDnaute Nouveau
Bernard_XLD à dit:
j'ai examiné votre fichier, il y a effectivement un code vba dedans, mais inaccessible avec crash d'excel dès qu'on essaye de le récupérer. Les fonctions de réparation d'excel n'arrivent pas à réparer le fichier, les conversions en xlsm ou xlsb s'effectuent mais les fichiers résultants ont le même problème.
Comme cela, je ne vois pas de solution simple à appliquer, quelqu'un aura peut être une idée ou déjà rencontré ce problème.
Je déplace cette discussion dans le forum Excel (vous l'avez créée dans le forum de présentation)

Cordialement,
Bernard
Cliquez pour agrandir...
Merci !
 
Vote positif 0 Vote négatif
R

RENEP

XLDnaute Nouveau
mapomme à dit:
Bonsoir à tous :),

J'ai réussi à récupérer le code ci-dessous.
Est-ce juste ou non ? Y a-t-il encore d'autres macros ? Je n'ai pas de réponse à ces questions.
Ce qui est certain c'est que votre fichier est très très mal en point. Il vaut mieux le laisser tomber et repartir de zéro.

VB: 
Sub ArretCompte()

   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   ActiveSheet.Unprotect ("")

   Range("D1").Activate
   MoisActuel = ActiveCell

   'MsgBox "La valeur du Mois Actuel est :" & MoisActuel
   Title = "CHANGEMENT DE MOIS"
   Msg = "LE SOLDE A QUEL MOIS ? (1 _ 12):"
   REP1 = Application.InputBox(Msg, Title)
   Msg = "LE SOLDE A QUELLE ANNEE ? (2012):"
   REP2 = Application.InputBox(Msg, Title)
     
   If REP1 = 1 Then
      mois = "Janvier"
   ElseIf REP1 = 2 Then
      mois = "Fevrier"
   ElseIf REP1 = 3 Then
      mois = "Mars"
   ElseIf REP1 = 4 Then
      mois = "Avril"
   ElseIf REP1 = 5 Then
      mois = "Mai"
   ElseIf REP1 = 6 Then
      mois = "Juin"
   ElseIf REP1 = 7 Then
      mois = "Juillet"
   ElseIf REP1 = 8 Then
      mois = "Aout"
   ElseIf REP1 = 9 Then
      mois = "Septembre"
   ElseIf REP1 = 10 Then
      mois = "Octobre"
   ElseIf REP1 = 11 Then
      mois = "Novembre"
   ElseIf REP1 = 12 Then
      mois = "Decembre"
     
   End If

   REP3 = mois & "_" & REP2
   'MsgBox "La valeur concatenee :" & REP3


   Cells.Find(What:=REP3, After:=ActiveCell, LookIn:=xlFormulas, _
              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
              MatchCase:=False).Activate
     
     
   Range("X1").Value = ActiveCell.Address        'ecrit dans cellule X1 l'adresse de la cellule selectionn_e
   Rows(1).Columns("X").Parse ParseLine:="[xxx][xxxxxxxxxxxxxx]", Destination:=Range("Y1")
   Range("Z1").Activate
   'MsgBox "La valeur de la cellule est :" & ActiveCell

   MoisSuivant = ActiveCell + 87

   'MsgBox "La valeur de la cellule est :" & MoisSuivant


   Range("D1,E1,H2,H3,L2,L3,M2,N3,O4,p4,r3").Select
   Range("D1").Activate
   Selection.Replace What:=MoisActuel, Replacement:=MoisSuivant, LookAt:=xlPart, _
                     SearchOrder:=xlByRows, MatchCase:=True
     
   Range("X1:Z1").Select
   Selection.ClearContents

   Range("D1").Select
 
 
 
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   ActiveSheet.Protect ("")

End Sub

Sub PROTECTION()
   Application.ScreenUpdating = False
   ActiveSheet.Unprotect
   Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
Super !!! et merci beaucoup, c'est exactement cela.
 
Vote positif 0 Vote négatif

Discussions similaires

N
  • Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
234
Phil69970
Phil69970
Véhuel
  • Résolu(e)
Microsoft 365 Aide pour un code VBA
Réponses
10
Affichages
653
Véhuel
Véhuel
M
  • Question
Autres Perte des boutons de macros sur le simple fait de copier une cellule (Ctrl C)
2
Réponses
17
Affichages
1 K
Staple1600
Staple1600
W
  • Question
XL 2021 Double boucle
Réponses
2
Affichages
350
whiteshark
W
U
  • Résolu(e)
XL 2019 Programme tournoi
Réponses
5
Affichages
674
Unmard
U
M
  • Résolu(e)
XL 2021 calcul : Somme des quantités de chaque produit à fabriquer
Réponses
3
Affichages
690
MinstrelL
M
A
  • Question
XL 2019 Aide Classement automatique URGENT 🚨
2
Réponses
20
Affichages
2 K
ASA1920
A
J
  • Question
XL 2016 Code VBA pour selectionner une ou plusieurs lignes en fonction du contenue (chaine de caractère) d'une cellule
Réponses
9
Affichages
2 K
Mika2705
M
B
  • Question
Microsoft 365 Récupérer info d'une cellule avec Power Query
Réponses
8
Affichages
799
Bambi35
B
G
  • Question
Microsoft 365 Ajouter et supprimer des données sur tableau de bord
Réponses
6
Affichages
682
grace2023
G

Membres actuellement en ligne

20 membres et 320 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 630
Messages
2 111 381
Membres
111 118
dernier inscrit
gmc