[Résolu] Eviter de recopier une ligne

[Lone-wolf]

Bonjour à tous et très bon dimanche,

j'ai un problème avec la macro suivante. En activant la cellule de la colonne F, la macro me recopie la ligne des titre, hors j'aimerais éviter celà si c'est possible.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets(1).Activate
If Not Intersect(Target, Range("a2:f65000")) Is Nothing Then
On Error Resume Next
With ActiveCell.EntireRow
If ActiveCell = Range("f:f") Then: ActiveCell.ClearContents: Range("g1:p65000").ClearContents
If ActiveCell = "" Then              'On commence la saisie en colonne A
Range("a1:f1").Copy ActiveCell
.Font.Bold = False
.Font.Color = RGB(216, 216, 216)
.HorizontalAlignment = xlLeft
Else
Target.Font.Color = RGB(0, 0, 0)
Range("d2:d65000").HorizontalAlignment = xlRight
End If
End With
End If
Application.EnableEvents = True

End Sub

A+ 😎

 

[Gareth]

Re : Eviter de recopier une ligne

Bonjour,

Vu le code, ça semble normal.
Tu veux faire quoi exactement ?

 

[Lone-wolf]

Re : Eviter de recopier une ligne

Bonjour Gareth,

si tu ouvre le fichier, tu comprendra mieux le problème, en activant la dernière cellule vide de la colonne A. 😉


Edit: la ligne " If ActiveCell = Range("f:f") Then: ActiveCell.ClearContents: Range("g1, p65000").ClearContents " est de trop.



A+ 😎

 

[Lone-wolf]

Re : Eviter de recopier une ligne

Re Gareth,

J'ai trouvé une solution:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(1).Activate
If Not Intersect(Target, Range("a2:f65000")) Is Nothing Then
ColMin = Selection.Columns(1).Column
ColMax = Selection.Columns.Count + ColMin - 1
If ColMax = 6 Then Exit Sub
On Error Resume Next
With ActiveCell.EntireRow
If ActiveCell = "" Then
Range("a1:f1").Copy ActiveCell
.Font.Bold = False
.Font.Color = RGB(216, 216, 216)
.HorizontalAlignment = xlLeft
Else
Target.Font.Color = RGB(0, 0, 0)
Range("d2:d65000").HorizontalAlignment = xlRight
End If
End With
End If
End Sub


A+ :cool:

 

[Gareth]

Re : Eviter de recopier une ligne

Re,

Tant mieux si tu as trouvé une solution.
J'ai essayé ta solution pour moi, ça fait la meme chose.
Cependant, je ne sais pas ce qu'il faut faire et ce que ça doit faire ....

 

[Lone-wolf]

Re : Eviter de recopier une ligne

Re Gareth,

effectivement ce n'est pas la bonne solution, et j'aissaie de résoudre le problème tant bien que mal.

Cependant, je ne sais pas ce qu'il faut faire

Et bien, il ne faut pas que la macro recopie la ligne si je sélectionne les cellules à partir de la colonne F.
Je ne sais pas si je me suis bien exprimé.

A+ 😎

 

[Lone-wolf]

Re : Eviter de recopier une ligne

Cette fois c'est ok,

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(1).Activate
If Not Intersect(Target, Range("a2:f65000")) Is Nothing Then
If Not Intersect(Target, Range("f2:f65000")) Is Nothing Then: Target.Font.Color = RGB(0, 0, 0): Exit Sub

With ActiveCell.EntireRow
If ActiveCell = "" Then
Range("a1:g1").Copy ActiveCell
.Font.Bold = False
.Font.Color = RGB(216, 216, 216)
.HorizontalAlignment = xlLeft
Else
Target.Font.Color = RGB(0, 0, 0)
Range("d2:d65000").HorizontalAlignment = xlRight
End If
End With
End If
End Sub

A+ 😎