Faire Rows(Target.Row) sur feuilles

[Arpette]

Bonsoir à tous, je tourne en rond depuis une semaine. Mon problème, avec un double click gauche j'insere une ligne sur une feuille. Je souhaiterais que cette action se repète sur une autre feuille et à la même ligne.
J'espère que c'est faisable.
Merci d'avace

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Bonjour,

Inverse les lignes, commencent par supprimer la ligne de l'autre feuille...

Bonne journée

Bonjour bhbh et merci de répondre, je ne peux pas inverser car la feuille maitresse est "Relevé_Hebdo" je clique droit sur la ligne que je veux supprimer et ça doit supprimer sur "Relevé_journalier". Ca marche quand j'insère avec double clique gauche.

Merci pour ton aide.

 

[Cousinhub]

Re : Faire Rows(Target.Row) sur feuilles

Re-,

J'ai du mal m'exprimer....

En ce moment, tu as ce code :

If Rep = 6 Then
[COLOR="Red"]Target.EntireRow.Delete 'supprime la ligne complète
Worksheets("Relevé_Journalier").Rows(Target.Row).Delete[/COLOR]
Cancel = True
Else

Qui ne fonctionne pas...

si tu inverses les deux lignes en rouge, ainsi :

If Rep = 6 Then
Worksheets("Relevé_Journalier").Rows(Target.Row).Delete
Target.EntireRow.Delete 'supprime la ligne complète
Cancel = True
Else

ça fonctionne....

Ou alors, je n'ai rien compris (fort possible, au demeurant....)

Bonne soirée

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Re-,

J'ai du mal m'exprimer....

En ce moment, tu as ce code :

If Rep = 6 Then
[COLOR="Red"]Target.EntireRow.Delete 'supprime la ligne complète
Worksheets("Relevé_Journalier").Rows(Target.Row).Delete[/COLOR]
Cancel = True
Else

Qui ne fonctionne pas...

si tu inverses les deux lignes en rouge, ainsi :

If Rep = 6 Then
Worksheets("Relevé_Journalier").Rows(Target.Row).Delete
Target.EntireRow.Delete 'supprime la ligne complète
Cancel = True
Else

ça fonctionne....

Ou alors, je n'ai rien compris (fort possible, au demeurant....)

Bonne soirée

Re, merci bhbh, c'est nickel, c'est moi qui avais mal interprété ta réponse.
@+