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

[pgz]

Bonjour.

Tu peux essayer

Code :

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

If Target.column = 5 then cells(target.row+1,1).select

Cordialement,

PGZ

[iliesss]

Merci mon Ami ça marche trés bien