Problème avec Adresse d'une FormulaLoca

Version imprimable

Bonjour à tous,
J’ai un problème avec l’adresse de ma formule. En effet,
Quand je vais les cellules où se trouve le résultat je découvre que mon code n’a pas pris en compte le Sh38 mais calcul avec les cellules de la feuille active.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub valeur_ligne ()
 
Application.ScreenUpdating = False
Application.Calculation = xlManual
 
    Dim Sh As Worksheet
    Dim Sh38 As Worksheet
    Dim Col As Integer
    Dim Lig As Integer
 
    Set Sh = ActiveSheet
    Set Sh38 = Feuil38
 
    For Lig = 57 To 70
        For Col = 66 To 118
            Sh.Cells(Lig, Col).Formula = "=" & Sh38.Cells(Lig - 46, 4).Address & "*" & Sh38.Cells(Lig - 46, Col - 60).Address & ""
        Next Col
    Next Lig
 
    Set Sh = Nothing
    Set Sh38 = Nothing
 
End Sub

Vous remerciant pour votre aide.

23/04/2015, 11h27
joe.levrai

Bonjour,

il faut également spécifier la feuille à laquelle tu te réfères :

Code:

Sh.Cells(Lig, Col).Formula = "=" & Sh38.Name & "!" & Sh38.Cells(Lig - 46, 4).Address & "*" & Sh38.Name & "!" & Sh38.Cells(Lig - 46, Col - 60).Address & ""
23/04/2015, 11h35
Ardiden31

J'ai l'erreur 1004 : erreur définie par l'application ou par l'objet.
Dois je garder le second Sh38

Code:

& Sh38.Name & "!" & Sh38.Cells(Lig - 46, 4).Address &
23/04/2015, 11h40
mercatog

Ou bien directement (sans boucle)

Code:

Sh.Range("BN57:DN70").Formula = "='" & Sh38.Name & "'!$D11*F11"

PS, j'ai ajouté des ' avant et après le nom de la feuille dans le cas où le nom de Feuil38 contient des espaces
23/04/2015, 11h46
Ardiden31

J'ai besoin de ma boucle car c'est un tableau alimenté par un autre tableau d'ou le besoin que toutes mes lignes soient prises en compte sinon le code risque d'être à rallonge.
23/04/2015, 12h06
mercatog

Citation:

Envoyé par Ardiden31

J'ai besoin de ma boucle car c'est un tableau alimenté par un autre tableau d'ou le besoin que toutes mes lignes soient prises en compte sinon le code risque d'être à rallonge.

C'est à dire?

Si on sait remplacer 2 boucles par une seule ligne et qui fait la même chose, je ne vois pas pourquoi on ne va pas opter pour ça
24/04/2015, 08h44
Ardiden31

Pardon j'avais mal compris.

J'ai donc repris ton idée en mettant les variables mais une erreur d'excution :

Code:

Sh.Range("BN" & Lig, "DN" & Lig).Formula = "='" & Sh38.Name & "'!$D" & Lig - 46 & "*" & Lig - 46 & "," & Col - 60 & "

Je crois que l'erreur est dans cette partie là :

Code:

"*" & Lig - 46 & "," & Col - 60 & "

Merci ;)
24/04/2015, 08h48
SfJ5Rpw8

bonjour,

déjà lorsqu'il il y as une erreur la première chose est de lire le message d'erreur ... l'as tu lu ? dans tous les cas tu ne l'as pas reporté ici !!

une erreur de syntaxe, tu as compté tes guillemets ?
24/04/2015, 09h05
Ardiden31

Désolé :oops: l'erreur est la suivante "1004 : erreur définie par l'application où pas l'objet". Voici le code avec les modifications :

Code:

Sh.Range("BN" & Lig, "DN" & Lig).Formula = "='" & Sh38.Name & "'!$D" & Lig - 46 & "*" & Sh38.Name & "'!F" & Lig - 46

J'ai bien recompter les "" et les &, je sais que l'erreur doit se trouver par là

Code:

"*" & Sh38.Name & "'!F" & Lig - 46
24/04/2015, 09h20
Ardiden31

Erreur trouvé il s'agissait d'un apostrophe après le *

Code:

"*'"

Merci à vous :)
24/04/2015, 10h22
mercatog

Si tu avais évoqué la proposition #4, qui fait la même chose et sans utiliser de boucles (consommatrice de ressources et de temps), tu aurais au moins saisi l'approche et la correction qui en découle. Car plus tard, tu auras besoin de ce type de réflexe dans le but d'optimisation de tes codes.

Sans boucle et je me répète, il suffit de faire:

Code:

Sh.Range("BN57:DN70").Formula = "='" & Sh38.Name & "'!$D11*'" & Sh38.Name & "'!F11"
24/04/2015, 11h00
Ardiden31

Holala excuse moi vraiment je me sens bête là j'étais fixée sur la boucle que je n'ai pas poussé le raisonnement plus loin sur ton bout de code :oops:... Je te remercie vraiment :)

En tout cas c'est une véritable révélation j'ai du boulot mais je vais modifier tous mes codes avec des boucles comme celle là. Encore merci ;)
24/04/2015, 11h31
Ardiden31

Je me permets de venir sur une autre formule j'ai utilisé le même principe que votre code sauf que dans les cellules cible j'ai des #Nom?

Code:

Sh.Range("DN57:DN70") = "=somme(BN57:DM57)"
24/04/2015, 11h38
Ardiden31

Réponse à ma question SUM au lieu de SOMME :) encore merci Mercatog.

A+
24/04/2015, 11h39
joe.levrai

Bonjour,

il est conseillé de bien faire référence à .Formula

Code:

Sh.Range("DN57:DN70").Formula = "=sum(BN57:DM57)"

.Formula : faut mettre les noms de formules en anglais

Sinon tu utilises .FormulaLocal pour mettre les noms français

Code:

Sh.Range("DN57:DN70").FormulaLocal = "=somme(BN57:DM57)"
24/04/2015, 11h42
mercatog

Déjà il faudra écrire

Code:

Sh.Range(X).Formula="=SUM(Y)"

Ou

Code:

Sh.Range(X).FormulaLocal="=somme(Y)"

Adaptes X et Y

Je préfère la 1.