Discussion :

[pat-bl]

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

Code :

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

Private Sub Worksheet_Change(ByVal Target As range)

car j'ai une manipulation a insérez
merci

[ucfoutu]

Bonjour,

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

Tu peux sans doute lire ceci :

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

[pat-bl]

bonjour
en faite j'ai déja

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
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 :

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

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

[fring]

Bonjour,

Si j'ai bien compris...

Code :

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

Sheets("copie").Range("zaza").Copy Cells(Target.Row, 7)

[pat-bl]

merci c'est ce que je rechercher depuis plusierus semaine