Discussion :

[iliesss]

bonjour
S.V.P comment transformer mon code si dessous en boucle pour toute la colonne E

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Range("e1")) Is Nothing Then
               Range("a2").Select
    End If
 
    If Not Intersect(Target, Range("e2")) Is Nothing Then
               Range("a3").Select
    End If
 
    If Not Intersect(Target, Range("e3")) Is Nothing Then
               Range("a4").Select
    End If
 
End Sub

merci