événement Worksheet_Change

Version imprimable

04/11/2008, 19h30
pat-bl

événement Worksheet_Change

bonjour
je voudrais savoir s'il est possible de mettre un " range " dans une cellule par rapport à

Code:

Private Sub Worksheet_Change(ByVal Target As range)

car j'ai une manipulation a insérez
merci
04/11/2008, 20h13
ucfoutu

Bonjour,

Target représente la CELLULE modifiée...

Tu peux sans doute lire ceci :

http://silkyroad.developpez.com/VBA/EvenementsFeuille/

bonjour
en faite j'ai déja

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As range)
 If Target.Column = 1 Then
    With range(Cells(Target.Row, 3), Cells(Target.Row, 36)).Interior
        Select Case Target.Value
       Case "x"
            .ColorIndex = 15
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
 
       Case Else
            .ColorIndex = xlNone
        End Select
        ThisWorkbook.Sheets("copie").range("zaza").Copy
    End With
End If
End Sub

je voudrais sans passer par un module que

Code:

ThisWorkbook.Sheets("copie").range("zaza").Copy

se range en colonne g si la cellule de la colonne a est selectionnée
est ce possible de mettre un range en g ?
merci

05/11/2008, 15h41
fring

Bonjour,

Si j'ai bien compris...

Code:

Sheets("copie").Range("zaza").Copy Cells(Target.Row, 7)
05/11/2008, 16h13
pat-bl

merci c'est ce que je rechercher depuis plusierus semaine:mrgreen: