Afficher un message
Vieux 24/02/2008, 21h20   #5 (permalink)
Bernard34
XLDnaute Nouveau
 
Date d'inscription: décembre 2007
Messages: 26
Par défaut Re : Rationaliser la constitution de mon fichier

Bonsoir à tous,

Depuis que JP m'a répondu, je cherche, je lis les questions et les réponses, j'avance doucement.

Néanmoins, je ne parviens à utiliser une variable pour définir une plage:

J'ai fait ceci:

' Identification de l'antenne concernée
derliA = Range("A65536").End(xlUp).Row
Range("AG2").Select
ActiveCell.FormulaR1C1 = _
"=+VLOOKUP(""Ale2"",'[Fichier .xls]Antennes'!R3C1:R15C3,3)"
Range("AG2:AG" & derliA).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Fin de l'identification de l'antenne concernée

'derliA = Range("A65536").End(xlUp).Row + 1
'derCol = Range("IV5").End(xlToLeft).Column
'Range("A2:AG" & derliA).Copy Range("A2:AG" & derliA)
'Range("A2:AG" & derliA).Copy Range("A2:AG" & derliA)
Application.Goto Reference:="R2C1:R5000C33"
Selection.Copy
Windows("Fichier rap.xls").Activate
[A65536].Select
Selection.End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[A65536].Select
Selection.End(xlUp)(2).Select
Application.CutCopyMode = False

Il y a une apostrophe devant mes essais infructueux

Et je ne m'en sors pas.

si quelqu'un peut m'éclairer...

Merci
Bernard34 est déconnecté   Réponse avec citation