Row Column VBA

**ines0091** · 27/01/2011, 18h46

Bonjour,

J'aimerai juste remplacer cette formule

Code :

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

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

par

Code :

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

"=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.

**tedo01** · 27/01/2011, 19h08

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

Code :

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

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

**ines0091** · 28/01/2011, 09h43

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

**MarcelG** · 28/01/2011, 10h09

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 :

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

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.

**ines0091** · 28/01/2011, 10h50

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.

**MarcelG** · 28/01/2011, 12h08

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 :

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

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 :

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

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.

**ines0091** · 28/01/2011, 17h28

Merci beaucoup, j'ai essayé ca marche bien.
Dernière chose promis

Code :

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

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.

**MarcelG** · 28/01/2011, 17h50

Ines,

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

Code :

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

1
2
Range("AY38").Select
ActiveCell.FormulaR1C1

doit être remplacé par

Code :

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

Range("AY38").FormulaR1C1

Une question : Derlig ou Derlig3 ?

Pour ma part, j'ai codé

Code :

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

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 :

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

Msgbox derlig

Et donne le résultat.

Je te reprends avant 18 hs sinon à partire de 19 hs.

**MarcelG** · 28/01/2011, 17h58

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 :

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

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

par

Code :

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

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

**ines0091** · 28/01/2011, 19h50

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

**MarcelG** · 28/01/2011, 20h01

Ines,

Dans ce cas

Code :

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

"=((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.

**ines0091** · 31/01/2011, 09h50

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

**tedo01** · 31/01/2011, 09h55

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

Code :

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

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

**MarcelG** · 31/01/2011, 10h03

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.

**ines0091** · 31/01/2011, 15h48

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??