Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1470 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Sélection et macro avec EXCEL

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Sélection et macro avec EXCEL

n°1210048
Dolu007
Posté le 28-09-2005 à 16:53:01  profilanswer
 

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

mood
Publicité
Posté le 28-09-2005 à 16:53:01  profilanswer
 

n°1210234
AlainTech
Pas trouvé? Cherche encore!
Posté le 28-09-2005 à 20:58:52  profilanswer
 

Un peu de code:

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


n°1211003
Dolu007
Posté le 29-09-2005 à 17:51:17  profilanswer
 

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?

n°1211196
AlainTech
Pas trouvé? Cherche encore!
Posté le 29-09-2005 à 22:38:06  profilanswer
 

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!

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Sélection et macro avec EXCEL

 

Sujets relatifs
Comment importer des données précises d'excel dans AccessUne pitite macro toute simple en VB
[RESOLU]Fonction Excel STXTSélection des utilisateurs sur une page
Marcro et Fusion d'un tableau Excel dans WordExcel et dot.net
Comment savoir la version d'Excel avec VBA ?copier-coller plusieurs fois une sélection
Export d'Access vers Excel[VBA][Excel]definir la selection dans une macro [resolu]
Plus de sujets relatifs à : Sélection et macro avec EXCEL


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR