Copier des donnees d'une feuille jusqu'à la derrière ligne Résolu/Fermé

Question

Bonjour,  

Je vous soumets mon problème et vous remercie d'avance pour votre (vos) réponses d'experts. Je souhaite copier des données d'un tableau d'une feuille sur une autre feuille jusqu'à la dernière ligne. A noter une particularite avec des cellules qui comprennent des fonctions mais des resultats vides et ces cellules vides de résultats mais avec des fonctions (=si par exemple .... etc) je ne souhaite pas les copier. 
Un exemple pour comprendre mon besoin : 
- Tableau de 6 colonnes (composées de chiffres ou lettres) avec 15 lignes 
- La derniere ligne avec cellule pleine (c'est à dire disposant d'un resultat donné par la fonction de calcul qui est dans la cellule) est la ligne 10 (mais cela change regulierement et peut être ensuite la ligne 8....)
- Attention, j'ai des fonctions dans les autres cellules (lignes 11 à 15) mais qui ne donnent pas de résultats  

Mon problème est que mon code copie et colle toutes les lignes qui ont des fonctions y compris si la cellule est vide (en apparence seulement car elle dispose d'une fonction mais l'interprete comme non vide.) 


Configuration: iPad / Safari 6.0

Utilisateur anonyme · Answer

Je comprend pas ta question ?
Ou veut tu en venir au juste ?

Pour copier un doccument, tu fait un scan et tu envoi dans l'ordi.

Mike-31 · Answer

Salut, 

Pourquoi ce moins un à Arès, je veux le même car moi non plus je ne comprends rien à la demande. 

Tout comme les intervenants Excel n'est pas un devin et ne réagit qu'a des conditions logiques. 

Déjà parler le même langage informatique permettrait de mieux se comprendre, exemple "c'est à dire disposant d'un resultat donné par la fonction de calcul " je parlerais plutôt de formules, une fonction est un code VBA 
  
idem "mais cela change regulierement et peut être ensuite la ligne 8.... " comment expliquer à Excel, quel sont les critères ? 

ici "j'ai des fonctions dans les autres cellules (lignes 11 à 15) mais qui ne donnent pas de résultats" une fonction ou formule donne inévitablement un résultat sinon à quoi bon les utiliser peut être pour faire joli ? 

une cellule vide ne contient absolument rien, si elle contient une formule elle n'est par définition pas vide parce qu'on à saisi des données informatiques "copie et colle toutes les lignes qui ont des fonctions y compris si la cellule est vide (en apparence seulement car elle dispose d'une fonction mais l'interprete comme non vide.) "  

Pour obtenir des réponses bien vouloir reformuler la demande et le -1 attribué à Ares est injustifié, seule sa dernière ligne est en trop surtout lorsqu'on a pas compris la question, j'ose croire qu'il n'est pas l'oeuvre du demandeur. 
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Merci Mike pour ces commentaires et le temp pris à me lire.
effectivement, je tape sur un ipad et Le correcteur orthographique prend des libertés. Je n'avais pas vu cette phrase qui n'est pas de mon cru, milles excuses pour ma mauvaise relecture.
- OUI à la semantique, il s'agit de formules
- Une formule peut donner un resultat egale à "" Donc vide et la difficulté est que EXCEL la considere comme une cellule pleine Sinon il ne la copierai pas.
- Quand je dis que cela change je veux dire que mon fichier me sert à faire des calculs et que chaque calcul est distinct et que mon exemple sur 15 lignes peut être de 20 lignes ....et Donc ma fonction (code BVA) doit pouvoir identifier ma derniere ligne de cellule pleine.

Philour01 · Answer

Mon code pour mieux comprendre
Range("B6:G54").Select
Range(Selection, Selection.End(xlDown)).Select

Prend en compte toute la sélection à copier et non pas les seules 3 premieres lignes dont les cellules sont pleines ( formule avec un resultat apparent), les autres lignes disposent de cellules avec formules qui donnent un resultat "".

Mike-31 · Answer

Re,

Effectivement un code VBA va identifier la dernière ligne du tableau, il faut savoir qu'avec un code VBA on rivalise avec le langage d'Excel et il faut être très précis dans sa rédaction sinon on plante l'application. Avant d'écrire quelque formule que ce soit il faudrait voir ton tableau pour savoir sur quelle colonne s'appuyer ou en dire beaucoup plus.

Je reviens sur les cellules contenant des formule et renvoyant rien "" je me répète, la cellule n'est pas vide puisqu'elle contient une formule il faut donc dans les formules qui découlent de ces cellules soit renseignées pour les ignorer    
exemple =si(x="";"";si(x="titi"; etc ...))
ou encore =si(x<>"";si(x="titi"; ....))

le mieux serait d'avoir ton tableau sans notes confidentielles que tu peux joindre avec ce lien https://www.cjoint.com/

Philour01 · Answer

Bonsoir,

J'ai envoyé mon fichier mais est-il bien arrivé ?
Oui, mes cellules qui ont des formules ( = si(x="bla bla" ;""......) ont des lignes avec un resultat "" ( c'est ce que j'appelle vide dans la mesure ou il n'y a pas un resultat numerique ou alphabetique mais comment les nomme t-on sinon ?)

Mike-31 · Answer

Re,

Non pas de fichier, pour envoyer un fichier il faut cliquer sur le lien, puis sur parcourir pour le sélectionner, clic sur le bouton créer le lien, coller dans un post de la discussion le lien qui sera généré 
 https://www.cjoint.com/

Philour01 · Answer

0EgnzRHBZVf.htm
Lien tableau

Mike-31 · Answer

Re, 

Oui c'est presque ça mais tu as mal collé le lien, il est invalide il devrait ressembler à quelque chose comme ça 

https://www.cjoint.com/c/CEgjmdPAmBL  

mais certainement pas à ce lien que tu as collé 

0EgnzRHBZVf.htm 
  
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

http://cjoint.com/?CEhoQHPB9Rj 
Comme cela ?

Mike-31 · Answer

Re, 

oui ce coup la c'est bon, j'ai récupéré ton fichier. 
Que veux tu faire exactement déplacer les lignes non vide de la feuille OGDAB vers la feuille Edit5 ou simplement les copier ? 

une fois les données sur la feuille Edit5 si tu dois en copier d'autres doivent elles se mettre à la suite ? 

et les données de la feuille OGDAB sont elles conservées ou effacées ? 

la colonne dont l'en tête SIECLE correspond à quoi et doit elle être copiée sur la feuille Edit5

les deux feuilles doivent également avoir le même nombre de colonnes et les colonnes doivent correspondre 
  
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Avant tout, Merci pour ton aide Mike.

Mon objectif :
* Copier les lignes non vide (mais uniquement celles qui donnent un résultat numérique ou alphabétique et ne pas copier celles qui donnent un résultat vide "") de la feuille OGDAB vers la feuille EDIT5.
* Oui, les autres lignes (d'origine car on peut avoir au départ 20 lignes ou + ou en complément) doivent pouvoir se mettre à la suite.
* Les données d'OGDAB sont à conserver.
* On ne fait rien avec la colonne siècle comme avec surface sol (qui ne sont donc pas à reprendre)
* Ah ! Bon, si on doit avoir les mêmes colonnes on peut regrouper les colonnes à copier  et mettre en fin de colonne celles qui ne le sont pas car sur l'onglet EDIT5 j'ai moins de colonne (surface sol et siècle absents et j'en ai besoin sur l'onglet OGDAB).

Et ensuite, il faut que je puisse reprendre du texte d'un autre onglet à la suite de ces lignes de tableau.

Bonne soirée

Mike-31 · Answer

Re,

il faudra revoir tes formules de la feuille OGDAB qui se sont mise en vrac par l'absence du fichier [TarifDAB1]Fiche Estimation'!
j'ai revue tes cellules fusionnées et déplacé la colonne Surface au sol
j'ai également ajouté la colonne I qui sert de détrompeur afin d'éviter de copier deux fois les mêmes données, pour tester le fichier il suffit d'effacer transféré plus tard tu pourras masquer cette colonne 
 voila à toi de tester

https://www.cjoint.com/c/CEinTJhyjKS

Philour01 · Answer

Génial, ton fichier fonctionne super bien Mike !
Bon, petit problème à résoudre sur 2 points lors du transfert du code sur mon fichier :?
1) Mon onglet "Edit5" contrairement à OGDAB ne dispose pas du même nombre de colonnes car il comprend des tableaux et du texte avec un formatage nécessitant plus de colonnes qui sont fusionnées (derniere colonne M et non pas I). Je me penche sur le problème pour qu'elles soient similaires sur les 2 onglets mais le code VBA fonctionne t-il avec des colonnes fusionnées (si elles sont identiques) sur les 2 onglets ?
2) Il faut savoir que les données à copier doivent être collées à partir de la ligne 176 (et oui, j'ai deux feuilles pleine avant le tableau à copier.) Cela n'impacte t-il pas ta fonction ?

Encore merci pour ton aide !

Mike-31 · Answer

Re,   

Fonctionner en l'état je doute, un code VBA est très précis, il est possible d'avoir des différences de présentation de tableau, dans ce cas il faut en tenir compte dans le code, ce qui le complique, l'allonge et surtout le ralenti.   

l'idéal est de créer à l'identique les parties des tableaux commune, si on doit coller les cellules de 5 colonnes par exemple il est préférable que les colonnes du tableau de réception soit identiques ce qui limite le code à quelques lignes et augmente sa rapidité.   

Si sur un tableau tu as des cellules fusionnées, on doit les retrouver sur le deuxième tableau sinon ton code plantera.   

Si tu n'y arrives pas, poste moi ton fichier réel même sans notes afin que je te le modifie et adapte le code    
A+   
Mike-31   

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Bonjour Mike,
Bon, j'ai testé jusqu'à 3 h ce matin et galère de galère je ne comprend pas l'anomalie renvoyée par VBA avec "erreur d'execution13 - incompatibilité de type et la ligne der_lig_I = Evaluate ........ qui se met en jaune alors que j'ai le méme nombre de colonnes ... Etc ?!!!
J'ai créé un onglet qui reprend les données d'OGDAB pour disposer du même nombre de colonnes... (Voir pièce jointe)
Je me rends compte que si je mets du texte en dessous du tableau, la copie se fait après le texte et non plus dans le tableau. Est-il possible de maintenir les copies dans le tableau à partir de la ligne 178 et les copies doivent toutes s'insérer avant le texte du dessous. 

Je ne réussis pas à prendre la main sur ton bouton (clique gauche ne donne rien)

À te lire
Cordialement

Mike-31 · Answer

Re,

poste ton nouveau fichier, que je vois, parce que comme cela difficile de voir ce qui cloche

Philour01 · Answer

http://cjoint.com/?CEjrDr4c2iw
Comme convenu dans note précédente mais je n'y arrive pas avec l'IPAD

Mike-31 · Answer

Re 

que veux tu faire copier les données de la feuille Liste sur la feuille Edit61 

et les cellules de la colonne B,C,D,E et F, c'est bien cela

et les Noms de tes feuilles  sera Liste et Edit61 
  
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Oui, en sachant que je peux devoir changer les noms demain en manipulant ta fonction.
Ensuite j'essaierai de tout reprendre sur mon fichier et en cas d'anomalie te ferais suivre mon code avec les difficultés rencontrées. Il était plus utile de t'adresser le fichier avec ses 3 pages et la demande d'insertion des lignes collées au milieu des textes.

Encore merci pour ton aide

Mike-31 · Answer

Re,

es ce que tu te débrouilles ou faut il que je t'adapte le code

Philour01 · Answer

Merci de m'adapter le code car je n'en ai pas la compétence. Je te ferai un retour sur la reprise du code dans mon fichier.

Mike-31 · Answer

Re,  

alors voila ton fichier 

Si tu vas faire un tour dans le Visual Basic (clic droit sur le bouton/Affecter une Macro/Modifier) cela t'amène directement au code VBA et en début de code tu remarqueras ces deux lignes.  
Si tu changes les noms de tes onglets il faudra également changer les noms de tes feuilles dans ces deux lignes A L'IDENTIQUE 

sinon ton code plantera   

    Const Feuille_Origine As String = "OGDAB"  
    Const Feuille_Destination As Variant = "Edit5"   

ton fichier  

https://www.cjoint.com/c/CEkxOZD6Ck9  
   
Si tu veux, il est possible de compléter le code avec un enregistrement automatique, enfin tu vois  
A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Bonjour Mike,

Je viens de tester et ton fichier joint fonctionne bien. Encore merci !
Je pensais que tu allais adapter le code pour que le collage des lignes se fasse à partir de la ligne 178 suivant mon dernier mail et fichier joint  (mais est ce possible) ? En effet, le tableau figure en 3 ieme page de mon fichier.
Par ailleur, le transfert des lignes copie tout le tableau (dont les cellules "vides") jusqu'à la 54 iem ligne si je mets du texte à recopier à partir de la 56 iem ligne. 
Peut-on en VBA copier ( transférer) que les lignes qui ont un résultat donne par la formule de calcul et passer au texte qui figure juste après le tableau ?

En clair, j'ai un tableau qui comprend 54 lignes au total 
Certaines en commençant toujours en haut du tableau donnent des résultats liées aux formules de calcul et ce sont uniquement ces lignes avec du resultat que je souhaite transférer dans un onglet de 3 page au niveau de la ligne 178.
L'idéal étant de voir ces transferts décaler vers le bas le texte qui figure en bas du tableau. ( objet de mon précédent fichier)

Cordialement

Mike-31 · Answer

Salut,

Je ne comprends pas tout tes dires, en fait tu veux coller les lignes non vide de ton tableau principal vers l'autre feuille et les coller au dessous de la ligne 178

C'est bien cela ?

Dans le tableau principal de 54 lignes peut il y avoir des lignes vides entre les lignes à copier ?

Au passage, peut il y avoir des options de collage (texte en gras par exemple ou cellule en couleur etc ...)

Lorsque je te proposais l'enregistrement automatique, en fait on peut insérer dans le code un enregistrement après le collage des donnés ce qui évite l'oublie de la sauvegarde mais qui peut présenter un inconvénient dans le cas ou on souhaites fermer sans enregistrer, voila c'est un choix

Philour01 · Answer

Bonsoir Mike,

Oui, c'est cela, c'est un peu compliqué et je ne suis pas très clair. Désolé !
Oui, l'objectif est de copier uniquement les cellules non vides (de résultats mais elles disposent en général de formules avec un résultat égale à "" et je ne souhaite pas copier ces formules).
Oui, il faut les copier à partir du début du tableau de l'onglet edit5 ligne 178 et se limiter à 3 lignes copiées par exemple si le tableau ne comprend que 3 lignes .... 
Immédiatement en dessous, je dois retrouver les textes en place donc à décaler (tous) vers le bas au fur et à mesure de l'ajout de lignes du tableau.
Non, il ne peut pas y avoir de lignes vides entre les lignes à copier mais je dois pouvoir effacer une ligne copiée ( si possible).
Non, pas de formatage des cellules copiées et collées (gras...)
Oui, je suis intéressé de voir le code relatif à l'enregistrement automatique (quitte à le désactiver ensuite si nécessaire avec Rem)
Merci pour tout.

Mike-31 · Answer

Re,

On est loin de la demande initiale et cela se complique, explique moi cette ligne de ta réponse

" Oui, il faut les copier à partir du début du tableau de l'onglet edit5 ligne 178 et se limiter à 3 lignes copiées par exemple si le tableau ne comprend que 3 lignes .... "
 
onglet Edit5 est l'onglet principal, on copie les lignes non vide par groupe de 3 avec les entête de tes colonnes REF	USAGE	SURF  DEV etc ...

sur l'autre feuille au dessous de la ligne 178 en laissant une ligne vide entre chaque collage de 3 lignes plus la ligne des entête au dessus

c'est cela, j'ai bien compris

Philour01 · Answer

Erreur de ma part Mike, je voulais dire on colle sur edit5 récapitulons et merci pour ta patience ! On dispose d'un fichier qui comprend plusieurs onglets dont notamment : - un onglet OGDAB (conservons ce nom) qui comprend un tableau de 54 lignes et 8 colonnes composé de cellules avec des formules de calcul qui donne des résultats (numériques, alphabétiques ou pas de résultat, soit ""). Bien. Je souhaite copier uniquement les lignes pleines de résultats <>"" de OGDAB (des 6 premieres colonnes uniquement ) sur l'onglet edit5 (qui est un onglet qui me sert d'édition papier) qui comprend plusieurs feuilles composées de textes. Le "coller" des lignes pleines doivent se mettre en place à partir de la ligne 178 (voir mon précédent fichier joint qui montre tout cela). 3 est un exemple et non pas un groupe à coller Le fichier peut comprendre 5 lignes de cellules pleines de résultats <> de "" alors on copie d'OGDAB ces 5 lignes que l'on colle uniquement sur edit5 à partir de la ligne 178. Si le tableau donne 20 lignes de cellules pleines de résultats <> de "" on copie les 20 lignes d'OGDAB que l'on colle sur edit5 ........ On ne laisse aucune ligne vide entre chaque collage sur le tableau elle se suivent comme sur le nouveau fichier que je t'envoie dans quelques minutes. Bonne soirée

Mike-31 · Answer

Re,

c'est bon je crois cerner le problème, petite dernière question sur l'onglet OGDAB 
les lignes à copier sont elles regroupées (contiguës 6, 7, 8 etc) ou non exemple ligne 6, 10, 18 etc 

ensuite à partir de la ligne 178 feuille EDIT5 on colle ces lignes à la suite et on insère  autant de nouvelle lignes que de lignes collées 
 
c'est bien cela

Philour01 · Answer

Bonjour Mike,
Si je comprends bien ta question, les lignes sont contiguës, c'est à dire que les résultats des formules OGDAB lorsqu'ils sont <> de "", se suivent donc ligne 6 - 7 -8 ... On ne peut avoir dans le tableau à copier une ligne 6 puis passer à la ligne 10 ou 18 avec des lignes vides entre. Les lignes précédentes à la ligne de résultat sont obligatoirement pleines. Exemple : Si j'ai 10 lignes à copier, j'ai obligatoirement les 9 lignes précédentes pleines (1.2.3.4.5.6.7.8.9) sans aucune ligne vide entre.
Ensuite on insère entre le texte et le début de la première ligne 178 toutes les autre lignes pleines à la suite.
Bon, il faut prévoir la possibilité d'effacer une ligne du tableau OGDAB qui soit alors automatiquement effacée dans le tableau edit5.

Mike-31 · Answer

Re, 

je préfère travailler sur le fichier que j'ai refait, sans cellules fusionnées qui est toujours source à problème. 

j'ai inséré l'enregistrement automatique en fin de procédure, pour l'instant l'action est neutralisée pour te faciliter les essaies. 
Pour la rendre opérationnelle il suffit de supprimer l'apostrophe qui se trouve en début de ligne   

'ActiveWorkbook.Save 

le nouveau code compte les lignes à copier, insère le nombre nécessaire de lignes après la dernière ligne renseignée, copie les lignes dans les lignes insérées à la suite, lorsque tu auras libéré l'enregistrement, l'enregistrement sera automatique. 
pour te permettre de voir l'insertion de ligne j'ai colorisé en jaune la cellule B179, les données s'enregistreront entre la cellule B178 et cette cellule jaune 

https://www.cjoint.com/c/CEmwtzTIhaD  
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Top génial, c'est exactement ce que je recherchais.
Ton fichier fonctionne parfaitement et correspond à mon attente.
Tu es performant dans ton domaine et altruiste. Bravo !!

Merci pour tout

Je regarde le transfert sur mon fichier de l'ensemble de ton code et te tiens au courant sur son fonctionnement. Effectivement j'ai eu quelques difficultés sur le code précédent copié avec un transfert des feuilles d'origine de ton fichier et j'avais un message d'erreur !?

J'aurai ensuite peut être besoin d'une petite évolution sur ce fichier (cumul de 2, voir 3 tableaux comme celui la sur un onglet récapitulatif) que je te soumettrai des que mon application sera opérationnelle avec cet excellent code.

Bonne soirée

Mike-31 · Answer

Re,

Pas tout compris, tu veux coller le contenu de plusieurs feuilles sur la feuille EDIT5

c'est cela  
 
Dans la mesure ou tu travaille sur le fichier, l'identification du fichier n'est pas nécessaire, tu cibles directement la plage. Les formule prennent le nom du fichier si tes cellule proviennent d'un fichier tiers

Philour01 · Answer

http://cjoint.com/?CEqoVPDoRVb
Bonjour Mike,

Merci de ton aide par avance, il ne manque pas grand chose pour que le code fonctionne mais j'ai une anomalie dès que j'intègre un onglet avec une référence à cet onglet.
Cordialement

Mike-31 · Answer

Re,

l'erreur vient de cette ligne qui compte les lignes à copier, la fonction compte le cellule format texte, si colonne B feuille OGDAB les références sont au format numérique il conviendra de changer le CountIf en Count pour compter les valeurs numériques et en CountA pour compter les cellules non vide mais attention s'il y a des formules on revient à la case départ

Nbre_lig = WorksheetFunction.CountIf(Range(Range("B6"), Range("B" & Der_lig_B + 1)), ">""")

Philour01 · Answer

Merci beaucoup pour ta réponse Mike, je planche dessus pour trouver une solution

Mike-31 · Answer

Re,

La solution je te l'ai donnée, tout dépend du formatage de ta colonne B, ou c'est du texte ou c'est numérique avec ou sans formule

Philour01 · Answer

Super, avec CountA cela fonctionne mais avec une particularité : 
Si j'ai une seule ligne à copier, il me colle 2 fois la ligne a la suite et à partir de 2 lignes a copier c'est ok pas de doublon !
Peut-0n corriger cela sur la ligne unique ?

Mike-31 · Answer

Re,

Normal, il faut adapter le Count
a la fin de cette ligne supprime  , ">"""
Nbre_lig = WorksheetFunction.CountIf(Range(Range("B6"), Range("B" & Der_lig_B + 1)) , ">""" ) ' compte ligne à copier

pour avoir cette ligne ou remplace la par celle ci

Nbre_lig = WorksheetFunction.CountA(Range(Range("B6"), Range("B" & Der_lig_B + 1))) ' compte ligne à copier

Philour01 · Answer

Super génial
Tout fonctionne parfaitement !!
Encore merci

Mike-31 · Answer

Re,

Alors je passe le statut de la discussion en résolu

foo · Answer

Bonjour Mike,
Dans le prolongement de cette macro, je souhaite maintenant effacer d'un clic toutes les lignes copiées sur la feuille édit. 
Ma fonction fonctionne en partie mais sur une seule ligne de tableau à effacer, empiète sur le texte qui est juste en dessous du tableau et efface du texte.

Merci pour ton aide

Dim I As Long
Dim Plage As Range
Set Plage = Range("E159:E" & Range("E160").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
Plage.Cells (I).EntireRow.Delete
Next
End Sub

Mike-31 · Answer

Re,

Foo et Philour, es ce la même discussion ou une nouvelle discussion ?

Philour01 · Answer

Bonjour Mike,
Dans cette discussion, c'est moi qui suis à l.origine du post qui est parti avec le nom de Foo !!???
Oui, c'est la suite de la discussion entamée et qui est classée en résolue

Mike-31 · Answer

Re,

tu veux copier sur le fichier Projet1.xls onglet Récap toutes les lignes des trois fichiers  projets1 projet2 et projet3 feuille nommées sur les trois fichiers Liste, c'est cela

ces trois fichiers se trouvent ils dans le même répertoire

Philour01 · Answer

Oui, copier toutes les lignes mais par projet c'est à dire dans nomenclature 1 les lignes de projet1, dans nomenclature 2 les lignes de projet 2 .... (Voir feuille Récap)
Les 3 fichiers se trouvent dans le même répertoire.

Mike-31 · Answer

Re,

Récupère le fichier ZIP, ouvre le et sort le dossier Philour

Ouvre le fichier Récap, clic sur le bouton, les lignes sont insérées et copiées depuis les trois fichiers Projet1, Projet2 et Projet3

https://www.cjoint.com/c/CEwqt57pv5e 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Merci Mike, super boulot.
Bon je regarde la transposition sur mon fichier en sachant que je me suis sans doute mal exprimé mais les données sont les suivantes :
- RÉCAP est une feuille (et non pas un fichier) qui se trouve dans les 3 projets.
- Le transfert des données ne se fait donc que sur la seule feuille RECAP de projet1 et non pas sur un fichier intitulé RECAP.

Bonne soirée

Mike-31 · Answer

Re,

Ce n'est pas un problème, va dans le visual basic, double clic sur module et tu trouvera en début de code ces lignes

    Const Fichier_Réception As String = "Récap.xls"
    Const Feuille_Réception As String = "Recap"
    Const Fichier_Cible_1 As String = "Projet1"
    Const Fichier_Cible_2 As String = "Projet2"
    Const Fichier_Cible_3 As String = "Projet3"
    Const Feuille_Cible As Variant = "Feuil1"

     
sans te tromper entre les guillemets tu remplace les noms qu'il convient
dans cette ligne tu remplaces le nom du fichier "Récap.xls" par celui du fichier qui contient la feuille Récap ex. "titi.xls"

    Const Fichier_Réception As String = "Récap.xls"

dans cette ligne d'après ce que tu m'écris le nom de la feuille est bien Récap, sinon change le par le nom de la feuille sur la quelle tu souhaites transférer les données
    Const Feuille_Réception As String = "Recap"

ces trois lignes doivent contenir les noms de tes fichier sans les extensions
    Const Fichier_Cible_1 As String = "Projet1"
    Const Fichier_Cible_2 As String = "Projet2"
    Const Fichier_Cible_3 As String = "Projet3"

cette dernière est le nom qui apparemment est commun aux trois fichiers et est le nom de la feuille à copier
    Const Feuille_Cible As Variant = "Feuil1"

 

si tu n'y arrive pas, donne moi

le nom du fichier sur lequel sont copiées les données avec l'extension

le nom de la feuille sur laquelle sont copié les données des autres fichier

le nom de chaque fichier sur lequel on extrait le données avec l'extension

et le nom de la feuille sur lequel on extrait les données qui est je crois la même sur les trois fichiers

Philour01 · Answer

http://cjoint.com/?CEytHO8xXFt
Voila la macro que tu as développé et qui fonctionne super bien (et aménagé par mes soins avec les cellules fusionnées).

Mike-31 · Answer

Re,

donc tu es satisfait tout est pour le mieux, si tu dois changer le nom de tes feuilles il suffit dans le code de changer uniquement les noms dans tes constantes en début de code  

Excel n'est pas si terrible que ça, il suffit de savoir lui demander gentiment

Philour01 · Answer

Oui, as tu lu le post précédent pour décaler les lignes de textes vers le bas, le fichier joint montrant mon besoin avec le numéro de lignes ?

Mike-31 · Answer

Re,

je ne comprends pas ce que tu veux faire  
 
"Lorsque ma nomenclature devient importante, il faudrait que je puisse décaler vers le bas les lignes Z soit à partir de la ligne 237 pour que cette ligne 237 soit en début de page. "

Philour01 · Answer

Bonsoir Mike,
Dans le fichier joint du précédent post, apparaît en  jaune un texte 
ZZZZZZZZZZZZZ de la ligne 237 à 263. Ce texte à été décalé suite à ta macro qui a insérée les lignes du tableau que je veux copier.
Est-il possible dans la continuité de ta macro (jointe au dossier) de prévoir une condition du type : si la première ligne du texte ZZZZZZZZZ arrive sur la ligne 237, je décale le texte ZZZZZZZZZZ en bas de plusieurs lignes manière à ce qu'il apparaisse en début de page suivante à partir de la ligne 247 ?

Mike-31 · Answer

Re,

Tu peux m'en dire un peu plus sur ta ligne ZZZZZZZZZZZZZZZZZZZ 
es ce que le texte est toujours le même comme Nomenclature du Projet par exemple, il faudrait pouvoir sélectionner la cellule à partir d'un critère pour pouvoir insérer le saut de page

Philour01 · Answer

Bonjour,

Oui, le texte est identique sur la première ligne Z = "Dispositions particulières et clauses diverses" 
Les 26 lignes suivantes peuvent parfois être différentes

Il faudrait que je dispose de 3 conditions (ensuite à ma main pour faire évoluer) 
si la ligne 237 = "dispositions.....", saut de page de tant
si la ligne 236 = "dispositions.....", saut de page de tant
..........

Mike-31 · Answer

Re,

Il faut traduire ce que tu veux
si la ligne 237 = "dispositions.....", saut de page de tant  

saut de page de tant ? 
si en cellule 237 la cellule contient "dispositions etc .... entre quelle et quelle ligne doit se trouver le saut de page
idem pour cellule 236

et pour la 3éme condition, écrit en clair, vu de l'extérieur il n'est pas évident de comprendre

Philour01 · Answer

Tu as raison Mike, pas assez précis.

Essayons de simplifier :

Le texte jusqu'à la ligne 214 pas de problème d'insertion ....
À partir de la ligne 215, insérer un saut de page sur la ligne inférieure et décaler le texte 9 lignes plus bas donc dans ce cas, positionner le texte en ligne 222.

Mike-31 · Answer

Re,

Je ne t'oublie pas mais pas trop le temps,
le code est

Sub DécaleDisposition()
On Error Resume Next
    Windows(Fichier_Réception).Activate
    Sheets(Feuille_Réception).Activate
    y = "Dispositions*"
    With Worksheets(Fichier_Réception) '.Range("B:B")
    Set k = .Find(y, LookIn:=xlValues)
    If Not k Is Nothing Then
    firstAddress = k.Address
    End If
    End With
    If Range(firstAddress).Row >= 216 And Range(firstAddress).Row <= 235 Then
    Range(firstAddress).Offset(-1, 0).Resize(27).EntireRow.Insert
    End If
End Sub

je l'ai intégré dans le fichier Recap, comme la dernière fois, retire le dossier Recap du ZIP avant de le tester

https://www.cjoint.com/c/CEDs1XrW0Ba

Philour01 · Answer

Bonjour Mike,
Je pense que nous sommes proches de la réalisation et te remercie beaucoup pour ton aide.

J'ai un problème de transfert sur mon fichier.
Pourrais-tu aménager le code en le simplifiant de la manière suivante.

1) Le fichier  "Récap.xls" n'existe pas, la réception se faisant sur la seule feuille "Récap" du fichier "projet1.xls. Je dis seule feuille car cette feuille existe aussi dans le fichier "projet2.xls".

2) Limiter le système sur 2 fichiers uniquement (projet1.xls et projet2.xls). A noter que demain l'extension pourrait être xltm. Donc on ne rajoute sur la feuille recap du projet1.xls que la nomenclature de la feuille edit [ou feuille1 du projet1.xls] et [la feuille edit ou feuille1] du projet2.xls.
Effectivement, tu as rajouté une feuille1 dans les 2 fichiers alors que nous disposons déjà de la nomenclature sur Edit ou liste dans ma présentation d'origine. Pourquoi cette feuille1 qui reprend les mêmes éléments ?

Edit nous donne déjà les résultats de la nomenclature du projet1 donc la feuille récap du fichier projet1.xls doit reprendre cette nomenclature du projet1 en la basculant de la feuille edit et aller chercher dans projet2 la nomenclature de la feuille edit pour la compiler en dessous.

3) les fichiers restent ouverts !!!

4) J'ai un message lors de l'ouverture du projet1.xls... sur les liaisons avec d'autres fichiers à mettre à jour ?

Mike-31 · Answer

Re,

Je t'&i déjà donné la réponse dans un post, en début de code sur le module tu verras ces lignes

    Const Fichier_Réception As String = "Récap.xls"
    Const Feuille_Réception As String = "Recap"
    Const Fichier_Cible_1 As String = "Projet1"
    Const Fichier_Cible_2 As String = "Projet2"
    Const Fichier_Cible_3 As String = "Projet3"
    Const Feuille_Cible As Variant = "Feuil1" 

il suffit de mettre entre guillemet le nom du fichier sur lequel tu dois transférer les données

Const Fichier_Réception As String = "Récap.xls"

de même pour la feuille de réception
Const Feuille_Réception As String = "Recap"

idem pour les fichiers cibles

ensuite tu verras ce code


Sub Copie_Fichier_FerméB()
    Application.DisplayAlerts = False
        Call Transfert_1 
        Call Transfert_2
        Call Transfert_3
        Call DécaleDisposition
    Application.CutCopyMode = False ' pour effacer le pressepapier sinon j'ai le message  de trop plein quand je ferme excel
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Votre archivage est à jour," ', , "Votre archivage est à jour,"
    ThisWorkbook.Save
End Sub


Call Transfert_1 concerne le fichier1 à copier
Call Transfert_2 concerne le fichier 2 à copier etc .... pour isoler un code il suffit de mettre une apostrophe devant la ligne, exemple pour isoler le code concernant le fichier Projet_3 

' Call Transfert_3


A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Oui Mike, ok sur le nom des fichiers ... je vais le faire et en ce qui concerne les fichiers qui doivent rester ouverts comment corrige t-on le code ?

Mike-31 · Answer

Re,


Si tes codes fonctionnent parfaitement, pour insérer ton deuxième code à la suite du premier, juste avant 'ActiveWorkbook.Save , saisi Call DécaleDisposition

Philour01 · Answer

Cela ne fonctionnait pas à cause des variables non définies au départ.
J'ai repris ces éléments mais cela ne fonctionne toujours pas sur la deuxième macro (sub décale....). Comment identifie t-il que la ligne "Disposition spéciale" doit générer le décalage sur le bas ? 


Ci-dessous ensemble du code
 Option Explicit

Dim y
Dim k
Dim firstAddress
Dim Der_lig_E, Der_lig_R, Nbre_lig As Long

    Const Feuille_Origine As String = "LISTE"
    Const Feuille_Destination As Variant = "Edit"



Sub Transfert_Données()
    Application.ScreenUpdating = False
    Sheets("Edit").Select
    'Dim Der_lig_E, Der_lig_R, Nbre_lig As Long
    
    Application.ScreenUpdating = False
    Sheets(Feuille_Origine).Activate
    Der_lig_E = Evaluate("=MAX(IF(E:E="""",1,ROW(E:E)))") 'Variable recherche dernière ligne non vide contenant formule
    Der_lig_R = Evaluate("=MAX(IF(R:R="""",1,ROW(R:R)))") 'Variable recherche dernière ligne non vide contenant formule
    If Der_lig_E = Der_lig_R Then
    'MsgBox "Pas de nouvelle donnée à exporter", , "Votre archivage est à jour,"
    Application.ScreenUpdating = True
    Sheets("Edit").Select
    Range("A174").Select
    Exit Sub
    Else
    Nbre_lig = WorksheetFunction.CountA(Range(Range("E6"), Range("E" & Der_lig_E)))  ' compte ligne à copier
    Sheets(Feuille_Destination).Activate
    Range("E170").End(xlDown).Offset(1, 0).Resize(Nbre_lig).EntireRow.Insert '------------------- insére Nbre de ligne à copier
    Sheets(Feuille_Origine).Activate
    Range(Range("E" & Der_lig_E), Range("R" & Der_lig_R + 1).Offset(0, -3)).Copy '--------------- sélectionne ligne à copier
    Sheets(Feuille_Destination).Activate
    Range("E170").End(xlDown).Offset(1, 0).Resize(Nbre_lig).Select '----------------------------- sélectionne la première cellule vide
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteFormats
    Sheets(Feuille_Origine).Activate
    Range(Range("E" & Der_lig_E).Offset(0, 13), Range("R" & Der_lig_R)) = "transféré"
    Application.CutCopyMode = False
    'MsgBox "Vos données ont été copiées", , "Votre archivage est à jour,"
    
    Call DécaleDisposition
    'ActiveWorkbook.Save '----------------------------------------------------------------------- enregistrement automatique
    End If

    Application.ScreenUpdating = True
    
    
    Sheets("Edit").Select
 
    Range("A174").Select
End Sub



Sub DécaleDisposition()
On Error Resume Next
    Windows("ProjetDAB4").Activate
    Sheets("Edit").Select
    Sheets("Edit").Activate
    y = "Dispositions*"
    With Worksheets("ProjetDAB4").Range("E:E")
    Set k = .Find(y, LookIn:=xlValues)
    If Not k Is Nothing Then
    firstAddress = k.Address
    End If
    End With
    If Range(firstAddress).Row >= 216 And Range(firstAddress).Row <= 235 Then
    Range(firstAddress).Offset(-1, 0).Resize(27).EntireRow.Insert
    End If
End Sub

Philour01 · Answer

Bonsoir Mike,
D'après toi qu'est ce qui cloche dans Sub DécaleDisposition ?

Mike-31 · Answer

Re,

que viennent faire ces lignes dans ton code
Windows("ProjetDAB4").Activate 
 Sheets("Edit").Select 
 Sheets("Edit").Activate  
et d'où sort cette référence "ProjetDAB4" 
With Worksheets("ProjetDAB4").Range("E:E") au départ on contrôlait la colonne B:B et la tu es en colonne E ?

Si les variables y et K ne sont pas déclarées en début de module, soit les saisir en début ou en début de code
Dim y
Dim K

Sub DécaleDisposition()
On Error Resume Next
 y = "Dispositions*"
 Windows("ICI LE NOM DU FICHIER.xls").Activate
 Sheets("ICI NOM DE LA FEUILLE").Select

 With Worksheets("ICI NOM DE LA FEUILLE").Range("E:E")
 Set k = .Find(y, LookIn:=xlValues)
 If Not k Is Nothing Then
 firstAddress = k.Address
 End If
 End With
 If Range(firstAddress).Row >= 216 And Range(firstAddress).Row <= 235 Then
 Range(firstAddress).Offset(-1, 0).Resize(27).EntireRow.Insert
 End If
End Sub 

Lorsqu'on fait du VBA il faut être rigoureux sinon ça plante, on est dans la programmation, j'ai testé le code et il n'y a rien à dire, si le début de la phrase critère "Disposition" se trouve entre les lignes 216 et 235
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

http://cjoint.com/?CFdaGD82Q09

Re Mike,
Une version 5 avec une correction des formules de LISTE pour disposer de "" si pas de résultat au lieu de 0.
Intégration de la 2ièm fonction qui n'insère pas de saut de page et de décalage des lignes vers le bas ?

Mike-31 · Answer

Re,

Je t'ai dit qu'il fallait être rigoureux en VBA

dans cette ligne le nom correspond pas et il n'y a pas l'extension si tu n'utilise pas les constante en début de code
Windows("projetDAB4").Activate

dans cette ligne tu as saisi le nom du fichier pas de la feuille
With Worksheets("projetDAB4").Range("E:E")

remplace le code par celui ci, 

Sub DécaleDisposition()
On Error Resume Next
    Windows("projetDAB5.xls").Activate
    Sheets("Edit").Activate
    y = "Dispositions*"
    With Worksheets("Edit").Range("E:E")
    Set k = .Find(y, LookIn:=xlValues)
    If Not k Is Nothing Then
    firstAddress = k.Address
    End If
    End With
     Range(firstAddress).Select
    If Range(firstAddress).Row >= 216 And Range(firstAddress).Row <= 235 Then
    Range(firstAddress).Offset(-1, 0).Resize(27).EntireRow.Insert
    End If
End Sub 

ne t'étonne pas si je supprime des post sans intérêt afin d'écourter la discussion qui s'étend sur 5 pages

Philour01 · Answer

Merci beaucoup Mike !!
Tu as attiré mon attention sur les fichiers renommés qui ne correspondaient plus au code et effectivement il faut être particulièrement attentif.
Désolé de t'avoir fait perdre du temps et encore merci pour ta patience.
Cela fonctionne parfaitement et je vais regarder maintenant le transfert de ton troisième code.

Mike-31 · Answer

Re,

c'est pour cela que sur les codes initiaux j'avais créé des constantes en début de code ce qui permet d'actualiser rapidement tous les codes d'un coup, on change la valeur de la constantes sans se préoccuper des codes puisque les codes font appel à la constante  
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Philour01 · Answer

Une petite question Mike :
Les noms des projets changeants, est-il possible dans la macro d'anticiper ces changements de noms sur la partie :

exemple :
Mon fichier d'origine est projetDAB5 pour le code 
Windows("projetDAB5.xls").Activate 

mais si je renomme mon fichier le code ne fonctionne plus.

Mike-31 · Answer

Re,

Non, nous sommes en programmation et encore une fois il faut être pointu, et j'en reviens aux constantes, tu changes la valeur de ta constante et si tu dois utiliser plusieurs fois le nom de fichier dans tes codes, si tu écris correctement tes codes en faisant référence à tes constantes tu n'as plus rien à faire dans tes codes.
il est toutefois possible d'anticiper, en mettant dans une cellule une formule pour afficher le nom du classeur et dans le code aller chercher ce nom, je fais des essais

Mike-31 · Answer

Re,

évite dans tes fichiers de déplacer tes zones d'impression exemple feuille Edit les colonnes A à C et comme je te l'ai déjà dit  fusionner tes cellules

alors dans une cellule exemple en I2 tu colle cette formule qui te donnera le nom du fichier

=STXT(CELLULE("nomfichier";I1);CHERCHE("[";CELLULE("nomfichier";
 A1))+1;CHERCHE("]";CELLULE("nomfichier";A1))-CHERCHE("[";
 CELLULE("nomfichier";A1))-1)
 
ensuite dans le code tu fais référence à cette cellule,

Windows([I2].Value).Activate

 mais l'idéal serait de la nommer exemple toto

Le code deviendrait

Sub DécaleDisposition()
On Error Resume Next
 Windows([toto].Value).Activate
 Sheets("Edit").Activate
 y = "Dispositions*"
 With Worksheets("Edit").Range("E:E")
 Set k = .Find(y, LookIn:=xlValues)
 If Not k Is Nothing Then
 firstAddress = k.Address
 End If
 End With
 Range(firstAddress).Select
 If Range(firstAddress).Row >= 216 And Range(firstAddress).Row <= 235 Then
 Range(firstAddress).Offset(-1, 0).Resize(27).EntireRow.Insert
 End If
End Sub

Philour01 · Answer

Super Mike, Merci, je teste dès demain car petite fatigue.
Sinon, partant d'un fichier.xlt les 2 premiers projets sont par défaut nom du fichier 1 et nom du fichier 2. Mais je trouve un intérêt à l'anticipation par la programmation et la possibilité de nommer le fichier de manière aléatoire.

Ma fonction qui annule le transfert de la nomenclature pour la modifier ne prend pas en compte actuellement le décalage des cellules à remettre à leur place.
Comment inverser le code de la 3 et 4 avant dernière ligne :
If Range(FirstAddress).Row....... Pour supprimer les lignes insérées ?

Philour01 · Answer

Bonjour Mike,

Je viens de tester et c'est TOP, mes fichiers renommés sont identifiés !!
Le problème qui me reste est le suivant :
Comment annuler les insertions de lignes à partir de ce code ?

J'ai aménagé ta fonction pour disposer d'un décalage avec un Resize variable selon le positionnement de la FirstAddress.


Sub DécaleDisposition()
On Error Resume Next
'Windows("projetDABV1.xls").Activate
'Windows("projetDABV2.xls").Activate

Windows([s2].Value).Activate

Sheets("Edit").Activate
y = "Dispositions*"
With Worksheets("Edit").Range("E:E")
Set k = .Find(y, LookIn:=xlValues)
If Not k Is Nothing Then
firstAddress = k.Address
End If
End With
Range(firstAddress).Select
If Range(firstAddress).Row = 215 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(39).EntireRow.Insert
End If
If Range(firstAddress).Row = 216 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(38).EntireRow.Insert
End If
If Range(firstAddress).Row = 217 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(37).EntireRow.Insert
End If
If Range(firstAddress).Row = 218 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(36).EntireRow.Insert
End If
If Range(firstAddress).Row = 219 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(35).EntireRow.Insert
End If
If Range(firstAddress).Row = 220 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(34).EntireRow.Insert
End If
If Range(firstAddress).Row = 221 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(33).EntireRow.Insert
End If
If Range(firstAddress).Row = 222 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(32).EntireRow.Insert
End If
If Range(firstAddress).Row = 223 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(31).EntireRow.Insert
End If
If Range(firstAddress).Row = 224 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(30).EntireRow.Insert
End If
If Range(firstAddress).Row = 225 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(29).EntireRow.Insert
End If
If Range(firstAddress).Row = 226 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(28).EntireRow.Insert
End If
If Range(firstAddress).Row = 227 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(27).EntireRow.Insert
End If
If Range(firstAddress).Row = 228 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(26).EntireRow.Insert
End If
If Range(firstAddress).Row = 229 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(25).EntireRow.Insert
End If
If Range(firstAddress).Row = 230 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(24).EntireRow.Insert
End If
If Range(firstAddress).Row = 231 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(23).EntireRow.Insert
End If
If Range(firstAddress).Row = 232 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(22).EntireRow.Insert
End If
If Range(firstAddress).Row = 233 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(21).EntireRow.Insert
End If
If Range(firstAddress).Row = 234 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(20).EntireRow.Insert
End If
If Range(firstAddress).Row = 235 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(19).EntireRow.Insert
End If
If Range(firstAddress).Row = 236 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(18).EntireRow.Insert
End If
If Range(firstAddress).Row = 237 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(17).EntireRow.Insert
End If
If Range(firstAddress).Row = 238 Then ' And Range(firstAddress).Row <= 235 Then
Range(firstAddress).Offset(-1, 0).Resize(16).EntireRow.Insert
End If

End Sub

Philour01 · Answer

Bon, j'ai trouvé quoique la suppression des lignes soit un peu longue (environ une centaine) en rajoutant la variable k qui identifie les lignes insérées désormais vides (suite à la variable i) pour les supprimer.
Cette fonction me remet en position de départ et annule toutes les insertions de lignes précédentes.


Application.ScreenUpdating = False
    Worksheets("LISTE").Visible = True
    Sheets("LISTE").Select
    Range("R6:R55").Select
    Selection.ClearContents
    Range("R1").Select
    Worksheets("LISTE").Visible = False
     Sheets("Edit").Select
    Range("A174").Select
    ActiveWindow.SmallScroll Down:=-178
    ActiveWindow.SmallScroll Down:=154
    Sheets("Edit").Select
      
   Dim DernierLigne As Long
   For I = 1 To 55
   Range("E181").Select
   DernierLigne = Selection.End(xlDown).Row
   If ActiveCell.Value <> 0 Then Selection.EntireRow.Delete
   Next I
   
   For k = 1 To 49
   Range("E195").Select
   DernierLigne = Selection.End(xlDown).Row
   If ActiveCell.Value = 0 Then Selection.EntireRow.Delete
   Next k
   
   Sheets("Fiche Estimation").Select
   Worksheets("LISTE").Visible = xlSheetVeryHidden
   Sheets("Edit").Select

  
   
   
   
End Sub

Copier des donnees d'une feuille jusqu'à la derrière ligne

76 réponses

Discussions similaires