Discussion :

[miopie]

bonjour,
voila j'essaye de faire un range sur une ligne en partant d'une cellule fixe mais d'une cellule variable a la fin .
bien entendu je pari que c'est simple mais j'y arrive pas
voici mon code

Code :

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

1
2
3
4
5
6
7
8
 
debut = Cells(1, 6)
Selection.End(xlToRight).Select
 fin = ActiveCell.Address
Dim myRange As Range
Dim cell As Range
Set myRange = ActiveSheet.Range(debut & ":" & fin )
For Each cell In myRange

[rvtoulon]

Salut, miopie
voici un exemple,

Code :

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

1
2
3
4
Dim plage As Range
'définie la plage à partir de B2 jusqu'a la première cellule vide de la ligne 2 en allant vers la droite
Set plage = Range("B2", Range("B2").End(xlToRight))
plage.Select

Adapte le à ton cas.

[miopie]

ah mais qu'est ce que je peut etre nul
je me doutait bien que c'était simple

merci ca marche impec