Macro Excel pour copier cellule dans une autre

Macro Excel pour copier cellule dans une autre - Logiciels - Windows & Software

Marsh Posté le 22-01-2007 à 14:05:03    

Bonjour,
 
Je souhaite automatiser une copie d'une cellule vers une autre. J'ai déjà réussi a automatiser l'ouverture et à formater le fichier pour qu'il s'ouvre correctement (bravo !) d'un fichier excel.
Maintenant, il faudra que le contenu de la cellule B17 soit copié dans la cellule A18. Il faudrait que cela soit fait de la cellule A1 à A65536...
Avez vous une idée ?
 
Merci !
 
http://us.a2.yahoofs.com/users/43ffb174zbea41738/8527re2/__sr_/9fdere2.jpg?phAoLtFBAMauCXBd

Reply

Marsh Posté le 22-01-2007 à 14:05:03   

Reply

Marsh Posté le 22-01-2007 à 14:13:08    

Salut !
Tu mets =B17 dans la cellule A18
Tu mets =B20 dans la cellule A21
Tu selectionnes les cellules de A17 à A21 et tu drag jusqu'en bas de ton fichier ...
 
Enfin, ca fonctionne si tu veux avoir les infos de manière redondante ...
 
@+


---------------
:Moultiplayers:.:Quatuor Chevalier:.:Admin G15-france.com:.:Wiki -G15-france:.:-Papa-:.
Reply

Marsh Posté le 22-01-2007 à 14:59:58    

Super ! En fait ça n'avait pas marché car je faisait copier/coller de la formule au lieu de drag...
Merci beaucoup !

Reply

Marsh Posté le 22-01-2007 à 15:10:11    

J'ai une autre question : comment faire pour demander l'ouverture d'un fichier (genre une fonction VB qui demanderait la localisation du fichier) à la macro excel tout en conservant les paramètres de "formatation" du fichier TXT ? Après avoir enregistré la macro, j'ai le code suivant :
 
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 22/01/2007 par
'
 
'
   

Code :
  1. Workbooks.OpenText Filename:= _
  2.         "D:\Mes Documents\Automate\20060630_LBG1_0801_MB51.txt", Origin:=xlWindows, _
  3.         StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
  4.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
  5.         Space:=True, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 2), _
  6.         Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
  7.         Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15 _
  8.         , 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2), _
  9.         Array(22, 2), Array(23, 2), Array(24, 2), Array(25, 2), Array(26, 2), Array(27, 2), Array( _
  10.         28, 2)), TrailingMinusNumbers:=True
  11.     ActiveCell.Offset(-8, -5).Range("A1" ).Select
  12.     ActiveCell.FormulaR1C1 = "=R[-1]C[1]"
  13.     ActiveCell.Offset(1, 0).Range("A1" ).Select
  14.     ActiveCell.FormulaR1C1 = "=R[-1]C[1]"
  15.     ActiveCell.Offset(-1, 0).Range("A1:A2" ).Select
  16.     Selection.AutoFill Destination:=ActiveCell.Range("A1:A65536" ), Type:= _
  17.         xlFillDefault
  18.     ActiveCell.Range("A1:A65536" ).Select
  19.     ActiveCell.Columns("A:A" ).EntireColumn.Select
  20.     ActiveCell.Offset(24984, 0).Range("A1" ).Activate
  21.     Selection.Copy
  22.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  23.         :=False, Transpose:=False
  24. End Sub


 
Merci !


Message édité par ruri le 13-03-2008 à 18:11:44
Reply

Sujets relatifs:

Leave a Replay

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