Sélectionner des cellules adjacentes

[Summer75]

Bonjour,

Comment puis-je coder l'action suivante :

Sélectionner la cellule J2
Sélectionner les 5 cellules à gauche de J2

Ensuite j'insère l'action à effectuer sur cette sélection

Puis :
Sélectionner la cellule J3
Sélectionner les 5 cellules à gauche de J3

Action à effectuer

et ainsi de suite, J4, J5....etc...jusqu'à J40 par exemple.

Merci d'avance pour votre aide !

 

[mromain]

Re : Sélectionner des cellules adjacentes

bonjour Summer75,

voici un bout de code :

Sub test()
Dim i As Integer
For i = 2 To 40
    Range("E" & i & ":I" & i).Select
    '...
    '...
Next i
End Sub

a+

 

[Guiv]

Re : Sélectionner des cellules adjacentes

Bonjour à tous,

Ou bien si on veut que la sélection se fasse automatiquement à chaque sélection d'une cellule de la colonne J:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim l As Integer
l = Target.Row
If Target.Count = 1 And Not Intersect(Target, Range("J2:J40")) Is Nothing Then
Range("E" & l & ":" & "I" & l).Select
End If
End Sub

Bonne soirée
Guiv

 

[Summer75]

Re : Sélectionner des cellules adjacentes

Merci à a tous pour vos réponses !
Ca fonctionne ! 🙂

 

[Robert]

Re : Sélectionner des cellules adjacentes

Bonjour le fil, bonjour le forum,

Summer, c'est plustôt moi qui me meurs car j'attends toujours la fin de l'histoire sur ce fil là...