Sélectionner des cellules adjacentes

mromain

XLDnaute Barbatruc

• 2 Septembre 2009

• #2

Re : Sélectionner des cellules adjacentes

bonjour Summer75,

voici un bout de code :

Code:

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

a+

 

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 2 Septembre 2009

• #3

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:

Code:

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

 

Vote positif 0 Vote négatif

S

Summer75

Guest

• 2 Septembre 2009

• #4

Re : Sélectionner des cellules adjacentes

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 2 Septembre 2009

• #5

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à...

 

Vote positif 0 Vote négatif