Concaténation avec formule ?

Bonjour,
Avec le petit code suivant :

Sub autre2()
Dim i As Byte
Dim reference As String
Dim selection As String
For i = 1 To 9
reference = CStr(i)
selection = "_B" & "reference" & "0"
Range("selection").Select
Next i
End sub

Je cherche à obtenir une série de sélections : de "_B10" à "_B90", qui désignent des zones de nom définies par ailleurs. Pour que ça fonctionne, il faudrait
que la variable 'reference' se traduise par 0,1,..9 dans la concaténation, mais ça marche pas !
Une aide serait la bienvenue.
Merci
nota: étant totalement débutant je ne suis pas parvenu à créer une fenêtre de code. désolé

Salut

Plusieurs choses si tu débutes

Précise le classeur et la feuille sur laquelle tu travailles, ça évite les embrouilles et les activate inutils.

Je vois que tu fais une sélection, si c'est pour faire un test ok par contre si c'est pour copier ou modifier leur contenu, c'est inutile, il faut directement travailler avec l'objet Range

Sinon pour une sélection, tu peux faire comme ça. A toi de modifier "F15:F17" pour le rendre paramétrable.

Code:

---

ThisWorkbook.Worksheets("Feuil1").Range("F15:F17").Select

---

Tu as aussi cette écriture qui peut simplifier le travail d'daptation

Code:

---

ThisWorkbook.Worksheets("Feuil1").Range("F15", "F17").Select

---

Pour ajouter les balises code, regarde dans le menu de l'éditeur, c'est le bouton "#", tu sélectionnes ton bout de code et tu appuies sur le bouton.

++
Qwaz

Bonjour,

Citation:

---

Je cherche à obtenir une série de sélections : de "_B10" à "_B90", qui désignent des zones de nom définies par ailleurs.

---

Avec le petit code suivant cela fonctionne :

Code:

---

1 2 3 4 5 6

Sub autre2() Dim i As Byte For i = 1 To 9 Range("_B" & i * 10).Select Next i End Sub

---

Mais le tout c'est de savoir ce que tu veux faire des sélections car là tu ne fais que sélectionner 9 cellules les unes après les autres et tu vas te retrouver à "_B90".