Bonjour,

Je cherche à copier des lignes en respectant une condition et les coller dans une autre feuille.
J’ai eu beau lire et relire à travers les forums des solutions proposées, je suis tellement nulle en VBA, qu’il y a toujours quelque chose qui cloche quand j’essaye d’appliquer une solution à mon fichier.
Please HELP !!

Voici quelques infos sur le classeur concerné
La feuille source : Liste intégrale (disons LI)
La feuille où je souhaite copier les données : Renouvellement (disons RE)
Dans la feuille source j’ai 11 colonnes : Code / Langue / Raison sociale / Tél / Fax / Email / Date agrément / Année Renouvellement (disons iAR)/ Certification ISO / Validité ISO / Nouveau certificat
Je souhaite copier toutes les lignes dont l’année de renouvellement est 2007 (ou année en cours si possible, de façon à ne pas changer la macro chaque année) et les coller dans la feuille « Renouvellement » (en ligne 2 – la ligne 1 étant réservée aux titres)
Au départ mon tableau source est trié sur le critère raison sociale et je souhaite retrouver cet ordre après le copier / coller

Merci d’avance à ceux qui se pencheront sur le problème

Mais si on peut trouver ça sur ce forum.

Exemple : http://www.presence-pc.com/forum/p [...] 5071-1.htm
En particulier cette réponse : http://www.presence-pc.com/forum/p [...] htm#t34497

Il y a un certain nombre de choses à adapter, bien sûr.

Je me penche sur ce qui été fait et j'essaye de mettre en application.
Si j'ai des problèmes, je reviens vers toi, en espérant que cela ne t'ennui pas.

Je suis en train de faire le point sur les différentes réponses faites sur une question de copier dans le forum.
Peux-tu me dire ce que signifie
"Dim ligneH As Long
ligneH = 1"
en tête de code.
Ma question est très certainement simpliste, mais j'avoue débarquer dans le VBA et j'ai vraiment envie de comprendre ce que j'écris, pur pouvoir appliquer à d'autre cas le fait de copier ou extraire des données en fonction de conditions particulière.
Merci d'avance

Ta question est effectivement simple et digne d'un très grand débutant !
(C'est un état qui ne dure pas et par lequel nous sommes tous passés)

Cela ne m'ennuye pas de répondre aux gens de bonne volonté.
(Pour prouver ta bonne volonté, s'il en était besoin, utilise la balise [code] pour présenter même deux lignes)

Avant de te répondre, j'aimerais que tu mettes ton curseur sur le mot Dim, que tu appuyes sur [F1] et que tu lises TOUT ce qui s'affiche

A te lire.

Bon j'avoue ne pas tout avoir compris, mais j'ai découvert des choses intéressantes.
Désolée, mais je vais encore posée une question digne d'un grand débutant des forums (mais c'est aussi le cas) : je veux bien utiliser la balise [code], mais comment tu fais ?
STP ne baisse pas les bras en lisant ce message, je suis sûre qu'une fois que je serai mise sur les rails je devrai y arriver.
Cela fait plusieurs jours que je lis les macros des autres pour essayer de comprendre l'esprit du VBA (uniquement dans le cadre de mon exemple, pour l'instant).
NB : j'ai d'ailleurs remarqué que tu répondais souvent et assidument aux débutants VBA

Voui, je réponds aux débutants, même les grands, en VB, en forum, et autres (Je suis bien obligé, je suis un des modos )
Mais as-tu remarqué que je faisais trouver une solution avant de de donner la mienne Tu vas subir le même sort

Alors, pour la balise [code], une visite au règlement t'aurait fait le plus grand bien :

Alors, et ce résultat pour Dim ?

Bon j'avoue j'ai un peu honte, mais il faut bien un début à tout !!
Merci pour le code, en fait je viens de comprendre qu'en utilisant la réponse rapide on n'avait pas la barre d'outil pour le code ! Ha !

Pour la question sur le Dim, j'ai compris que cela servait à déclarer des données et nottament leur format (je ne sais pas si ma réponse est très claire?)
En fait ma question était plus sur quand utilise-t-on "As Long" et j'ai fait comme tu m'as dit! F1 cela marche bien ! Lol

Bon j'ai tout de même essayé d'avancé sur mon pb de copier coller, voici ce que j'ai écrit (tu reconnaitras ta pates, j'ai pioché dans d'autres réponses que tu as faites). Sauf que bien évidemment cela ne marche pas.

L'erreur est sur la ligne 14 :
"La méthode 'Range' de l'objet '_Worksheet' a échouée"
On est bien d'accord que lorsque dans la feuille Liste intégrale (LI) au niveau de la colonne 9, le texte 2007 apparait, je veux copier la ligne correspondante et la coller dans la feuille Renouvellement (RE). Et ceux pour toute les lignes du tableaux

Aller dis moi qu'il ne manque pas grand chose pour y arriver !

Et non. C'est plein d'erreurs

Un numéro de ligne, sous Excel, va de 1 à 65536.
Un Integer, sous VBA, va de -32769 à 32768.
Donc un numéro de ligne n'est forcément pas un Integer.
Le type de données entier supérieur est Long.

Comment, tu n'utilises que la plage 3:10000 ? Qu'est-ce que ça peut me faire ? Tu vas revenir en me disant que ça ne marche pas si tu as un peu plus de données la prochaine fois !

Toutes les autres erreurs sont concentrées La ligne 14 !!!!!!

Cells prend en paramètre la ligne et la colonne sous forme d'entier et renvoie une plage de cellules d'une seule cellule.
Range prend en paramètre un ou deux ranges, ou une adresse sous forme de chaîne et renvoie une plage de plusieurs cellules.

Donc, RE.Range(iRE, 1) est faux. Il faut mettre Cells à la place.

Si iLi = 3, alors "iLI:iLI" = .... "iLI:iLI" !
Pour avoir 3 si il y a 3 dans iLi, il faut utiliser iLi, pas "iLi".
Comment faire pour avoir "3:3" en partant de iLi = 3 ?
Comme ça :

Qu'est-ce que ce .Paste vient faire là ? Vire-moi ça de là. Et si tu veux savoir pourquoi, relis la doc ( [F1] ) sur Copy.

Perso, quand je donne un exemple sur ce site (je ne le fais pas dans mes macros ) je l'écris comme ça pour fixer les idées :

même si la syntaxe suivante est juste

Ultime erreur, ligne 19. Qu'est-ce que ce CutCopyMode fait là. Vire-moi ça de là.

C'est tout

Bonjour,

Désolée de ne pas t'avoir répondu hier , mais j'ai du partir précipitamment.
Je m'y suis donc remise ce soir et EUREKA !!!!!!!! après avoir modifié tout ce que tu m'as dit cela fonctionne parfaitement.
Je pense que tu peux t'attribuer la palme de la patience !!
En tous les cas GRAND MERCI à toi pour ton royal coup de main!!!!!
Je dois appliquer cette macro à d'autres fichiers un peu plus complexes (et c'est non plus du copier / coller que je dois faire, mais de l'extraction de données vers une autre feuille). Si j'ai un problème, j'espère que tu ne vois pas d'inconvénient à ce que je revienne vers toi.
Au plaisir de te retrouver sur le forum....

Poste sur ce forum.
Moi ou un autre te répondra bien

Bonjour,

J'ai de nouveau besoin de votre lumière pour une macro assez proche du copier / coller décrit ci-dessus, sauf que c'est pour faire du couper / coller.
Je suis donc repartie de la macro précédente et j'ai remplacé copy par cut ce qui donne (nb les données ont aussi changées) :

Jusque là tout marche parfaitement, mais je voudrai apporter 3 modif que je ne sais pas du tout comment intégrer :
- tout d'abord je souhaiterai que les lignes coupées de la feuille "Revue" (puis coller dans l'autre) soit supprimées, de façon à ne pas avoir de ligne vide dans la feuille "Revue". J'ai essayer d'insérer "Delete Shift:=xlUp" entre les lignes 14 et 15, mais visiblement c'est pas bon!
- ensuite il faudrait non plus que je colle systématique à partir de la ligne 17 de la feuille "Actions validées", mais à partir de la première ligne vide, après la ligne 16 (les lignes de 1 à 16 étant utilisé pour faire un en-tête de page où certaines lignes sont vides)
- dernier point, celui qui à mes yeux me paraît le plus compliquer, je souhaiterai écrire la date de l'action couper / coller sur chaque ligne concernée dans la colonne 5 (sur une des 2 feuilles ou sur les 2, selon ce qui est le plus simple). Pour ce point j'avais essayé avec la formule : MAINTENANT(), mais la date se remet à jour à chaque fois que je lance la macro, alors que je veux conserver la date de l'action.

J'espère que mes explications sont suffisamment claires.
Merci d'avance à ceux qui plancheront sur mon cas.

Ton idée de "Delete Shift:=xlUp" (Message pour KangOl: Moi aussi je veux une balise [ CODE ] inline ) est excellente !

Il faut juste se demander sur quoi faire cette suppression :

• Sur la cellule ? -> R.Delete ...
• Sur la ligne ? -> R.Range(iR & ":" & iR).Delete ...

Quant aux lignes vides, cf http://www.presence-pc.com/forum/p [...] htm#t33991

MAINTENANT, essaie ce petit bout de programme là :

- Pour la supression des lignes tout va bien, sauf que, si 2 lignes successives ont la mention "validée" dans la colonne 6, seule la 1ère ligne et extraite de la feuille source puis coller dans la feuille "actions validées"

- Pour atteindre la 1ère ligne vide de la feuille destinatrice, j'ai du faire un meli-melo car au lieu de coller dans la première ligne vide, la macro regarde quelle est la première ligne vide de la feuille source (par exemple ligne 25) et colle dans la feuille destinatrice à la ligne 25 alors que la 1ère ligne vide est par ex. la 20.

Voici le nouveau code

Pour le dernier point cité, la macro que tu me proposes me donne la date et heure à laquelle je lance la macro, mais ne me permet pas la saisie automatique (colonne 5) de la date sur chaque ligne qui a été basculée dans la feuille destinatrice.

Rhooo, je suis désolé. J'ai honte de moi L'explication et la soluce au même endroit que tout à l'heure : http://www.presence-pc.com/forum/p [...] htm#t34094


Pour ton méli-mélo, c'est exactement ce qu'il faut faire. Bravo. (C'est ça, programmer ) Je suis fier de toi. Peut-être que préciser la feuille (AV.Range...) serait judicieux, ligne 10


Pour mettre une valeur dans une case, alors là, j'ai honte pour toi !!!! Tu ne sais pas mettre la valeur de New dans la case iAV x 5 ?

Pour ta suppresion, je te propose quelque chose d'autre. Remonter "à l'envers" comme dans le tuto est possible, mais pas très judicieux dans ton cas. Je te propose plutôt de marquer les lignes à supprimer puis de faire une seconde passe pour nettoyer :

J'ai effectivement honte, mais je ne sais pas faire et je sais encore moins ce qu'est la valeur New. Mais rappelle toi, je débutante VBA

Cela dit est-ce que ma question de départ était clair ou faut-il que je donne un ex. pour que tu puisses m'aider ?

Le code à suivre est maintenant disponible. (Tu pourrais attendre que je finisse avant de fondre en larmes en te martellant la poitrine en criant "je suis débutante" )

Alors, lignes 3, 14, 19, 24, 30, 34, j'utilise deux fonctions que je te demande d'aller voir dans l'aide. C'est juste pour faire beau, et ça ne sert à rien, c'est donc indispensable

La valeur de New c'est la valeur que renvoie New. Pour la connaître, faire MsgBox New (C'est pratique, c'est ce que tu cherches à faire.)

Pour info, la valeur de la case iAV x 5 de la feuille AV s'écrit AV.Cells(iAV, 5).Value avec tes variables correctement positionnées. Il n'y a plus qu'à y mettre New dedans !!!!!!!

Les lignes 18 à 24 sont évidemment inutiles.
Pour le reste, essaie de bien tout comprendre.