deplacer une ligne sur autre onglet

[mix770]

Bonjour,
je vais de nouveau faire appel aux pro je suis bloqué j'ai besoin d'une macro qui déplace la ligne sur l'onglet travaux en cours vers l'onglet travaux achevés quand le mot clôturé est inscrit dans la colonne état
merci à vous
cordialement
mix770

 

[Fred0o]

Re : deplacer une ligne sur autre onglet

Bonsoir mix770,

Essaie donc ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adresse$, x&
    If Target.Column = 1 And Target.Count = 1 Then
        adresse = [A65000].End(xlUp).Address(1, 1)
        If Target.Address = adresse Then
            x = Target.Row
            Application.EnableEvents = False
            Range("A" & x & ":O" & x).Copy Target.Offset(1)
            Range("A" & x + 1).ClearContents
            Application.EnableEvents = True
        End If
    ElseIf Not Intersect(Target, [O:O]) Is Nothing And Target.Count = 1 Then
        If Target = "Cloturé" Then
            Range("A1:O" & Target.Row).Copy
            Sheets("travaux achevés").Select
            ActiveSheet.Range("A65000").End(xlUp).Select
            ActiveSheet.Paste
        End If
    End If
End Sub

A+

 

[mix770]

Re: Re : deplacer une ligne sur autre onglet

Bonsoir Fred0o,
merci beaucoup de ta réponse j'ai testé et quand je sélectionne un site j'ai une erreur nom ambigu détecté worksheet change
je suis largué avec les macros
merci du temps que tu me consacre
cordialement

 

[kjin]

Re : deplacer une ligne sur autre onglet

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adresse$, x&
If Target.Count > 1 Or Target.Row < 4 Then Exit Sub
x = Target.Row
Set c = Range("A" & x & ":O" & x)
Select Case Target.Column
    Case 1
        adresse = [A65000].End(xlUp).Address(1, 1)
        If Target.Address = adresse Then
            Application.EnableEvents = False
            c.Copy Target.Offset(1)
            c.Offset(1).ClearContents
            Application.EnableEvents = True
        End If
    Case 15
        If LCase(Target) = "cloturé" Then
            c.Copy Feuil1.Range("A65000").End(xlUp).Offset(1)
            Rows(x).Delete
        End If
    End Select
End Sub

Edit : bonsoir Fredoo 🙂
@Mix : cette macro annule est remplace la précédente !!!

A+
kjin

 

[mix770]

Re: Re : deplacer une ligne sur autre onglet

merci à vous,
alors en fait cela bloque sur ce VBA qui est celui de copie ligne
je vous envoi le fichier pour meilleur compréhension
cela bloque sur la première ligne "private sub"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adresse$, x&
If Target.Column = 1 And Target.Count = 1 Then
adresse = [A65000].End(xlUp).Address(1, 1)
If Target.Address = adresse Then
x = Target.Row
Application.EnableEvents = False
Range("A" & x & ":O" & x).Copy Target.Offset(1)
Range("A" & x + 1).ClearContents
Application.EnableEvents = True
End If
ElseIf Not Intersect(Target, [O:O]) Is Nothing And Target.Count = 1 Then
If Target = "Cloturé" Then
Range("A1:O" & Target.Row).Copy
Sheets("travaux achevés").Select
ActiveSheet.Range("A65000").End(xlUp).Select
ActiveSheet.Paste
End If
End If
End Sub

 

[mix770]

Re: Re : deplacer une ligne sur autre onglet

re
c'est top
j'ai mis le vba dans un module et cela marche en revanche cela copie la ligne des noms de colonne
cela doit etre l'identification des lignes

 

[mix770]

Re: Re : deplacer une ligne sur autre onglet

je n'avais pa vu il copie la ligne j'aimerai qu'il le déplace, qu'elle n'apparaisse plus sur le tableau
merci
cordialement
mix770

 

[Hippolite]

Re : deplacer une ligne sur autre onglet

Bonsoir à tous,
J'aurais plutôt vu quelque chose comme :

'à mettre dans la feuille "Travaux en cours"
Private Sub Worksheet_Change(ByVal Target As Range)
	If Target.Count > 1 Or Target.Row < 4 Then Exit Sub
	If Not Intersect(Target, Range("O:O")) is nothing then
		If Target = "Clôturé" then
			Application.Screenupdating = False
			Application.CutCopyMode = xlCut
			Target.Entirerow.Copy
			Sheets("travaux achevés").Activate
			Nlgn=Sheets("travaux achevés"). Range("A65536").End(xlUp).Row
			Destination:=Sheets("travaux achevés").Range("A" & Nlgn + 1)
			Sheets("Travaux en cours").Activate
			Application.CutCopyMode = False
			Application.Screenupdating = True
		End If
	End If
End Sub

A+

 

[mix770]

Re: Re : deplacer une ligne sur autre onglet

à tous merci de vos réponses sur le principe cela fonctionne mais il copie le tableau complet au lieu déplacer la ligne renseignée "clôturée
merci"

 

[Hippolite]

Re : deplacer une ligne sur autre onglet

Re,
Il faut mettre en mode couper

Application.CutCopyMode = xlCut

A+

 

[kjin]

Re : deplacer une ligne sur autre onglet

Bonsoir,
@Mix : As tu vu le message #4 ?!
A+
kjin

 

[mix770]

Re: Re : deplacer une ligne sur autre onglet

bonjour à tous,
la fatigue à eu raison de moi hier, alors j'ai bien insérer le VBA dans un module comme indiqué dans #4, il copie dans l'onglet travaux achevés, le problème est qu'il copie le tableau entier et non la ligne renseignée clôturée, et le top serait qu'il déplace la ligne et non la copie
merci à vous, ce forum est vraiment riche par le sérieux et la qualité des membres
bien cordialement
MIx770

 

[Hippolite]

Re : deplacer une ligne sur autre onglet

Bonjour,
As-tu essayé le post #8 ?
(non testé, je n'ai pas excel sous la main)
A+

 

[mix770]

Re: Re : deplacer une ligne sur autre onglet

Bonjour Hippolite,
j'ai essayé mais cela me fait une erreur comme expliqué dans #3 je tourne en rond
merci à toi

 

[Hippolite]

Re : deplacer une ligne sur autre onglet

Re,

j'ai une erreur nom ambigu détecté worksheet change

Sub Worksheet_Change(ByVal Target As Range) ne doit être utilisé qu'une seule fois par feuille et pas dans des modules
A+