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

Version imprimable

24/04/2007, 09h10
timoth

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

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:

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 !
24/04/2007, 10h10
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:

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+

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:

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 ;) ;)

24/04/2007, 14h07
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 "
24/04/2007, 14h34
timoth

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

Citation:

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 !
24/04/2007, 14h38
ouskel'n'or

Citation:

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 :mouarf:
Teste ça, ce n'est pas sûr que ça fonctionne mais on verra pourquoi après ;)

Code:

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

Tu dis
A+
24/04/2007, 15h19
timoth

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 !
24/04/2007, 15h41
ouskel'n'or

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

Citation:

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+
24/04/2007, 16h17
timoth

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 !)
24/04/2007, 16h21
ouskel'n'or

Citation:

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+
25/04/2007, 06h10
timoth

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.

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:

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+

25/04/2007, 11h29
timoth

Je ne comprends pas...

il n'aime pas du tout le principe du

Code:

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

Il me sort maintenant

Citation:

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

Gloups :?
25/04/2007, 17h13
ouskel'n'or
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:

1 2 Dim xlSheet As Worksheet Set xlSheet = Appxl.xlWkb.ActiveSheet
Enfin, c'est toi qu'y'a ;)
A+

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

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:

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 !

26/04/2007, 07h55
timoth
Rooo, j'ai vraiment un truc bizarre !

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

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:

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 ! :evilred:
26/04/2007, 15h39
timoth

Bon, c'est bon ! C'est gagné j'ai trouvé une astuce de mise en forme pour que tout se passe bien !

Ca marche
26/04/2007, 15h59
timoth
Je viens d'y penser et je viens d'essayer avec un
Code:

1 2 .copy .PasteSpecial xlPasteFormulas
ca marche nickel nickel !

gloups, on aurait pu éviter de se prendre si méchamment la tete !
26/04/2007, 16h24
ouskel'n'or

Voui ! et si on avait continué en essayant de faire fonctionner ça..., je serais déjà à la plage :mouarf: