Bonjour à tous j'ai un fichier avec une feuil1 et une feuil2.
Je souhaite pouvoir copier coller des lignes de la feuil1 à la feuil2 grâce au double click (double click = copie vers la dernière ligne vide de la feuil2, et redoubleclick suppression de la ligne créée grâce a la fonction find).
J'ai un code mais je ne connait pas la fonction Copy, Find et ne sais pas comment copier sur une dernière ligne non vide
Pouvez vous me donner un coup de mains pour ce code ...
Private Sub Worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
With target
If .Column = 10 And .Row > 1 Then
If target = "" Then
target.Value = "P"
Else
target.Value = ""
End If
End If
If .Column = 10 And .Row > 1 Then
If target.Value = "" Then
target.EntireRow.Copy 'dans la dernière ligne non vide de la colonne B de la feuille 2
Else
Find 'target.Offset(0,-7).Value dans la feuille2 et supprimer la ligne correspondante
End If
End If
End With
End Sub
Merci beaucoup d'avance !!
Je souhaite pouvoir copier coller des lignes de la feuil1 à la feuil2 grâce au double click (double click = copie vers la dernière ligne vide de la feuil2, et redoubleclick suppression de la ligne créée grâce a la fonction find).
J'ai un code mais je ne connait pas la fonction Copy, Find et ne sais pas comment copier sur une dernière ligne non vide
Pouvez vous me donner un coup de mains pour ce code ...
Private Sub Worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
With target
If .Column = 10 And .Row > 1 Then
If target = "" Then
target.Value = "P"
Else
target.Value = ""
End If
End If
If .Column = 10 And .Row > 1 Then
If target.Value = "" Then
target.EntireRow.Copy 'dans la dernière ligne non vide de la colonne B de la feuille 2
Else
Find 'target.Offset(0,-7).Value dans la feuille2 et supprimer la ligne correspondante
End If
End If
End With
End Sub
Merci beaucoup d'avance !!