Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel modification de la formule après exécution

modification de la formule après exécution

3 réponses
Avatar
Christian
Bonjour à tous,

Lorsque j'exécute le code ci-dessous, la valeur de formu$ au débogage est
='8'!F3 (8 est le nom de la feuille)
Or, dans le tableur, le contenu de la formule est devenu ='8'!'F3'
J'obtiens donc #NOM?
pourquoi m'a-t-il rajouté des ' ' entre F3 ?

Qui peut m'aider ???, je sèche...

Merci de votre aide

Christian


Sub placer_formule()
Dim valeur_cell As Integer
Dim posi As String
Dim formu$

Range("a1").Select

valeur_cell = 8
posi = "'!F3"
formu$ = "='" + Mid$(Str$((valeur_cell)), 2) + posi
ActiveCell.FormulaR1C1 = formu$

End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
RaMA
Bonsoir
Remplacer par
ActiveCell.FormulaLocal = formu$
Salutations
RaMa

--
.
"Christian" a écrit dans le message de news:


Bonjour à tous,

Lorsque j'exécute le code ci-dessous, la valeur de formu$ au débogage est
='8'!F3 (8 est le nom de la feuille)
Or, dans le tableur, le contenu de la formule est devenu ='8'!'F3'
J'obtiens donc #NOM?
pourquoi m'a-t-il rajouté des ' ' entre F3 ?

Qui peut m'aider ???, je sèche...

Merci de votre aide

Christian


Sub placer_formule()
Dim valeur_cell As Integer
Dim posi As String
Dim formu$

Range("a1").Select

valeur_cell = 8
posi = "'!F3"
formu$ = "='" + Mid$(Str$((valeur_cell)), 2) + posi
ActiveCell.FormulaR1C1 = formu$

End Sub





Avatar
Christian
Grand merci
Super, cela fonctionne.
Par contre, pour la formule du même style ci-dessous, je me chope une erreur
1004.

FORMU = "=SI(RC[-1]<'" + Mid$(Str$((valeur_cell)), 2) + posi$ +
",""Rupture"","" "")"

Merci pour votre aide si précieuse.

Christian

"RaMA" a écrit dans le message de news:
e7E#
Bonsoir
Remplacer par
ActiveCell.FormulaLocal = formu$
Salutations
RaMa

--
.
"Christian" a écrit dans le message de news:


Bonjour à tous,

Lorsque j'exécute le code ci-dessous, la valeur de formu$ au débogage
est


='8'!F3 (8 est le nom de la feuille)
Or, dans le tableur, le contenu de la formule est devenu ='8'!'F3'
J'obtiens donc #NOM?
pourquoi m'a-t-il rajouté des ' ' entre F3 ?

Qui peut m'aider ???, je sèche...

Merci de votre aide

Christian


Sub placer_formule()
Dim valeur_cell As Integer
Dim posi As String
Dim formu$

Range("a1").Select

valeur_cell = 8
posi = "'!F3"
formu$ = "='" + Mid$(Str$((valeur_cell)), 2) + posi
ActiveCell.FormulaR1C1 = formu$

End Sub









Avatar
RaMA
Bonjour
Je ne pense pas que 1004 soit causé par ta formule

(mais attention tu as une apostrophe en trop après < : .....
RC[-1]<'.....)
Salutations
RaMa
--
.
"Christian" a écrit dans le message de news:
%
Grand merci
Super, cela fonctionne.
Par contre, pour la formule du même style ci-dessous, je me chope une
erreur
1004.

FORMU = "=SI(RC[-1]<'" + Mid$(Str$((valeur_cell)), 2) + posi$ +
",""Rupture"","" "")"

Merci pour votre aide si précieuse.

Christian

"RaMA" a écrit dans le message de news:
e7E#
Bonsoir
Remplacer par
ActiveCell.FormulaLocal = formu$
Salutations
RaMa

--
.
"Christian" a écrit dans le message de
news:


Bonjour à tous,

Lorsque j'exécute le code ci-dessous, la valeur de formu$ au débogage
est


='8'!F3 (8 est le nom de la feuille)
Or, dans le tableur, le contenu de la formule est devenu ='8'!'F3'
J'obtiens donc #NOM?
pourquoi m'a-t-il rajouté des ' ' entre F3 ?

Qui peut m'aider ???, je sèche...

Merci de votre aide

Christian


Sub placer_formule()
Dim valeur_cell As Integer
Dim posi As String
Dim formu$

Range("a1").Select

valeur_cell = 8
posi = "'!F3"
formu$ = "='" + Mid$(Str$((valeur_cell)), 2) + posi
ActiveCell.FormulaR1C1 = formu$

End Sub