Selction cellule avec donnée variable

Bonjour à tous

J'ai toujours une difficulté à manipuler les variables.
Voici mon problème :

Je souhaite sélectionner une plage de cellule sur la même ligne
Ce code fonctionne très bien

Code:

---

Range("B1:H1").Select

---

Le point de départ de la sélection est fixe (ici B1).
Ma difficulté est que la fin de plage de sélection (ici la colonne H) est variable.

Alors en amont, je compte le nombre de colonne et donc je sais où doit s'arrêter ma sélection.

J'ai donc un nombre mais je ne sais comment le traduire en N° de colonne.

Comment pourrais je faire ?


Excellente fin de journée à tous

Bonjour,
Il y a plusieurs manières de l'écrire.
En voici une qui sélectionne la plage B1:H1 de la feuille nommée Feuil1 après avoir activer la feuille.

Code:

---

1 2 3 4 5 6 7 8

Sub t() Dim nc As Integer nc = 8 With ThisWorkbook.Worksheets("Feuil1") .Activate Range(.Cells(1, 2), .Cells(1, nc)).Select End With End Sub

---

Pour info, il est parfaitement inutile de sélectionner une plage de cellules en VBA. On peut écrire et lire dans une plage sans la sélectionner

Exemple

Code:

---

1 2 3 4 5 6 7

Sub t() Dim nc As Integer nc = 8 With ThisWorkbook.Worksheets("Feuil1") Range(.Cells(1, 2), .Cells(1, nc)).Interior.Color = vbYellow End With End Sub

---

Un autre exemple en utilisant la propriété Resize

Code:

---

1 2 3 4 5 6 7

Sub t() Dim nc As Integer nc = 7 With ThisWorkbook.Worksheets("Feuil1") .Range("B1").Resize(1, nc).Interior.Color = vbYellow End With End Sub

---

Bonjour à tous et bonjour Philippe.

Effectivement, ce n'était pas si compliqué.

Je me suis basé sur

Citation:

---

Sub t()
Dim nc As Integer
nc = 8
With ThisWorkbook.Worksheets("Feuil1")
.Activate
Range(.Cells(1, 2), .Cells(1, nc)).Select
End With
End Sub

---

Et ca fonctionne !

Merci Philippe

Bonne journée à tous