Discussion :

[dlight]

Bonjour à tous.

J'ai encore besoin de votre aide...

Après avoir sélectionné une cellule (par exemple b15), j'aimerais que le code sélectionne les 16 cellules à la droite de b15 afin de modifier l'affichage de ces 16 cellules.

Comme b15 ne sera pas toujours la cellule de départ, j'avais pensé utiliser Offset mais je ne trouve pas la bonne façon de l'écrire le code pour faire la sélection.

Merci en core une fois pour votre temps.

[mercatog]

Et si éviter le .Select?
mais bon, en réponse à ta question
si ta cellule est Cells(x,y)

Code :

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

1
2
3
With Sheets("Feuil1")
    .Range(.Cells(x, y+1), .Cells(x, y + 17)).Select
End With

[thugelife]

essaye avec le boucle for je croix que c'est plus simple.

[Didier Gonard]

essaye avec le boucle for je croix que c'est plus simple.

Non, pas du tout, au contraire, il faut toujours éviter les boucles quand on peut mieux faire car c'est chronophage

Pour dight, attention aussi, les sélections sont à éviter aussi au maximum, comme te l'indique mercatog, donc préférer genre ceci si ça répond au désiderata :

Code :

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

1
2
3
With Sheets("Feuil1")
    .Range(.Cells(x, y + 1), .Cells(x, y + 17)).Interior.Color = 3
End With

cordialement,

Didier

[Gorfael]

Salut dlight et le forum

je ne comprends pas pourquoi j'ai l'erreur 1004 dans le dernier code.

Nous non plus, mais comme on n'a pas le code
A+

[Pierre Fauconnier]

Salut.

Sur base d'un objet Cellule as Range, tu peux aussi travailler ainsi

Code :

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

Range(Cellule(1, 2), Cellule(1, 17))

[fring]

Après avoir sélectionné une cellule (par exemple b15), j'aimerais que le code sélectionne les 16 cellules à la droite de b15 afin de modifier l'affichage de ces 16 cellules.

Bonjour à tous,

Si la mise en forme doit se faire par rapport à la cellule sélectionnée, tu peux aussi faire comme ceci

Code :

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

Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 16)).Interior.ColorIndex = 3

Offset(x, y)
x = décallage de ligne
y = décallage de colonne

[dlight]

Merci à vous tous pour votre aide.

C'est exactement ce que je cherchait à faire avec le code de fring.