Boucle avec variale alphanumérique

Dranreb

XLDnaute Barbatruc

• 17 Juillet 2017

• #2

Bonsoir.
Ça m'a l'ait pas mal comme ça sauf que ça peut s'écrire plus court :

VB:

Dim N As Long
For N = 1 To 4: Worksheets("SEM" & N).[B2].Value = "TEST" & N: Next N

 

Vote positif 0 Vote négatif

D

djkiller49

Guest

• 17 Juillet 2017

• #3

Dranreb à dit:

Bonsoir.
Ça m'a l'ait pas mal comme ça sauf que ça peut s'écrire plus court :

VB:

Dim N As Long
For N = 1 To 4: Worksheets("SEM" & N).[B2].Value = "TEST" & N: Next N

Cliquez pour agrandir...

Tout d'abord bravo pour la rapidité Dranreb 🙂


En utilisant votre syntaxe, j'arrive à ça et ça fonctionne :
Dim numero As Long
Dim semaine As String

numero = 1
semaine = "SEM" & numero
While numero <= 4
Sheets("SEM" & numero).Select
Range("B2").Value = "TEST" & numero
numero = numero + 1
Wend

Mais mon exemple est une version simplifié de mon besoin alors j'aurais juste voulu une correction de ma syntaxe si c'est possible 😉
Quelle syntaxe pour cette commande : Sheets(semaine).Select

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Juillet 2017

• #4

Mais je ne vois rien d'anormal dans ce que vous avez écrit, sauf peut être les '+' pour la concaténation: '&' serait préférable.

 

Vote positif 0 Vote négatif

D

djkiller49

Guest

• 17 Juillet 2017

• #5

Dranreb à dit:

Mais je ne vois rien d'anormal dans ce que vous avez écrit, sauf peut être les '+' pour la concaténation: '&' serait préférable.

Cliquez pour agrandir...

Même pas me temps d'éditer ma réponse... Vraiment vraiment trop rapide🙂😛😀

Quelle syntaxe pour intégrer ma variable "semaine" dans cette commande :
Sheets(semaine).Select ? (cela ne fonctionne pas).

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Juillet 2017

• #6

Éviter les Select et Selection dans les macros.
Pour éviter des répétitions d'expressions, affectez les plutôt par des Set à des variables déclarées As Workbook, Worksheet, Range etc.
Et évitez autant que possible de consulter une collection sans préciser son propriétaire.
Jamais de Range sans expression WorkSheet. devant, jamais de Worksheets(x) sans préciser de quel Workbook. devant.

 

Vote positif 0 Vote négatif

D

djkiller49

Guest

• 18 Juillet 2017

• #7

Je comprends l'idée générale.
Un grand grand merci Dranred pour votre coup de main.
Bravo pour la rapidité et l'efficacité.
Longue vie aux maîtres Excel 🙂

 

Vote positif 0 Vote négatif