Ajout de ligne sans dé-filtrer

[Usine à gaz]

Bonjour à toutes et à tous,

Me re-voilà avec un nouveau souci que je n'arrive pas à résoudre.
Je fais à nouveau appel à votre expertise et à votre gentillesse.

Le classeur test joint ne comporte que 85 lignes d'appels pour l'exemple mais le classeur de travail en a jusqu'à 50.000.
Pour faciliter notre travail, nous filtrons les appels à faire par types d'appels et selon URGENCE en cliquant dans la cellule S2.

Mon souci :
A chaque nouvel appel d'un prospect que nous n'avons pas encore appelé, nous ajoutons une ligne d'appel en dessous
de la dernière ligne remplie en cliquant sur l'image du téléphone (en haut à gauche) qui est affectée au code d'ajout de ligne.
L'ajout de ligne est la copie de la ligne 6 qui est masquée.

Actuellement, pour pouvoir le faire, je suis obligé de dé-filtrer pour pouvoir ajouter la nouvelle ligne d'appel en dessous
de la dernière ligne remplie.

Quand la nouvelle ligne est remplie, il nous faut revenir au filtrage précédemment réalisé.
Le filtrage prenant du temps sur 50.000 lignes, voire plus, cela nous fait perdre beaucoup de temps et c'est très fréquent.

Existe-t-il un code qui permettrait, tout en gardant le filtrage en cours, de pouvoir ajouter en l'affichant la ligne en dessous de la dernière ligne remplie ?
dans le fichier joint c'est la ligne 86.

Ou peut-être est-il possible d'ajouter une ligne d'une autre façon permettant de conserver le filtrage ?

Si vous aviez la solution, ce serait super de chez super !!!
Je joins le fichier test;

Avec mes remerciements, je vous souhaite à toutes et à tous une belle fin de journée,
amicalement,
arthour973,

 

[Usine à gaz]

Bonjour Gérard, Le Forum,

Merci Gérard, je ne sais quoi te dire pour tant de gentillesse
Je regarde et test et je reviens

En message privé, je vais répondre à "Je ne comprends pas que tu baisses les bras sur un truc aussi simple "
Bonne journée à toi
Lionel,

 

[Usine à gaz]

Re-Bonjour Gérard,

Après tests, ça marche ... presque LOL

Tests ajout de ligne exécuté :
avec filtrage = le code beugue à cet endroit : Rows(6).Copy Rows(lig),

1- sans filtrage = OK,
Je supprime la ligne pour nouveau test,
2 - Je filtre
3 - ajout de ligne 1ère fois OK,
Je supprime la ligne pour nouveau test,
4 - le code beugue à cet endroit : Rows(6).Copy Rows(lig)

Si tu veux bien encore "jeter" un oeil, je joins le fichier.
Merci gérard
lionel,

 

[Usine à gaz]

Re-Gérard,

Mais je n'ai pas modifié ton code qui est :

Sub CopieLigneN°()
Dim lig&
Sheets("SuivisAppels").Activate
lig = Application.Match("zzz", [A:A]) + 1
Rows(6).Copy Rows(lig)
Cells(lig, 5) = Now
Cells(lig, 26) = "NC"
Rows(lig).RowHeight = 50
Application.Goto Cells(lig, 1), True 'cadrage
End Sub

J'ai juste ajouté 3 lignes dont j'ai besoin à la suite de : Cells(lig, 26) = "NC"
- Cells(ActiveCell.Row, 1) = ""
- Cells(ActiveCell.Row, 7) = ""
- Cells(ActiveCell.Row, 17).Select

Pour être certain de mon post précédent, j'ai remis tel quel ton code et c'est le même souci

 

[job75]

Pourquoi modifies-tu mon code avec Select (à proscrire) et des ActiveCell ???

Mais c'est vrai il y avait un problème pour le copier-coller et je ne comprends pas pourquoi.

Tu n'en auras plus en collant sur la 1ère cellule :

Sub CopieLigneN°()
Dim lig&
Sheets("SuivisAppels").Activate
lig = Application.Match("zzz", [A:A]) + 1
Rows(6).Copy Cells(lig, 1)
Cells(lig, 5) = Now
Cells(lig, 26) = "NC"
Rows(lig).RowHeight = 50
Application.Goto Cells(lig, 1), True 'cadrage
End Sub

 

[Usine à gaz]

Youpy !!! ça marche nickel super

Vraiment Gérard, tu ne peux pas savoir quel service tu me rends
C'était vraiment un vrai problème de fonctionnement.

Vraiment magique !
Merci Gérard, pour ta gentillesse et ta patience.

Allé, je n'embête plus personne ce WE ..... quoi que ? LOL j'en ai une autre plutôt coton

Bon WE Gérard, le Forum,
Amicalement,
Lionel,