Discussion :

[francois78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[francois78]

Bonjour à tous et bonjour Philippe.

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

Je me suis basé sur

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