Sélection et macro avec EXCEL

Marsh Posté le 28-09-2005 à 16:53:01

Bonjour à tous,

Je suis en train de réaliser une macro. Dans mon document excel je dispose de "N" lignes.
J'ai une formule en début de ligne qui utilise une cellule de la même ligne.
Donc pour faire ma macro et appliquer la formule a toutes les lignes je fais un copier de la cellule et je la copie à chaque début de ligne jusqu'a la Nième ligne.

Le problème si après je veux appliquer cette macro avec N-1 ligne ou N+1 ligne par exemple la formule sera copiée sur N lignes toujours.

Comment puis-je faire pour que ce copier coller soit fait en début de ligne de chaque ligne existante??

N'hésitait pas pour d'autres explications

Marsh Posté le 28-09-2005 à 16:53:01

Marsh Posté le 28-09-2005 à 20:58:52

Un peu de code:

Dim iDerLigne As Integer
iDerLigne = Cells.SpecialCells(xlLastCell).Row
Range([A1], Cells(iDerLigne, 1)).Select
Selection.FillDown

Message cité 1 fois

Marsh Posté le 29-09-2005 à 17:51:17

AlainTech a écrit :

Un peu de code:

Dim iDerLigne As Integer
iDerLigne = Cells.SpecialCells(xlLastCell).Row
Range([A1], Cells(iDerLigne, 1)).Select
Selection.FillDown

OK mais j'ai un petit pb avec ce bout de code. D'après e que j'ai compris, "Cells.SpecialCells(xlLastCell).Row" correspond à la dernière ligne utilisé et comme je fais un traitement avant de faire le tri j'ai des lignes vide au début de mon tableau. Quel code faudrait faire pour les enlever?

Marsh Posté le 29-09-2005 à 22:38:06

Code modifié:

Dim iDerLigne As Integer
iDerLigne = Cells.SpecialCells(xlLastCell).Row
Range([A1].End(xlDown), Cells(iDerLigne, 1)).Select
Selection.FillDown

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *