Discussion :

[rhuttin]

Bonjour, jai un petit programme qui me permet de copier le contenu d'une cellule dans une autre, mais, il n'agit que sur une colonne, je souhaite qu'il agisse sur une plage de cellules (D5:F14), je n'y arrive pas :qui peut m'aider ?
je vous joins le programme :

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Set Target = ActiveCell
 If Target.Column <> 4 Or Target.Value = "" Then Exit Sub
 Sheets("Feuil1").Range("I9").Value = Target.Value
End Sub

Merci pour l'aide précieuse que vous pourrez m'apporter.

[Invité]

Merci de mettre ton code entre balises.

Sinon pour ce que tu souhaites faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Count > 1 Or Target.Value = "" Then Exit Sub
 
    If Not Application.Intersect(Target, Range("D5:F14")) Is Nothing Then
        Sheets("Feuil1").Range("I9").Value = Target.Value
    End If
 
End Sub