Problème range paramètré

Marsh Posté le 04-04-2012 à 17:25:31

Bonjour,
J'essaye de paramètrer un range en fonction d'une variable, pour faire du Range("CT14,CT18" ) mais je rame à trouver une syntaxe correcte.

Dim i As Integer
i = 38
Range("CT14" ).Select
Selection.AutoFill Destination:=Range("CT14:"CT'&i" ), Type:=xlFillDefault
Range("CT14:CT38" ).Select

Si quelqu'un peut m'aider, ce serait sympa.
Merci d'avance.

Mike

Marsh Posté le 04-04-2012 à 17:25:31

Marsh Posté le 05-04-2012 à 07:03:01

Bonjour,
essayes comme ça :

Code :

Selection.AutoFill Destination:=Range("CT14:CT" & i), Type:=xlFillDefault

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

Marsh Posté le 05-04-2012 à 09:46:58

Ca ne marche pas ..
J'obtient "la methode range de l'objet global a echoué"

Merci quand même

Plus exactement, ça marche, mais pas dans autofill.

Message édité par mike11210 le 05-04-2012 à 09:55:11

Marsh Posté le 05-04-2012 à 10:19:57

Dim nbligne As Integer
Dim nbcol As Integer
'nbligne = Cells(1, 4)
nbligne = 38
nbcol = Cells(1, 3)
Range("CT14:CT" & nbligne).Select

Selection.autofill Destination:=Range(Cells(14, nbcol), Cells(nbligne, nbcol)), Type:=xlFillDefault

Marsh Posté le 05-04-2012 à 11:24:40

Tu veux copier la formule de CT14 vers le bas ?

Si c'est ça, il faut sélectionner CT14 seulement :

Code :

Dim nbligne As Integer
Dim nbcol As Integer
'nbligne = Cells(1, 4)
nbligne = 38
nbcol = Cells(1, 3)
Range("CT14" ).Select
Selection.AutoFill Destination:=Range(Cells(14, nbcol), Cells(nbligne, nbcol)), Type:=xlFillDefault

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *