Problème exécution code VBA

[dadahorse91]

Bonjour, mon code VBA s'exécute sur toutes les colonnes et j'aimerais qu'il s'exécute sur la colonne J pour la première partie et la colonne L dans la seconde partie

Voici mon code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count = 1 And Target.Column < 12 And Target.Row > 1 Then
If Fait = False Then
If Target = "" Then
Target = "X"
With Sheets("Impression")
Derli = .Range("A65536").End(xlUp).Row + 1
Range("B" & Target.Row & ":I" & Target.Row).Copy .Range("A" & Derli)
End With
Rem changement de cellule pour pouvoir corriger
Fait = True
Target.Offset(, 1).Select
Fait = False
Else
Target = ""
With Sheets("Impression")
Derli = .Range("A65536").End(xlUp).Row + 1
For Each cell In .Range("K2:K" & Derli)
If Target.Offset(, 1) = cell Then cell.EntireRow.Delete
Next
End With
Fait = True
Target.Offset(, 1).Select
Fait = False
End If
End If
End If

If Target.Count = 1 And Target.Column < 14 And Target.Row > 1 Then
If Fait = False Then
If Target = "" Then
Target = "X"
With Sheets("Impression")
Derli = .Range("A65536").End(xlUp).Row + 1
Range("B" & Target.Row & ":I" & Target.Row).Copy .Range("J" & Derli)
End With
Rem changement de cellule pour pouvoir corriger
Fait = True
Target.Offset(, 1).Select
Fait = False
Else
Target = ""
With Sheets("Impression")
Derli = .Range("A65536").End(xlUp).Row + 1
For Each cell In .Range("M2:M" & Derli)
If Target.Offset(, 1) = cell Then cell.EntireRow.Delete
Next
End With
Fait = True
Target.Offset(, 1).Select
Fait = False
End If
End If
End If

End Sub


Merci d'avance.

 

[Paf]

Re : Problème exécution code VBA

Bonsoir,

Si j'ai bien compris, pour les deux parties, il faut préciser le numéro de la colonne voulue:

If Target.Count = 1 And Target.Column = 10 And Target.Row > 1 Then pour la première partie

If Target.Count = 1 And Target.Column = 14 And Target.Row > 1 Then pour la seconde

Bonne suite