Ajout de ligne sans dé-filtrer

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • filtre_isiTel_ ajout_ligne_filtre.xlsm
    76.9 KB · Affichages: 16
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • filtre_isiTel_ ajout_ligne_filtre2.xlsm
    76 KB · Affichages: 3

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Gérard,

Mais je n'ai pas modifié ton code qui est :
VB:
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

XLDnaute Barbatruc
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 :
VB:
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

XLDnaute Barbatruc
Supporter XLD
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,
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof