[VBA-E] Positionnement dans une feuille

Bonjour,

Ceci est ma première discussion dans ce forum, étant novice en ce qui concerne le VBA.

Je suis confronté à un problème, qui l'eut cru ;)

Je dois effectuer le traitement suivant:

1. Ouvrir un ficheir, et dans 3 feuilles effacer certaines lignes basées sur certaines conditions (date) ... pas de problèmes ici.
2. Ouvrir un 2d fichier copier depuis ce 2d fichier vers le premier fichier, et ce à l'endroit de la première ligne vide dans les feuilles du 1er fichier ... ici aussi pas de problèmes.
3. Ouvrir un 3eme fichier copier depuis ce 3eme fichier vers le premier fichier, et ce à l'endroit de la première ligne vide dans les feuilles du 1er fichier ... ici se situe le problème.

Lors de la 1ère copie, 'VBA' se positionne automatiquement sur la 1ère ligne vide, tandis que pour la 2de copie il reste positionné sur cette même 1ère ligne ... comment dois-je procéder afin de me déplacer vers cette 1ère ligne vide?

Merci pour toute aide.

Guy

Teste la première ligne vide de ton fichier 1

Code:

---

1 2	DernièreLigne = Workbooks("Un").Worksheets("feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Row

---

Première ligne vide = DernièreLigne + 1
Tu simplifies ;)
Donc, pour coller ta donnée, tu le fais dans la cellule de la ligne en question.
Si tu as un pb, montre ton code.
A+

Bonjour,

Merci pour ta réponse, je vais tester ta solution dans les jours à venir. Posterai mon code si cela ne marches pas (tires pas sur le pianiste au vu du code, c'est mon premier 'programme' VBA).

Guy

Pas de pb, d'autant que j'avais oublié le point aprés Workbooks("Un"). Ecris

Code:

---

DernièreLigne = Workbooks("Un").Worksheets("feuil1")...

---

où "Un" est à remplacer par le nom du fichier ;)
A+

OK, j'ai testé la ligne de code donnée et cela me retourne en effet la dernière ligne non vide du fichier. Alors je croyais utilser une ligne du style:

Code:

---

Worksheets("feuill1").Range(Cells(lignevide, 1), Cells(derniereligne, 29)).Paste

---

mais ca marche pas ... si on pouvait encore m'aider à compléter cela. Merci d'avance.

Je joins aussi mon code source ... faut pas regarder si c'est optimal, je crois bien que non, mais c'est le 1er en VBA alors ....

Merci d'avance et un Joyeux Noel à ceux qui litont le message

Guy

pourrai tu être plus clair sur ce que tu ve copier ... d'ou et vers ou ..?

Bonjour,

Je vais essayer d'être plus clair comme demandé.

J'ai donc un 1er fichier qui doit être mis à jour. Avant de le mettre à jour j'efface les lignes en testant certaines conditions (effacer les lignes du mois courant et si <15 du mois celles du mois précédent aussi).

Une fois les lignes effacées je dois ouvrir un 2d et un 3ème fichier, d'ou je vais copier les lignes du mois courant et si <15 du mois celles du mois précédent.

Chacun des 3 fichiers a la même structure et je fais ce traitement dans 3 feuilles, appelées dans mon code 'Passkey Data, 'WFM Data' et 'Click-Schedule Data'.

J'espère que ceci clarifie le problème. SI ce n'est pas le cas, je peux donner des explications encore plus détaillées.

Merci.

Guy

Citation:

---

Envoyé par GuyRo

OK, j'ai testé la ligne de code donnée et cela me retourne en effet la dernière ligne non vide du fichier. Alors je croyais utilser une ligne du style:

Citation:

---

Worksheets("feuill1").Range(Cells(lignevide, 1), Cells(derniereligne, 29)).Paste
mais ca marche pas ... si on pouvait encore m'aider à compléter cela.

---

---

Pour copier une ligne dans un classeur, tu dois te placer dans le classeur devant recevoir la ligne

Code:

---

1 2 3 4

workbooks("Fich2").worksheets("Feuil1").Activate Range(PremièreCelluleOùColler).select 'ex : B7 workbooks("Fich1").worksheets("Feuil1").Range(Cells(LaLigne, LaCol1), Cells(LaLigne, LaCol2)).Copy Activesheet.paste

---

Si PremièreCelluleOùColler = B7, colle tes données sur la ligne 7 à partir de la colonne B
A+

Tout d'abord souhaiter une bonne année 2007 à tous.

Ensuite dire merci pour l'aide apportée. J'arrive à faire 95% de ce que je suis supposé faire. Vais d'abord investiguer le problème restant avant de faire appel au forum.

Guy