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

[Macpoy]

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]

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]

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]

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

 

[Macpoy]

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

 

[soan]

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 :

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]

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 :

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]

Bonsoir le fil

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

Spoiler: Dans un 1er temps, je te propose cette simplification

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]

Bonsoir le fil

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

Spoiler: Dans un 1er temps, je te propose cette simplification

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]

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]

Bonjour,

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]

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]

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]

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]

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]

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.