Probleme de formulation

Bonjour cher forum développez. :D
J'aurai s'il vous plait besoin d'un coup de main.
Je ne comprend pas pourquoi cette formule ne marche pas

Code:

---

1 2 3 4

With Sheets("Synthèse").Range("B17") .Range("B17").formula = "=Sheets!EDF.Range("$A$" & Tot.Row)"& "- Sheets!Base.Range("D7")" .Font.Bold = True End With

---

Je souhaite effectuer la différence entre la cellule "A" & Tot.Row et la cellule D7. Or ça Bug 8O
Merci pour l'aide

tu peux commencer a essayer ca

Code:

---

1 2 3 4

With Sheets("Synthèse").Range("B17") .formula = "=Sheets!EDF.Range("$A$" & Tot.Row)"& "- Sheets!Base.Range("D7")" .Font.Bold = True End With

---

en gros la fonction with permet de ne pas recopier la meme chose. en gros toi tu lui disais

Code:

---

Sheets("Synthèse").Range("B17").Range("B17").formula

---

Pour la suite du code

peux tu décrire ce que tu veux dire avec Tot.row? je ne vois pas ce que ca peut etre ^^

Bonojur,


Essaie avec

Code:

---

1 2 3 4

With Sheets("Synthèse").Range("B17") .Formula = "=EDF!$A$" & Range("Tot").Row & "- Base!D7" .Font.Bold = True End With

---

Cordialement.

Merci à tout les deux mais aucune ne fonctionne.
Dans la réponse de redstoff j'ai la même erreur que dans ma formule me disant que les $ autour du A sont des erreurs ?????????????

et danns le cas de gFZT82 ça m'affiche le message suivant aprés exécution : Erreur 1004
La méthode 'Range' de l'objet'_Global' a échoué.

je ne pige rien:cry:

explique moi ce que veut dire tot.row et je t'aide apres

Re,

En supposant que Tot est un nom qui fait référence à une cellule de la feuille Synthèse (à adapter).

Code:

---

1 2 3 4 5 6

Sub Test() Dim Ws As Worksheet Set Ws = Worksheets("Synthèse") Ws.Range("B17").Formula = "=EDF!$A$" & Ws.Range("Tot").Row & "- Base!D7" Ws.Range("B17").Font.Bold = True End Sub

---

Cordialement.

En fait "A" & tot.row est une cellule de la page EDF.
Elles se nomme comme cela car elle est variable. J'ai un tableau ou se rajoutte des lignes au fur et à mesure de mes saisis. Elle fait le total des cellules juste au dessus et donc à chaque insertion elle se décale d'une case vers le bas. Je souhaite la rappeler dans un tableau synthése sur feuille Synthèse et faire l'oppération décrite dans ma formule.
Merci

Mouais ! tu ne réponds pas à la question qui est de savoir ce qu’est « Tot ».
S’il s’agit d’un nom, tu dois voir à quelle feuille et cellule il fait référence.
En cliquant dans Formules/ Gestionnaire de noms, tu dois voir le nom « Tot » qui fait référence par exemple à EDF!$E$10.

Worksheets("EDF").Range("Tot").Row retourne le numéro de ligne, soit 10.
et "EDF!$A$" & Ws.Range("Tot").Row retourne "EDF!$A$10".

Donc, en supposant que Tot est un nom qui fait référence à une cellule de la feuille EDF, le code devient

Code:

---

1 2 3 4 5 6 7 8

Sub Test() Dim Ws1 As Worksheet Dim Ws2 As Worksheet Set Ws1 = Worksheets("Synthèse") Set Ws2 = Worksheets("EDF") Ws1.Range("B17").Formula = "=EDF!$A$" & Ws2.Range("Tot").Row & "- Base!D7" Ws1.Range("B17").Font.Bold = True End Sub

---

Cordialement.

Je me suis peut etre mal exprimé.
Tot et définicomme suit dans mon code :

Code:

---

Set Tot = .Range("b11:b" & ligne).Find("TOTAL")

---

Je cherche la case ou il y a total et j'insere une ligne au dessus.
C'est pour ça que j'ai dit que cette cellule est variable.

Merci
je vais essayé ton code

D'accord ! donc Tot est une variable range.

Le code devient

Code:

---

1 2 3 4 5 6

Sub Test() With Worksheets("Synthèse").Range("B17") .Formula = "=EDF!$A$" & Tot.Row & "- Base!D7" .Font.Bold = True End With End Sub

---

Cordialement.

Salut !
merci gFZT82 . Trop fort :ccool:
D'ou l'importance de bien formuler ça demande ( je me tape sur les doigts ça m'apprendra) :mouarf: