Discussion :

[timoth]

Bonjour,

J'exporte un certain nb de données vers une feuille Excel et j'insere notamment mes enregistrements dans des tableaux dont le format est déja bien défini.

Pour chaque enregistrement, j'insere une ligne de la maniere suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlSheet.Range("A12").Offset(k).EntireRow.insert xlShiftDown

Le format est bien repris d'une ligne a l'autre mais pas les formules. Sauriez vous comment faire ?


Merci !

[ouskel'n'or]

La solution est "Recopier vers le bas"
Dans Excel, Sélection de la plage en partant de la ligne à copier -> Remplissage -> Série -> ... Ce qui donne, une fois simplifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim xlSheet As Worksheet
Dim k As Integer
Set xlSheet = ActiveSheet
    k = 20
    xlSheet.Rows(12).AutoFill Destination:=Rows("12:" & k), Type:=xlFillDefault

A+

[timoth]

Salut ouskel'n'or

Je travaille depuis Access et je n'arrive pas a appliquer ce code.
j'ai une boucle qui parcourt les enregistrements d'un recordset et qui insere des lignes a chaque enregistrement.
Je pars d'un template, donc j'ai mes reperes. Je sais que "A53" est la premiere cellule du tableau dans lequel je dois placer mes enregistrements.
k est le nombre de lignes que j'ai inséré avant (décalant ainsi ma cellule "A53")
i est le nombre d'enregistrement que j'ai traité jusque la (peu important ici)

Voici le code que j'utilise suite a ton message. Je souhaite "recopier vers le bas" les infos de la colonne L (L53, décalé de k lignes vers le bas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
'insertion d'une nouvelle ligne
xlSheet.Range("A53").Offset(k + 1 + i).EntireRow.insert xlShiftUp
'autofill
xlSheet.Rows(53 + k, 12).AutoFill Destination:=xlSheet.Rows(53 + k & ":" & 53 + k + i, 12), Type:=xlFillDefault

J'ai l'erreur 1004: Application-Defined or object-Defined error.

Ca me pete les

[ouskel'n'or]

Ok, j'ai vu.
C'est quoi, 12 ?
Là, dans ton code tu concatènes des N° de lignes et des strings
Mais pour corriger, je dois savoir ce qu'est ",12 "

[timoth]

Je fais peut etre une erreur, mais 12 serait le numéro de la colonne (correspondant à la colonne L)

Là, dans ton code tu concatènes des N° de lignes et des strings

Oui, j'essaye en fait de faire une sélection de la cellule L53 (décalé de k lignes) jusque L53 (décalé de k+i lignes)

J'ai l'impression de faire un bidouillage de salopard !

[ouskel'n'or]

J'ai l'impression de faire un bidouillage de salopard !

Ça, tu peux le dire. A 13h51, on sent que la digestion n'était pas faite
Teste ça, ce n'est pas sûr que ça fonctionne mais on verra pourquoi après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlSheet.Rows(53 + k).AutoFill Destination:=xlSheet.Rows(cstr(53 + k) & ":" & cstr(53 + k + i)), Type:=xlFillDefault

Tu dis
A+