Macro pour archiver...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour l'écriture d'une macro afin d'archiver sur une autre feuille du même classeur...
Fichier joint, plus simple.

Je vous remercie, par avance, pour le temps que vous voudrez bien m'accorder.
Bien amicalement,
Christian

 

[Cousinhub]

Re : Macro pour archiver...

Bonjour, la structure de ton fichier n'est pas simple.....
Il y a des cellules "fantômes", les données ne sont pas forcément toutes les 4 lignes..... et que dire de l'emplacement des données sur la feuille "Viandes"!!!!
Regarde le fichier joint, et reviens en cas de requête supplémentaire.
Bon courage

 

[Christian0258]

Re : Macro pour archiver...

Re,

Merci bhbh pour ton travail, mais ta macro plante sur "i timer".

Peux-tu m'éclairer stp

Merci à toi
à+

Christian

 

[Cousinhub]

Re : Macro pour archiver...

Re-,
C'est rien, c'était juste pour calculer le temps que mettait la macro à réaliser la manip.
tu peux effacer la première ligne :t = Timer et la dernière : MsgBox Timer() - t

 

[Christian0258]

Re : Macro pour archiver...

Re , Bhbh

Merci c'est OK ça marche impec.

à+
Christian

 

[Christian0258]

Re : Macro pour archiver...

Bonjour à tout le forum, bhbh,

Pourriez-vous me dire comment modifier la macro de, bhbh (encore merci à lui), pour que celle-ci ne copie que les valeurs...voir fichier joint.


Merci à vous pour l'aide que vous m'apportez.
Bien amicalement,
Christian.

 

[Cousinhub]

Re : Macro pour archiver...

Bonjour, en ce week-end arrosé
Mon code initial avait pour but d'éliminer des cellules à priori vides, mais qui faussaient le nombre de lignes à copier.
avec le collage spécial, ce souci est enlevé.
regarde la modif et reviens si tu as un souci

 

[Christian0258]

Re : Macro pour archiver...

Re,

Bonjour bhbh,

Merci pour ta réponse.
Chez moi la macro plante sur ;
If Cells(i, 58) <> "" Then

Je ne comprends pas, dans "ton fichier corrigé" ça fonctionne parfaitement.

Peux-tu m'éclairer?
à+
Christian

 

[Cousinhub]

Re : Macro pour archiver...

As-tu modifié et adapté le code pour ton fichier?
Si oui, peux-tu le poster ici? (uniquement le code)

 

[Christian0258]

Re : Macro pour archiver...

Re,

bhbh,

Je viens de trouver la cause ; j'avais dans une ligne un message d'erreur de formule #REF!

Je te remercie beaucoup, bhbh, pour ton accueil....

à+
Christian

 

[Cousinhub]

Re : Macro pour archiver...

Re-,
une petite question pour ma culture :
Ton fichier original (du 15/08) comprenait des cellules un peu drôles, elles semblaient vides, n'avaient pas d'espaces ou autres symboles invisibles à l'oeil.
D'ailleurs, en sélectionnant la cellule BF540 par exemple, et en faisant un double-clic sur le haut de cette cellule, permettant de rejoindre rapidement la première cellule non-vide (enfin, celle juste en dessous), on s'arrêtait en BF519, ce qui voulait dire que BF518 contenait quelque chose....
Mais, il n'y avait rien, d'où le premier code que je t'avais fourni, permettant de "supprimer" ces valeurs fantômes.
Ces données proviennent-elles d'une extraction quelconque?

 

[JCGL]

Re : Macro pour archiver...

Bonjour à tous,
Re bh*2,
Salut Christian ,

Un petit coucou à mon ami Christian qui va avoir fort à faire avec bhbh : c'est un pugnace et il est performant : tant mieux

Désolé pour l'intrusion

PS : Christian, je suis AC (Private Joke)

A+

 

[Cousinhub]

Re : Macro pour archiver...

Bonjour JCGL, merci pour ton intrusion, mais ces cellules me tracassent, et j'aimerai bien avoir les raisons qui pourraient provoquer ce type de comportement afin de pourvoir les inclure si besoin est dans de futures applications.
Bonne journée sous ce ciel pluvieux

 

[Christian0258]

Re : Macro pour archiver...

Re, bonsoir JCGL, bhbh,

Content de te lire JC, je lis toutes tes interventions pour apprendre...

bhbh, les cellules à archiver contiennent des formules ; =si(estna(recherchev) et des =si...


à +

Merci encore, bhbh pour ton aide si précieuse.
Bien amicalement à vous,
Christian

 

[Cousinhub]

Re : Macro pour archiver...

Bonsoir, ce n'était pas tout à fait le but de ma question.
Dans ton fichier original, les lignes colorées en orange, mais qui sont vides, comment les as-tu effacées? ou renseignées? en faisant le test que je t'ai mis dans mon post précédent, tu te rendras compte qu'il y a un problème.
Bonne soirée quand même et "Allez les Petits" (France/Angleterre à Marseille, congg)