Row Column VBA

Version imprimable

27/01/2011, 18h46
ines0091

Row Column VBA

Bonjour,

J'aimerai juste remplacer cette formule

Code:

"=MINVERSE(MMULT(TRANSPOSE(R[1]C[-44]:R[477]C[-29]),R[1]C[-44]:R[477]C[-29]))"

par

Code:

"=MINVERSE(MMULT(TRANSPOSE(R[1]C[-44]:R[DerLig]C[-29]),R[1]C[-44]:R[DerLig]C[-29]))"

avec DerLig qui est une variable dans une boucle que j'ai dans ma macro, mais ca marche pas comme ca?

donc c pas la bonne syntaxe.

Merci pour votre aide.
27/01/2011, 19h08
tedo01

Bonjour,
Il faut juste sortir la variable de la chaîne de caractères :

Code:

"=MINVERSE(MMULT(TRANSPOSE(R[1]C[-44]:R[" & DerLig & "]C[-29]),R[1]C[-44]:R[" & DerLig & "]C[-29]))"
28/01/2011, 09h43
ines0091

Merci tedo01 ca marche

si je peux me permettre une dernière chose,
j'ai 6 onglets excel et les résultats qui m'interressent sont dans les range AW19:AW34 et AW60:AW75
j'aimerai juste les mettre dans un nouvel onglet que je crer (Result) en utilisant la fonction transpose:
pour le cas1 je transpose AW19:AW39 en B2:Q2 de l'onglet Result et AW60:AW75 (de l'onglet cas1) je le transpose en R2:AG2
les résultats de l'onglet cas2 idem en onglet Result à la ligne 3
jusqu'à la ligne 7 pour cas 6
Je crois qu'il faudrait utiliser un Array m'ais j'arrive pas à le faire correctement.

Merci encore pour tes réponses: ca seraa plus facile à comprendre avec le fichier:

http://www.cijoint.fr/cjlink.php?fil...cijEw0LDN3.xls

copy transpose

Bonjour Ines, Bonjour le Forum

Ines,

Sans passer par les tabeaux, tu peux utiliser le collage special valeurs transpose.
De plus, comme il y a une relation entre ton indice de Feuille Casx (Cas1, Cas2) et la ligne de la feuille Résult où tu souhaites copier tes données, tu peux utiliser une boucle.
Code:

1 2 3 4 5 6 7 8 9 10 Sub Macro2() Application.ScreenUpdating = False For i = 1 To 6 Sheets("cas" & i).Range("AW19:AW34").Copy Sheets("Result").Range("B" & i + 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True Sheets("cas" & i).Range("AW60:AW75").Copy Sheets("Result").Range("R" & i + 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True Next Application.CutCopyMode = False End Sub
En espérant que ce code te sera utile.

28/01/2011, 10h50
ines0091

justement je disais transpose parceque je ne veux pas coler en valeur mais garder les formules.

Merci .

Non c bon jvais laisser ca comme ca c déja très bieN.

Merci beaucoup pour ton aide.

formule transpose

Ines,

Un peu de patience, je cheche!

Ce qui est gênant, ce sont tes formules matricielles dans ta première série de formules. Il serait bien pour le code suivant qui resterait à adapter de transformer ces formules matricielles en séries de formules classiques avec références relatives (sans "$").

On pourrait sinon adapter ce code aux cellules à partir de AW60 en 2 étapes

1 -Transformation des références relatives en absolues

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub DoAbsolut()
 Dim inputFormula As String
 Dim outputFormula As String
 Dim cell As Range
 Dim rng As Range
 
For i = 1 To 6
        Sheets("cas" & i).Activate
        Set rng = Range("AW60:AW75").SpecialCells(xlFormulas)
         For Each cell In rng
                inputFormula = cell.Formula
                outputFormula = Application.ConvertFormula( _
                    Formula:=inputFormula, _
                    fromReferenceStyle:=xlA1, _
                    toReferenceStyle:=xlA1, _
                    ToAbsolute:=xlAbsolute)
                cell.Formula = outputFormula
         Next
 Next
 End Sub

2 - Copie des formules en se référant aux différentes feuilles

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
    Application.ScreenUpdating = False
    For i = 1 To 6
            Sheets("cas" & i).Range("AW60:AW75").Copy
            Sheets("Result").Range("R" & i + 1).PasteSpecial Paste:=xlPasteFormulas, Transpose:=True
            Selection.Replace What:="=", Replacement:="=Cas" & i & "!", LookAt:=xlPart, _
                    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                    ReplaceFormat:=False
            Selection.Replace What:="/", Replacement:="/Cas" & i & "!", LookAt:=xlPart, _
                    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                    ReplaceFormat:=False
    Next
    Application.CutCopyMode = False
End Sub

A tester.

28/01/2011, 17h28
ines0091
Merci beaucoup, j'ai essayé ca marche bien.
Dernière chose promis
Code:

1 2 3 Range("AY38").Select ActiveCell.FormulaR1C1 = _ "=((1-R[-1]C)*VARP(R[-18]C[-45]:R[" & Derlig3 & "]C[-45])*Derlig)/(Derlig-16)"
Ici DerLig est une variable dans une boucle que j'ai, et ca marche pas à cause de ca, et je vois pas comment faire autrement.

Merci encore pour vos réponses.
28/01/2011, 17h50
MarcelG

concaténation
Ines,

Tout d'abord, un conseil : évite les select
Code:

1 2 Range("AY38").Select ActiveCell.FormulaR1C1
doit être remplacé par

Code:

Range("AY38").FormulaR1C1

Une question : Derlig ou Derlig3 ?

Pour ma part, j'ai codé
Code:

1 2 3 4 5 6 Sub Macro1() With ActiveCell lign = .Row + 6 .FormulaR1C1 = "=RC[" & lign & "]*10" End With End Sub
Ce code est bien actif.

Avant ta formule, insère

Code:

Msgbox derlig

Et donne le résultat.

Je te reprends avant 18 hs sinon à partire de 19 hs.
28/01/2011, 17h58
MarcelG

concaténation

Ines,

Je viens de m'appercevoir d'une anomalie.

Pour une concaténation efficace, il te faut ouvrir et fermer les cotes avant et après ta variable Derlig dans toute ta ligne de code.

remplace

Code:

"=((1-R[-1]C)*VARP(R[-18]C[-45]:R[" & Derlig3 & "]C[-45])*Derlig)/(Derlig-16)"

par

Code:

"=((1-R[-1]C)*VARP(R[-18]C[-45]:R[" & Derlig & "]C[-45])*[" & Derlig & "])/([" & Derlig & "]-16)"
28/01/2011, 19h50
ines0091

Merci beaucoup pour ton aide MarcelG

jpourrais tester ca que lundi à la fac, car j'ai pas excel sur mon pc portable chez moi.

Mais merci encore je suis sur que ca sera bon.

Une question : Derlig ou Derlig3 ?(cétait ta question)

y'a bien deux variables dans ma boucle, Derlig et Derlig3
donc c normal que les deux apparaissent dans la formule c pas une erreur
28/01/2011, 20h01
MarcelG

concaténation

Ines,

Dans ce cas

Code:

"=((1-R[-1]C)*VARP(R[-18]C[-45]:R[" & Derlig3& "]C[-45])*"&Derlig&")/("&Derlig&"-16)"

Et n'hésite pas.

Bon week-end à toi.
31/01/2011, 09h50
ines0091

j'ai le message d'erreur suivant:
Erreur de compilation:
Attendu: numéro de ligne ou étiquette ou instructuion ou fin d'instruction à ce niveau là:"=((1-R[-1]C)*VARP(R[-18]
et j'arrive pas à ma corriger
Merci de rester encore avec moi
ines
31/01/2011, 09h55
tedo01

Bonjour,
Essaie de mettre un espace entre le nom des variables et les & de concaténation :

Code:

"=((1-R[-1]C)*VARP(R[-18]C[-45]:R[" & Derlig3 & "]C[-45])*" & Derlig & ")/(" & Derlig & "-16)"
31/01/2011, 10h03
MarcelG

Variance

Bonjour Ines,

La variance sur population est donnée, du moins sur Excel 2003, par la fonction VAR.P

Il te manque apparemment le point entre VAR et P.
31/01/2011, 15h48
ines0091

c bon ca marche

Merci beaucoup Marcel

dsl si je l'ai pas mis en résolu ce sujet mais jsuis nouvelle et jvois pas c ou qu'on peut le mettre en résolu??
03/02/2011, 10h05
fring

Citation:

Envoyé par ines0091

dsl si je l'ai pas mis en résolu ce sujet mais jsuis nouvelle et jvois pas c ou qu'on peut le mettre en résolu??

Le bouton :resolu: se trouve juste en dessous du dernier message ;)