Déplacer ligne et supprimez

[Florian53]

Bonjour je souhaiterais déplacer et supprimer celle ci juste aprés:

Mon code ne fonctionne pas :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerliA As Integer
If Target.Column = 11 And Target.Text = "reçu" Then
With Sheets("archive")
DerliA = .Range("A65536").End(xlUp).Row + 1
Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Copy .Range("A" & DerliA)
Target.EntireRow.Delete
.Range("A2:H" & DerliA + 1).Sort Key1:=.Range("A2"), Order1:=xlAscending
End With
End If
End Sub

Mon but étant que dés dans la colonne 11 il voit "reçu" il copie la ligne dans la feuil "archive" mais cela ne fonctionne pas avez vous une idée.

Merci à vous

Cordialement

 

[Hulk]

Re : Déplacer ligne et supprimez

Hello,

Sauf erreur de ma part, apparemment ça joue.

Dans la colonne en question, il faut que tu écrives scrupuleusement comme ce que tu as mis dans le code, à savoir "reçu" et non pas "Reçu" ou "recu" !

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerliA As Integer
If Target.Column = 11 And Target.Text = "[COLOR="Green"][B]reçu[/B][/COLOR]" Then
With Sheets("archive")
DerliA = .Range("A65536").End(xlUp).Row + 1
Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Copy .Range("A" & DerliA)
Target.EntireRow.Delete
.Range("A2:H" & DerliA + 1).Sort Key1:=.Range("A2"), Order1:=xlAscending
End With
End If
End Sub

Cdt, Hulk.

 

[Florian53]

Re : Déplacer ligne et supprimez

Bonjour a tous j'ai crée ce fil de discussion il y a un petit moment déjà depuis ce temps là je n'ai pas eu l'occasion de me projeter sur ce projet mais maintenant je suis prêt:

J'ai appliqué le code que Hulk ma proposé mais celui si me détecte une erreur de cellule fusionnée, pour que vous puissiez mieux comprendre mon problème je vous transmet le classeur en question.

Merci à vous

 

[jeanpierre]

Re : Déplacer ligne et supprimez

Bonsoir Florian53, Hulk,

C'est ton titre en feuille Archive qui pose problème.

Mets le sur une seule ligne, plus haute au besoin et Centrée sur plusieurs colonnes.

Normalement c'est bon.

Bonne soirée.

Jean-Pierre

 

[Florian53]

Re : Déplacer ligne et supprimez

Merci à toi pour cette réponse aussi vite, J'ai bien les colonnes D et E qui sont reporté dans la feuille archive mais pas les autres que faudrait il rajouter pour que toutes les colonnes soit copiez?

J'utilise la code

Range(Cells(Target.Row, 4), Cells(Target.Row, 12)).Copy .Range("a" & DerliA)

qui normalement devrait me copiez toutes colonnes de la 4 à la 12 mais cela ne fonctionne pas

Encore merci à toi

 

[Florian53]

Re : Déplacer ligne et supprimez

j'ai remplacé :

Range(Cells(Target.Row, 4), Cells(Target.Row, 12)).Copy .Range("a" & DerliA)

par:

Range(Cells(Target.Row, 3), Cells(Target.Row, 12)).Copy .Range("a" & DerliA)

Et maintenant sa fonctionne pourquoi?

 

[Florian53]

Re : Déplacer ligne et supprimez

il y a aussi une autre erreur c'est que sa déplace toujours sur la même ligne

 

[jeanpierre]

Re : Déplacer ligne et supprimez

Re,

Modifie ta ligne :

DerliA = .Range("A65536").End(xlUp).Row + 1


comme suit : DerliA = .Range("b65536").End(xlUp).Row + 1

 

[Florian53]

Re : Déplacer ligne et supprimez

Merci à toi de ta réponse cela fonctionne mieux pour la première fois que je marque reçu par contrer pour la deuxième il me marque une erreur sur cette ligne/

.Range("B8:J1000" & DerliA + 1).Sort Key1:=.Range("B8"), Order1:=xlAscending

 

[Florian53]

Re : Déplacer ligne et supprimez

Par contre si je supprime cette ligne ça fonctionne très bien est ce normal?

 

[jeanpierre]

Re : Déplacer ligne et supprimez

Re,

Modifie ta ligne comme ceci :

.Range("B8:J1000").Sort Key1:=.Range("B8"), Order1:=xlAscending

 

[Florian53]

Re : Déplacer ligne et supprimez

a quoi me sert cette ligne, car si je la supprime cela fonctionne?

 

[jeanpierre]

Re : Déplacer ligne et supprimez

Re,

Elle sert à trier ta base B:J (feuille archive) sur la colonne B soit par date.

Sinon, elle n'a pas d'autre utilité, tout dépend de ce que tu souhaites.

Bonne soirée.

 

[Florian53]

Re : Déplacer ligne et supprimez

Merci à toi pour toute ces précisions