Code Vba introuvable

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion RENEP
  • 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
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

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
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
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
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
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
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
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

jeanmi
  • Résolu(e)
XL 2010 Utilisation filtre avancée en VBA
2
Réponses
18
Affichages
613
TooFatBoy
TooFatBoy
L
  • Résolu(e)
Microsoft 365 Code VBA pour afficher fonction de tri
Réponses
9
Affichages
111
Lio2609
L
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
179
vgendron
vgendron
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
103
sousou
sousou
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
84
fanch55
fanch55
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
422
Phil69970
Phil69970
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
134
JJ69
J
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
593
Max
M
F
  • Question Question
XL 2016 copier valeurs en vba
Réponses
10
Affichages
760
Fidmo
F
L
  • Question Question
XL 2021 Kutools QR Code VBA
Réponses
2
Affichages
755
Backhandshot
B
M
  • Question 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
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
W
  • Question Question
XL 2021 Double boucle
Réponses
2
Affichages
418
whiteshark
W
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
Réponses
4
Affichages
647
phoceenjo
P
U
  • Résolu(e)
XL 2019 Programme tournoi
Réponses
5
Affichages
784
Unmard
U
J
  • Résolu(e)
XL 2021 Envoi d'email et PJ en VBA
Réponses
3
Affichages
631
JPaul78
J
J
  • Résolu(e)
XL 2013 VBA - Si cellule contient du texte défini dans une autre cellule
Réponses
6
Affichages
936
JessK
J
G
  • Question Question
XL 2010 Liste vers zone de texte formatée vers impression
Réponses
6
Affichages
561
geofco
G
B
  • Résolu(e)
Power Query récupérer fichier excel toujours de la première à la nième colonne
Réponses
7
Affichages
553
Cousinhub
Cousinhub
R
  • Résolu(e)
XL 2019 Code VBA, Macros
Réponses
3
Affichages
618
Romaricbienvenu
R
Retour