[VBA-A] Conserver les formules a l'insertion

**timoth** · 24/04/2007, 09h10

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** · 24/04/2007, 10h10

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** · 24/04/2007, 13h51

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** · 24/04/2007, 14h07

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** · 24/04/2007, 14h34

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** · 24/04/2007, 14h38

Envoyé par timoth

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+

**timoth** · 24/04/2007, 15h19

J'ai le froit a une nouvelle erreur maintenant :
"Autofill Method or Range Class Failed"

Par contre, je ne souhaite pas forcement faire ca pour toutes les colonnes, seulement trois ou quatre. Je suis un peu perdu ! Mais bon, je navigue !

**ouskel'n'or** · 24/04/2007, 15h41

Oui, je n'étais pas sûr que la syntaxe soit appropriée, avec les rows, j'ai souvent dû tester.
T'affole pas ! On les aura. Donc, tu ne veux pas insérer des lignes mais des cellules... A quoi te sert ta ligne

xlSheet.Range("A53").Offset(k + 1 + i).EntireRow.insert xlShiftUp

alors ?
Faut tout nous dire...
A+

J'explique ma demande : Si tu insères une ligne vide (ce que tu fais) alors ta ligne... sera vide.
Si ensuite tu recopies ta ligne en dessous, alors, tes lignes en-dessous seront vides elles aussi.
Maintenant, on parle de cellules, alors dis-nous ce qu'il faut recopier, quelles colonnes ? En partant de quelle ligne ?
A+

**timoth** · 24/04/2007, 16h17

Ce que je fais depuis ACCESS est ceci:

Je créé une requete avec des enregistrements que je veux mettre les uns a la suite des autres dans Excel dans une zone précise.
Ma zone dans Excel mis en forme (avec mes formules) ne contient que deux lignes mais mes requetes contiennent peut etre 50 enregistrements. Du coup, je dois insérer des lignes pour repousser vers le bas ce qui est en-dessous, pour ne pas écraser ce que j'ai en base de ma feuille Excel.

J'insere donc une ligne entiere, vide.

J'insere dans cette nouvelle ligne les informations venant de mes requetes. Au bout de la ligne, je fais une somme de tous les chiffres que je viens de rentrer. La somme est définie sur Excel.

Malheureusement quand j'insere une nouvelle ligne, la formule SOMME n'est pas recopiée. C'est pour ca que je souhaite simplement commander a Excel de me remettre la bonne formule dans la 12e colonne de ma ligne (en réalité, il y a 3 sommes, mais si j'arrive a en faire une, ce sera bon !)

**ouskel'n'or** · 24/04/2007, 16h21

Envoyé par Tu

(en réalité, il y a 3 sommes, mais si j'arrive a en faire une, ce sera bon !)

Donc, en réalité, tu veux insérer trois lignes et, sur chacune des trois lignes, que soit recopiée la formule de la colonne 12 de la ligne précédent l'insertion... C'est ça ?
A+

**timoth** · 25/04/2007, 06h10

Désolé, étant parti du boulot et n'ayant pas internet chez moi, je n'ai pas pu te répondre !

Exactement, j'insere une ligne et je replace la formule dans la nouvelle ligne.

**ouskel'n'or** · 25/04/2007, 09h06

Bon, j'ai pondu quelque chose.
Comme tu souhaites insérer tes lignes depuis la ligne 53, je parts de l'hypothèse que tu as la même formule dans la ligne 52 que dans la ligne 53, colonne 12.
Je commence par insérer les trois lignes puis recopie la formule de la colonne 12.
Si la formule n'existe pas et qu'il faut l'insérer, et que tu as un pb, tu dis

Code :

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

1
2
3
4
5
6
Dim xlSheet As Worksheet
Set xlSheet = ActiveSheet
    xlSheet.Rows(53).EntireRow.Insert Shift:=xlUp
    xlSheet.Rows(53).EntireRow.Insert Shift:=xlUp
    xlSheet.Rows(53).EntireRow.Insert Shift:=xlUp
    xlSheet.Range(Cells(53, 12).Offset(-1, 0), Cells(53, 12).Offset(2, 0)).FillDown

Où Offset(-1, 0) permet de copier la formule de la ligne précédente
A+

**timoth** · 25/04/2007, 11h29

Je ne comprends pas...

il n'aime pas du tout le principe du

Code :

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

xlSheet.Range(Cells(x,x),Cells(x,x))

Il me sort maintenant

erreur 1004 "Method Range' of object'_Worksheet'failed"

Gloups

**ouskel'n'or** · 25/04/2007, 17h13

Comme tu n'est visiblement pas dans Excel (tu devrais jeter un oeil à ma signature) tu dois utiliser l'instance de l'application avant celle de la feuille

Code :

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

1
2
Dim xlSheet As Worksheet
Set xlSheet = Appxl.xlWkb.ActiveSheet

Enfin, c'est toi qu'y'a

A+

**timoth** · 26/04/2007, 07h24

Je déclare déja ma feuille au début de mon module !

Code :

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

1
2
3
4
5
6
7
 
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add("C:\Documents and Settings\twallaert\My Documents\Subcontract database\Version Technip\SSMR master Rev1.xlt")
Set xlSheet = xlBook.Worksheets("rmsite")

J'ai meme rajouté:

Code :

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

xlsheet.activate

Rien n'y fait, j'ai toujours ce message d'erreur de mes deux tentacules ! L'aide ne me donne rien !
Ce qui est frustrant, c'est que j'arrive parfaitement a utiliser ce code depuis l'éditeur VBA Excel. Peut etre faut-il que je revienne sur le forum Access ?

Merci pour ton aide !

**timoth** · 26/04/2007, 07h55

Rooo, j'ai vraiment un truc bizarre !

J'ai essayé avec un exemple simple depuis Access:

Code :

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

1
2
xlsheet.Activate
xlsheet.Range(Cells(1,1),Cells(2,1)).Filldown

Ca marche ! Mais qu'une fois. J'étais obligé de faire Ctl+Alt+Suppr pour fermer mon processus Excel.exe si je voulais que ca marche a nouveau.

Du coup, j'ai laissé tomber la méthode Range (Cells,Cells) et je suis passé a qqc d'un peu moins élégant:

Code :

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

xlSheet.Range("L" & CStr(53 + k) & ":" & "L" & CStr(53 + k + i - 1)).FillDown

Plus efficace, puisque ca marche !!! (Si si ....) Un grand merci !!

J'ai néanmoins une petite surprise pas tres agréable. Le résultat est le meme qu'a la main dans la feuille Excel, toute la mise en forme de la premiere cellule se répercute sur les cellules d'en-dessous.
Du coup, ca fait désordre. Tu connaitrais pas une petite option/méthode/astuce qui me permette finalement de ne tirer vers le bas que le contenu des cellules (et pas leurs mises en forme) ??

Apres, je t'embete plus !