[VBA-E] Erreur automation

:yaisse:

Là pour une fois j'en sais plus que toi mega :)

comme l'a dit bidou, 1 bit c'est 1 bit (plus petite unité qui contient 0 ou 1) et un byte c'est un octet soit 8 bits.

C'est pour ca que j'ai été surpris de voir qu'un boolean prenait 2 bytes (j'aurais pensé à 1 bit...)

Dailleurs on retrouve bien qu'un type Byte puisse avoir 256 valeurs possibles, car il fait 1 byte (comme son nom l'indique ;)) de taille.
Soit 2^8 = 256 valeurs possibles (2 car je le rappele un bit c'est 0 ou 1 donc 2 choix possibles)

c'est parce que VB utilise des représentation entière pour les boolean -1 pour vrai, 0 pour faux

Donc si j'ai bien compris, c'est aprce que utilise -1 et 0 comme valeur (et non pas 0 et 1) que la taille d'un boolean fait 2bytes alors que ca pourrait faire 1 bit soit 16 fois moins ??

Quel est l'interet? 8O

non, je supprime cette réponse... Je ne sais pas ce qui m'a pris...

Bon allez c'est mon poste je te garde :D

Mais c'est limite ce genre de blagues :P :P

Dans l'attente d'une réponse sérieuse.... :wink:

Hello Elstak,
J'aurais pu le deviner sinon le savoir mais je n'avais effectivement jamais remarqué qu'un booléen était sur deux octets donc autant qu'un integer. Ceci dit, l'intérêt est qu'il est fait pour simplifier le code puisque tu n'as pas à lui affecter de valeur lors d'une comparaison

Code:

---

ok = 12 > 9

---

au lieu de

Code:

---

if 12 > 9 then ok = 1

---

Ce qui fait une instruction de moins
Ensuite, tu peux mettre

Code:

---

if ok then

---

au lieu de

Code:

---

if ok = 1 then

---

Un élément de comparaison de moins
Ensuite tu peux enchaîner une série de comparaisons avec des and et des or tout en conservant un code lisible

Code:

---

1 2 3

ok = 12 > 9 and Var = 15 or Var2 = 12 ok = ok and len(LaPhrase) > Len(Lemot) ok = ok or not FichierOuvert 'autre boolean que tu connais...

---

etc.
Imagine ça sur une ligne, tu arrives à la fin avec 25 parenthèses et tu n'es sûr de rien avant d'avoir testé.
Enfin, tu peux faire des tableaux de booléens et dans une boucle connaître l'index du boolean actif et agir en conséquence...
Et j'en passe sûrement.
Ceci dit il est des cas où l'on n'a pas d'intérêt à les utiliser, quand une condition vérifiée ne doit plus varier, dans une boucle, par exemple.

Code:

---

if condition then exit for

---

ou il est idiot de passer par un booléen même s'il m'arrive de le faire :cry:

Voilà ! C'était ma plaidoirie en faveur des booléens. Mais tu n'es pas obligé de les utiliser, bien sur. :twisted:

Maintenant, de toutes façons on ne sait plus quel est ton vrai problème, alors tu vas devoir éclairer ce cher megapixel :wink:

A+

Beuh !

Mon vrai probleme comme tu dis, c'etait de savoir comment supprimer le code qu'il y avait sur ma page copiée mais j'ai abandonné :oops:

Il n'y a que 3 lignes (juste un truc nombouton_click et l'appel de la procedure)

Il est un peu idiot de le laisser car le bouton n'existe plus mais je ne vois pas comment le supprimer et ce n'est pas ca qui alourdira mes pages... enfin si quelqu'un a une idee pour supprimer le code, je suis toujours preneur :wink:

Si tu fais une recherche sur "VBProject", sur ce forum, tu devrais trouver ton bonheur. Avec ça, tu peux accéder aux modules, et écrire dedans (ou supprimer des lignes).

Je ne l'ai jamais fait dans une feuille de code d'une feuille de calcul mais voici toujours ce que j'utilise pour des macros situées dans un module.
Faudra l'adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub supprimerUneMacroPrecise() 'Supprimer la macro nommée NomMacro dans le module NomModule Dim Debut As Integer, Lignes As Integer Dim NomMacro, NomModule NomModule = InputBox("Saisir le nom du module de la macro à supprimer", "") NomMacro = InputBox("Saisir le nom de la macro à supprimer : ", "") With Workbooks("Perso.xls").VBProject.VBComponents(NomModule).CodeModule Debut = .ProcStartLine(NomMacro, 0) Lignes = .ProcCountLines(NomMacro, 0) '.DeleteLines Debut, Lignes 'Valider pour supprimer la macro End With End Sub

---

Juste pour le principe. A ADAPTER
Fais tes essais sur un classeur tout neuf dans lequel tu auras placé du code dans la feuille de code d'une feuille de calcul.

Pour info, une feuille de calcul est assimilée à un module comme "VBComponents" dans un "VBProject".
Dans l'inputbox, tu peux donc mettre le nom ta feuille en tant que Module "NomModule".

Pour le reste, tu prends tes responsabilités :wink: mais tu nous tiens au courant de tes expériences, qu'on rigole un peu...

A+

Yop, je revien juste d'une recherche avancée et j'ai trouvé comment supprimer le code de modules (mais pas sur des feuilles :? )

Donc je vais essayer la methode du dodo (déjà de la comprendre :lol: )

Je vous tiens au courant :P

J'oserai pas :wink:

non ca va en fait ca fait toujours peur à premiere vue mais j'ai directement compris :)

j'ai testé ca :


Ca c'est le code de feuil1 (à suprimer dans la copie)

Code:

---

1 2 3

Private Sub export_Click() Call Exporter(ActiveSheet.Name) End Sub

---

ensuite j'ai betement testé un appel de ta procédure (le code suivant se trouve dans module1 de la feuille source, le module n'est pas copié)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Public Sub Exporter(ByVal Nomfeuille As String)   Dim Ceclasseur As Workbook Dim Copie As Workbook     Set Ceclasseur = ActiveWorkbook Ceclasseur.Sheets(Nomfeuille).Copy ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Copie.xls" ActiveWorkbook.Worksheets(Nomfeuille).OLEObjects(1).Delete Call supprimerUneMacroPrecise ActiveWorkbook.Save ActiveWorkbook.Close   End Sub   Sub supprimerUneMacroPrecise() 'Supprimer la macro nommée NomMacro dans le module NomModule Dim Debut As Integer, Lignes As Integer Dim NomMacro, NomModule NomModule = InputBox("Saisir le nom du module de la macro à supprimer", "") NomMacro = InputBox("Saisir le nom de la macro à supprimer : ", "") With Workbooks("Copie.xls").VBProject.VBComponents(NomModule).CodeModule Debut = .ProcStartLine(NomMacro, 0) Lignes = .ProcCountLines(NomMacro, 0) '.DeleteLines Debut, Lignes 'Valider pour supprimer la macro End With   End Sub

---

Et j'ai une erreur à la ligne :

Code:

---

Debut = .ProcStartLine(NomMacro, 0)

---

"Sub ou fonction non définie"

Pour "nommodule", je rentre "feuil1" (nom de la feuille)
Pour "nommacro", je rentre "export" (nom de la sub appelée feuil1)


Voilà là je sais pas trop quoi faire, la procstartline ca me dit rien...

(j'utilise excel 2000 si ca peut expliquer quelque chose...)

Citation:

---

Je ne l'ai jamais fait dans une feuille de code d'une feuille de calcul

---

Je me répète donc... :(
Ceci dit, F1 sur ProcStartLine te permettra peut-être d'avoir des explications sur cette méthode... :wink: mais c'est pas sûr, certaines instructions ont changé entre VBA 97 et les versions ultérieures.

A part ça, je vérifierais la cohérence entre la saisie et la réalité :x , en mettant un point d'arrêt sur la ligne en question et je vérifierais déjà les noms saisis. Sait-on jamais...
Après, je ne sais pas :cry: mais ne désespère pas, il y aura bien quelqu'un pour corriger le tir.

Par contre, à ta place je posterais sur ce problème spécifique : "[VBA-E]Supprimer par macro, macro dans code feuille" ou un truc comme ça.
Il y aura bien une bonne âme.

A+

Hey,

ouep javai bien lu que t'avais jamais testé dans ce cas là mais la phrase :

Citation:

---

Envoyé par ouskel

Pour info, une feuille de calcul est assimilée à un module comme "VBComponents" dans un "VBProject".
Dans l'inputbox, tu peux donc mettre le nom ta feuille en tant que Module "NomModule".

---

me laissait esperer que ca fonctionne !!

Enfin je vais suivre ton conseil, je vais mettre ce sujet comme résolu et en poster un autre :wink: