OVH Cloud OVH Cloud

différence d'écriture du code

1 réponse
Avatar
Mac Ab and O'Canada
Bonjour à tous,
Je sollicite votre expérience pour savoir un peu comment orienter l'écriture
de mon code. J'ai remarqué que certaines choses pouvaient s'écrire de façon
différente pour un résultat identique, mais y a t'il une façon particulière
pour optimiser le code?
Par exemple, quelle différence entre:
With UserForm1
.TextBox1 = Range("a1").Offset(.ComboBox1, 0)
.TextBox2 = Range("a1").Offset(.ComboBox1, 1)
.TextBox3 = Range("a1").Offset(.ComboBox1, 2)
etc...
End With

et

UserForm1.TextBox1 = Range("a1").Offset(.ComboBox1, 0)
UserForm1.TextBox2 = Range("a1").Offset(.ComboBox1, 1)
UserForm1.TextBox3 = Range("a1").Offset(.ComboBox1, 2)
UserForm1.TextBox4 = Range("a1").Offset(.ComboBox1, 3)
etc...


autre question:quelle différence entre:

Set Menusheet = ThisWorkbook.Sheets(FeuilMenus)
Row = 3
Loca = Menusheet.Cells(Row, 2)

et

Loca= ThisWorkbook.Sheets(FeuilMenus).range("D2").value

Vitesse de fonctionnement? Précision? Beauté du geste? Compréhension?
Habitude? Légèreté?
J'arrive la plupart du temps à réaliser ce que je veux (même si c'est
capilotracté...) mais quitte à écrire, autant le faire correctement.
Merci des infos que vous pourrez me donner

Mac Ab, curieux...


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.502 / Virus Database: 300 - Release Date: 18/07/2003

1 réponse

Avatar
Ellimac
Bonjour,

1) L'instruction With permet d'éviter de répéter l'élément
suivant With. Donc on s'économise en saisie.
2) L'utilisation d'une variable te permet de pouvoir
réutiliser sa valeur à plusieurs endroit de ton code.

Camille

-----Message d'origine-----
Bonjour à tous,
Je sollicite votre expérience pour savoir un peu comment
orienter l'écriture

de mon code. J'ai remarqué que certaines choses pouvaient
s'écrire de façon

différente pour un résultat identique, mais y a t'il une
façon particulière

pour optimiser le code?
Par exemple, quelle différence entre:
With UserForm1
.TextBox1 = Range("a1").Offset(.ComboBox1, 0)
.TextBox2 = Range("a1").Offset(.ComboBox1, 1)
.TextBox3 = Range("a1").Offset(.ComboBox1, 2)
etc...
End With

et

UserForm1.TextBox1 = Range("a1").Offset(.ComboBox1, 0)
UserForm1.TextBox2 = Range("a1").Offset(.ComboBox1, 1)
UserForm1.TextBox3 = Range("a1").Offset(.ComboBox1, 2)
UserForm1.TextBox4 = Range("a1").Offset(.ComboBox1, 3)
etc...


autre question:quelle différence entre:

Set Menusheet = ThisWorkbook.Sheets(FeuilMenus)
Row = 3
Loca = Menusheet.Cells(Row, 2)

et

Loca= ThisWorkbook.Sheets(FeuilMenus).range
("D2").value


Vitesse de fonctionnement? Précision? Beauté du geste?
Compréhension?

Habitude? Légèreté?
J'arrive la plupart du temps à réaliser ce que je veux
(même si c'est

capilotracté...) mais quitte à écrire, autant le faire
correctement.

Merci des infos que vous pourrez me donner

Mac Ab, curieux...


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.502 / Virus Database: 300 - Release Date:
18/07/2003



.