Bonsoir,

Depuis quelque temps je fais des essais pour assembler les deux codes ci-dessous mais sans succès, pourriez-vous m'aider ?

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 Target.Count = 1 And Target.Column <= 4 Then
    Application.EnableEvents = False
    If UCase(Range("D" & Target.Row).Value) = "N" Then
        Range("E" & Target.Row).Value = Range("F1").Value & Range("B" & Target.Row).Value
        Range("F" & Target.Row).Value = Range("C" & Target.Row).Value
    Else
        Range("E" & Target.Row).ClearContents
        Range("F" & Target.Row).ClearContents
    End If
     Application.EnableEvents = True
End If
 
End Sub

+

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 2 And Target.Row > 22 And Target.Count = 1 Then
    Application.EnableEvents = False
    If Target.Value <> "" Then
        Range("C" & Target.Row - 1 & ":AB" & Target.Row - 1).Copy Target.Offset(0, 1)
    Else
        Range("C" & Target.Row & ":AB" & Target.Row).ClearContents
    End If
    Application.EnableEvents = True
End If
End Sub
Je ne suis pas spécialiste de VBA mais ça me ferra un exemple pour l'étudier.

Merci d'avance.