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

Macpoy à dit:

je crois que je vais formater mon disque dur et refaire toute l'installation plutôt que de tenter une réparation qui devient de plus en plus compliquée et aléatoire !!

Cliquez pour agrandir...

Marcel32 à dit:

Tu tentes de l'exécuter depuis le zip là ?

De toute façon, c'est peut-être mieux qu'il ne s'exécute pas, parce que quand on lit ça, ça fait un peu peur :

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil,


Pourtant je l'ai utilisé de nombreuses fois jadis pour réinstaller Office 2003 proprement.
(Mais évidemment c'était sur un XP , et jamais constaté de problèmes)
Et j'en fait de l'install: de la personnalisée, de la QUIET, avec ligne de commande etc...
Microsoft retire pas mal de chose, simplement pour pousser le client à upgrader leur produit.
Un exemple récent: PowerQuery, il est toujours disponible pour 2010/2013 mais plus mise à jour (avec le petit message qui va bien et incitant à passer à Office 365)
Et c'est une tradition chez Microsoft: de se faire mal à soi-même.
Combien de KBxxxx mirent le souk dans Windows après un Windows Update?

Macpoy étant prêt à faire une réinstall/formatage de son PC, il y a pas grand risque

=>Marcel32
EDITION
Microsoft est moins alarmiste que qu'assiste.com
(voir ce lien)
=>Macpoy
Je t'invite à lire ce lien où sont indiqués d'autres façons de faire des désinstallations complètes d'Office.
(Mais faut vraiment aimer les bulles pour leur consacrer autant de temps)

Cliquez pour agrandir...

soan à dit:

Bonjour Macpoy, le fil,

ton fichier "livre caisse.xls" en retour, joint en fin de post.

dans ton post #79, tu as écrit : « maintenant il subsiste un problème : le remplissage de la zone ticket dans mon classeur se fait de bas en haut (de la ligne 21 vers la ligne 6) » ; ah oui, c'est un léger petit détail ... que tu aurais dû indiquer au début ! j'ai donc adapté la macro en conséquence.

* ta feuille facture est inchangée.

* va sur la 1ère feuille ; tu y verras ceci :

Regarde la pièce jointe 1093366

* tu as rempli de bas en haut, lignes 21 à 18 : de "BB Femme standard" à "Porte clef"
(c'est Brigitte Bardot qui est une femme standard ? c'est pas plutôt une femme idole ?)

* c'est dans cet ordre des articles que ça apparaîtra sur la facture, lignes 14 à 17 :

Regarde la pièce jointe 1093367

même utilisation : 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%, lg2%: Application.ScreenUpdating = 0
  With Worksheets("Facture")
    .[A14].Resize(16, 6).ClearContents
    For lg1 = 21 To 6 Step -1
      Set cel = Cells(lg1, 6): If cel = "" Then Exit For
      lg2 = 35 - lg1: .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

euh... pour vos infobulles, vous pouvez aller buller ailleurs ? ah non, c'est vrai qu'le titre du sujet était « Vérification macro pas à pas » ; puis ensuite Macpoy a joint son fichier "livre caisse.xls" (sans infobulles sur son PC mais avec sur le mien !) c'est peut-être le PC de Macpoy qui peps pas assez ? faut lui redonner la pêche, histoire de le booster un peu ! oui, Macpoy, j'crois qu'tu vas aussi devoir faire un reboot !

soan

Cliquez pour agrandir...

soan à dit:

@Macpoy, le fil,

lis d'abord mon post #134 précédent. (clique sur le lien bleu)

voici une autre version du fichier (joint en fin de post), au cas où tu avais plutôt voulu dire que le ticket de caisse monte de bas en haut au fur et à mesure, et que sur la facture, c'est dans le même ordre des articles du ticket de caisse, de haut en bas.

la feuille facture et la 1ère feuille sont les mêmes que dans le fichier de mon post #134 ; sur la 1ère feuille, fais Ctrl e ➯ tu verras ceci, de "Porte clef" à "BB Femme standard" :

Regarde la pièce jointe 1093370

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
  lg2 = 14: Application.ScreenUpdating = 0
  With Worksheets("Facture")
    .[A14].Resize(16, 6).ClearContents
    For lg1 = 6 To 21
      Set cel = Cells(lg1, 6)
      If cel <> "" Then
        .Cells(lg2, 1) = cel 'Désignation
        .Cells(lg2, 4) = cel.Offset(, -1) 'Quantité
        .Cells(lg2, 6) = cel.Offset(, 1) 'Prix
        lg2 = lg2 + 1
      End If
    Next lg1
    .Select
  End With
End Sub

j'espère que tu me diras quelle version tu as préférée.

soan

Cliquez pour agrandir...

soan à dit:

@Macpoy

Merci pour ton retour à propos de mes 2 posts 134 et 135 ! ne t'inquiètes pas pour le temps, car on est sur un forum d'entraide, et même si on aide bénévolement, donc sans rémunération, on est là volontairement, de notre plein gré ; pas la peine de mettre un verrou, on va pas sortir ! (comme disait Coluche)

Merci aussi pour ton explication sur « BB femme Standard » ; donc si j'ai bien compris, le BonBout est spécifique aux chaussures à talon haut des femmes ; tu m'rassures : ainsi, si j'connaissais pas, c'est parce que je suis très pragmatique, et que j'en porte jamais ! j'préfère les baskets ! (Ad***s ou N**e, par exemple)

J'espère que tu réussiras à récupérer tes infobulles jaunes (si c'est pas déjà fait depuis ton dernier formatage, l'exécution de l'utilitaire spécial, et la modif du registre).​

soan

Cliquez pour agrandir...

soan à dit:

@Macpoy

Merci pour ton complément d'infos sur Brigitte Bardot le BonBout.

Y'a pas une expression « manger la banane par les deux bouts » ?
ça peut aider, si jamais le cordonnier a un p'tit creux !

Bonne chance pour tes essais, et à très bientôt ! ​

soan

Cliquez pour agrandir...

Macpoy à dit:

dans les années 2000, c'était un formatage tous les 6 mois, alors un de plus ou un de moins !!

Cliquez pour agrandir...