supprimer lignes dans tableau

[geoval]

bonjour,

dans le fichier ci-joint, j'ai un onglet demande de travaux qui en cliquant sur le bouton transmettre va se copier dans le tableu de la feuille ' travaux en cours' dès que j'introduis une date de réalisation dans cette feuille, la ligne du tableu est copiée dans le dossier 'archives' le seul problème est que j'eeface bien ce qu'il y'a dans les cellules mais je préfererais effacer la ligne complète ce qui m'éviterais d'avoir des lifgnes complètes sans données dans mon tableau.
.merci d'avance pour votre aide.

 

[flyonets44]

Re : supprimer lignes dans tableau

Bonsoir
il te suffit de mettre par exemple ceci dans ta macro
Range("B43:H49").entirerow.clear
Cordialement
Flyonets

 

[jp14]

Re : supprimer lignes dans tableau

Bonjour

Ci dessous un code pour supprimer la ligne

Dim flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dlg As Integer
If flag = True Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("j3:j" & Range("j65536").End(xlUp).Row)) Is Nothing Then
    dlg = Sheets("Archives").Range("A65536").End(xlUp).Row + 1
    With Range("A" & Target.Row & ":j" & Target.Row)
    flag = True
        .Copy Sheets("Archives").Range("A" & dlg)
        Sheets(ActiveSheet.Name).Rows(Target.Row & ":" & Target.Row).Delete Shift:=xlUp
    flag = False
    End With
End If
End Sub

A tester

JP

 

[geoval]

Re : supprimer lignes dans tableau

ça fonctionne nickel.
merci jp.

 

[lemarseillais]

Re : supprimer lignes dans tableau

Salut
geoval as tu ton tableau final il est genial j'aimerais m'en inspirer
merci