Autres [Résolu] Vérification macro pas à pas

Macpoy · 23 Janvier 2021

Bonsoir le forum,
il y a quelques années je créait des macro (parfois avec votre aide) et il était possible de vérifier la valeur qu'allait renvoyer la macro (en mode pas à pas par f8) en passant le curseur sur la ligne de la macro en cours. après changement de matériel et réinstallation d'Excel (2003) je n'ai plus cette aide . sauriez vous quels paramètres me permettraient de retrouver cette astuce de programmation ? merci d'avance pour vos réponses.

Staple1600 · 24 Janvier 2021

Macpoy à dit:
effectivement sur certaines pages, j'ai la date du jour qui dois s'inscrire !!

Voila donc pourquoi ta fonction était appelée bizarrement

Bon bah, comme cela, je vais pouvoir aller me coucher l'âme en paix et la cuisse guillerette.

Macpoy · 24 Janvier 2021

Staple1600 à dit:
Re

[suggestion pour demain*]
SUR UNE COPIE
1) Tu vires tout le code VBA
(Donc pour faire simple= > Enregistrer sous => *.xlsx
Tu zippes, tu joins dans un premier message
2) Tu vires toutes les feuilles sauf une feuille
=> Enregistrer sous => *.xlsb
Tu zippes, tu joins dans un second message

Ensuite, les ceusses qui répondent sauront se débrouiller pour faire la jonction
[/suggestion pour demain]

*: pour demain, car il est tard, et demain je bosse tôt.
Donc bonne nuit.

excellente astuce! je vais tenter.
bonne nuit, merci pour ton aide.

Macpoy · 25 Janvier 2021

bonjour à tous, vous trouverez ci-joint les feuilles du classeur.

Macpoy · 25 Janvier 2021

bonjour à tous, vous trouverez ci-joint les macros du classeur.
bonne journée et bon courage.
merci d'avance pour votre aide.

soan · 25 Janvier 2021

Bonjour Macpoy, Staple,

ton 1er fichier en retour.

* tu peux voir que ta feuille facture est inchangée.

* va sur la 1ère feuille ; j'ai complété ton Ticket
avec quelques données à copier.

fais Ctrl e ➯ c'est fait !

code VBA de Module1 :

VB:

Option Explicit

Sub TestFact()
  If ActiveSheet.Name <> "ENCAISSEMENT" Then Exit Sub
  Dim cel As Range, lg1 As Byte, lg2 As Byte
  lg1 = 6: Application.ScreenUpdating = 0
  With Worksheets("Facture")
    .[A14].Resize(16, 6).ClearContents
    For lg1 = 6 To 21
      Set cel = Cells(lg1, 6): If cel = "" Then Exit For
      lg2 = lg1 + 8: .Cells(lg2, 1) = cel 'Désignation
      .Cells(lg2, 4) = cel.Offset(, -1) 'Quantité
      .Cells(lg2, 6) = cel.Offset(, 1) 'Prix
    Next lg1
    .Select
  End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

Macpoy · 25 Janvier 2021

soan à dit:
Bonjour Macpoy, Staple,

ton 1er fichier en retour.

* tu peux voir que ta feuille facture est inchangée.

* va sur la 1ère feuille ; j'ai complété ton Ticket
avec quelques données à copier.

fais Ctrl e ➯ c'est fait !

code VBA de Module1 :

VB:

Option Explicit Sub TestFact() If ActiveSheet.Name <> "ENCAISSEMENT" Then Exit Sub Dim cel As Range, lg1 As Byte, lg2 As Byte lg1 = 6: Application.ScreenUpdating = 0 With Worksheets("Facture") .[A14].Resize(16, 6).ClearContents For lg1 = 6 To 21 Set cel = Cells(lg1, 6): If cel = "" Then Exit For lg2 = lg1 + 8: .Cells(lg2, 1) = cel 'Désignation .Cells(lg2, 4) = cel.Offset(, -1) 'Quantité .Cells(lg2, 6) = cel.Offset(, 1) 'Prix Next lg1 .Select End With End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

bonjour, merci pour cette macro qui fonctionne très bien, mais que je vais adapter pour mon classeur final.
par contre pour te rendre compte de mon usine à gaz, il faudrait rassembler les 2 classeurs que j'ai mis en pièce jointes et utiliser le bouton saisie vente sur la page encaissement puis après avoir saisie quelques ventes cliquer sur le bouton facture du userform5 .
de mon coté je continu à rendre ce classeur en adéquation avec mes besoins.

Staple1600 · 25 Janvier 2021

Bonsoir le fil

=>Macpoy
Je vois que mon astuce s'est trouvée "payante"
J'ai donc pu lire tes codes VBA

VB:

Sub testA()
'Espèces
Paiement 1
End Sub
Sub testB()
'virement
Paiement 4
End Sub

Private Sub Paiement(Choix)
P = Array("Esp", "Chq", "Cb", "virement")
With Sheets("RECAP FICHE")
    .[K30] = .[K24].Value: .[AN11].Value = P(Choix - 1)
    .[K26,K32] = "": .[K30,K32].Interior.ColorIndex = 40
End With
End Sub

Si j'ai d'autres idées de simplification, je viendrai les poster ici au fil de l'eau.

Macpoy · 25 Janvier 2021

Staple1600 à dit:
Bonsoir le fil

=>Macpoy
Je vois que mon astuce s'est trouvée "payante"
J'ai donc pu lire tes codes VBA

VB:

Sub testA() 'Espèces Paiement 1 End Sub Sub testB() 'virement Paiement 4 End Sub Private Sub Paiement(Choix) P = Array("Esp", "Chq", "Cb", "virement") With Sheets("RECAP FICHE") .[K30] = .[K24].Value: .[AN11].Value = P(Choix - 1) .[K26,K32] = "": .[K30,K32].Interior.ColorIndex = 40 End With End Sub

Si j'ai d'autres idées de simplification, je viendrai les poster ici au fil de l'eau.

merci beaucoup pour ton implication, je prendrais avec plaisir toutes les simplifications ou améliorations proposées.
de mon coté j'ai bien avancé sur la création de la sauvegarde en pdf (grâce à PDFCreator, (ben oui !! excel 2003 !! ) de la feuille facture, ainsi que la possibilité de l'imprimer.
mais je n'ai toujours pas trouvé pourquoi je n'ai pas la bulle jaune d'information lors du pas à pas de mes macro !!

soan · 26 Janvier 2021

Bonjour Macpoy, le fil,

sur ton post #51, tu as écrit : « merci pour cette macro qui fonctionne
très bien » ; merci pour ton retour ! tu as aussi écrit : « que je vais
adapter pour mon classeur final » ; j'espère que tu y es arrivé !

tu as écrit : « il faudrait rassembler les 2 classeurs que j'ai mis en PJ et
utiliser le bouton saisie vente sur la page encaissement puis après avoir
saisi quelques ventes cliquer sur le bouton facture du userform5. » ;
j'espère que tu y es arrivé aussi ; bonne chance !

soan

TooFatBoy · 26 Janvier 2021

Bonjour,

Staple1600 à dit:
Re

[suggestion pour demain*]
SUR UNE COPIE
1) Tu vires tout le code VBA
(Donc pour faire simple= > Enregistrer sous => *.xlsx
Tu zippes, tu joins dans un premier message
2) Tu vires toutes les feuilles sauf une feuille
=> Enregistrer sous => *.xlsb
Tu zippes, tu joins dans un second message

Ensuite, les ceusses qui répondent sauront se débrouiller pour faire la jonction
[/suggestion pour demain]

*: pour demain, car il est tard, et demain je bosse tôt.
Donc bonne nuit.

Pour info, on n'est pas obligé d'heberger le classeur sur le forum, surtout s'il est trop volumineux : on peut l'héberger ailleurs (par exemple sur cjoint.com) et donner ici le lien de téléchargement.

Ça évite de charcuter un pauvre fichier qui n'a rien demandé...

soan · 26 Janvier 2021

Bonjour Marcel32, le fil,

ce que tu dis était vrai avant la modification de la charte de XLD ;
maintenant, ce n'est plus possible ! 1ère rubrique « Pour tous »,
il y a, parmi « 11 - Autres points d'attention : » :

ainsi, des sites de partage de fichiers comme cjoint.com ou mon-partage.fr sont
dorénavant interdits, pour les demandeurs et pour les contributeurs. (avec ou sans
autorisation de sortie, et avec ou sans masque ! )

depuis, perso, je m'occupe uniquement des fichiers joints directement sur le forum,
en PJ d'un post ; donc si le fichier ne passe pas (même s'il a été zippé) : tant pis ! et je
vais pas m'amuser à perdre du temps à assembler les morceaux de puzzle d'un
fichier qui a été charcuté ! c'est pour ça que j'arrête l'aide sur ce sujet : je laisse
la suite à un autre intervenant.

soan

TooFatBoy · 26 Janvier 2021

OK. Au temps pour moi. Je n'avais pas compris ça comme ça.

Perso, j'avais compris que ça disait simplement de ne pas mettre de lien vers un fichier hébergé sur un autre forum où la réponse à la question a déjà été donnée.

Macpoy · 26 Janvier 2021

Marcel32 à dit:
OK. Au temps pour moi. Je n'avais pas compris ça comme ça.

Perso, j'avais compris que ça disait simplement de ne pas mettre de lien vers un fichier hébergé sur un autre forum où la réponse à la question a déjà été donnée.

Merci Marcel d'avoir essayé.
ça dû arrivé à plusieurs d'entre vous, plus vous charcutez un classeur, plus il grossi !! comme si chaque coup de "scalpel" restait en mémoire dans le classeur et venait s'additionnait à son poids !! par exemple mon classeur d'origine faisait environ 2.25 Mo et de sauvegarde en charcutage je suis monté à 4.31 Mo. j'ai donc pris la lourde résolution de repartir sur un classeur tout neuf et y copier les macro et le contenu des feuilles, résultat 1.29 Mo et tout fonctionne !!

Macpoy · 26 Janvier 2021

soan à dit:
Bonjour Macpoy, le fil,

sur ton post #51, tu as écrit : « merci pour cette macro qui fonctionne
très bien » ; merci pour ton retour ! tu as aussi écrit : « que je vais
adapter pour mon classeur final » ; j'espère que tu y es arrivé !

tu as écrit : « il faudrait rassembler les 2 classeurs que j'ai mis en PJ et
utiliser le bouton saisie vente sur la page encaissement puis après avoir
saisi quelques ventes cliquer sur le bouton facture du userform5. » ;
j'espère que tu y es arrivé aussi ; bonne chance !

soan

Bonjour Soan, effectivement je viens d'essayer et ce n'est pas simple de refaire fonctionner ce classeur, mais comme je le connais bien, j'arrive à trouver ou cela "merde" !!
j'ai terminé mon classeur hier soir, il lui ne lui reste plus qu'à affronter la réalité de la boutique!! je crois avoir envisagé tous les cas et ça passe crème ! et avec toutes ces modifications il ne pèse plus que 1,29Mo au lieu de 2.25 Mo !!

MAIS j'ai toujours mon problème de bulle info lors du débogage en pas à pas.

veux tu que je tente de joindre ce classeur rénové amélioré ?

TooFatBoy · 26 Janvier 2021

Macpoy à dit:
Merci Marcel d'avoir essayé.
ça dû arrivé à plusieurs d'entre vous, plus vous charcutez un classeur, plus il grossi !! comme si chaque coup de "scalpel" restait en mémoire dans le classeur et venait s'additionnait à son poids !! par exemple mon classeur d'origine faisait environ 2.25 Mo et de sauvegarde en charcutage je suis monté à 4.31 Mo.

Oui, cela m'est arrivé plusieurs fois.

Quand ça m'arrivait, avant de repartir de zéro j'essayais de sauvegarder sous un autre format ou de passer par OOo.

Quant à ton problème d'info-bulle (ça m'est aussi arrivé mais pas de façon permanente, donc je pense que ça venait d'une saturation de la mémoire), si c'est sur tous les fichiers tu peux éventuellement essayer de contourner le problème en utilisant les espions (en ajoutant une variable si besoin), comme cela t'a été indiqué plus haut.

ps : désolé d'avoir pollué ton sujet avec mon intervention apparemment un peu limite par rapport à la charte.

Autres [Résolu] Vérification macro pas à pas

Macpoy

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Macpoy

XLDnaute Impliqué

Macpoy

XLDnaute Impliqué

Pièces jointes

Macpoy

XLDnaute Impliqué

Pièces jointes

soan

XLDnaute Barbatruc

Pièces jointes

Macpoy

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Macpoy

XLDnaute Impliqué

soan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Macpoy

XLDnaute Impliqué

Macpoy

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Discussions similaires